| //QUESTION | |
| //2520 is the smallest number that can be divided by each of the numbers from 1 to 10 without any remainder. | |
| //What is the smallest positive number that is evenly divisible by all of the numbers from 1 to 20? | |
| //SOLUTION | |
| // change to 10 to check against PE example | |
| var end = 20; | |
| //generate sequence | |
| var arrSeq = Array |
| var ds = []; | |
| for (var i = 0; i < 40; i++) { | |
| ds.push(i); | |
| } | |
| var w = 800; | |
| var h = 800; | |
| var p = 1; |
| GRM_FTE | rtrn_yr | fte | Gender | |||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 2005 | 1 | M | |||||||||
| 1 | 2006 | 1 | F | |||||||||
| 1 | 2007 | 1 | M | |||||||||
| 1 | 2008 | 1 | M | |||||||||
| 1 | 2006 | 1 | M | |||||||||
| 0.5 | 2007 | 0.5 | M | |||||||||
| 1 | 2008 | 1 | F | |||||||||
| 1 | 2009 | 1 | M | |||||||||
| 1 | 2010 | 1 | F |
| # original shapefile from http://www.abs.gov.au/AUSSTATS/abs@.nsf/DetailsPage/1270.0.55.003July%202011 | |
| # Postal Areas ASGS Non ABS Structures Ed 2011 Digital Boundaries in ESRI Shapefile Format | |
| # -i specifies input file | |
| # -join specifies csv to join and join key | |
| # -simplify speficies simplification percentage | |
| # -o specifies outfile file and format | |
| # full set of command lines options here: https://github.com/mbloch/mapshaper/wiki/Command-Reference |
Download binary from oracle: http://www.oracle.com/technetwork/database/database-technologies/r/roracle/downloads/index.html
The run the following command in r, substituting the file path:
setwd('xxxxx') # set to path of download
install.packages('ROracle_1.1-11.zip', repos = NULL)
| ################################################################################################### | |
| # | |
| # Descr: This is a standard header script to be run at the beginning of each R script | |
| # It loads the standard packages and a password prompt function | |
| # Usage: At the top of the r script, place the following text: | |
| # source("[PATH TO RHeader.r]\\RHeader.r") | |
| # Author: Josh Gilfillan | |
| # Date: 20150326 | |
| # | |
| ################################################################################################### |
| set nocompatible " be iMproved, required | |
| "-----START Vundle Config------ | |
| filetype off " required | |
| " check if windows or linux and set the runtime path to include Vundle and initialize | |
| if has('win32') | |
| set rtp+=~/vimfiles/bundle/Vundle.vim/ | |
| au GUIEnter * simalt ~x "start maximised | |
| elseif has('unix') |
| testvector <- c(.5, .1, .2, .9, .9, .2, .5) | |
| # group rows based on cumsum with reset | |
| cumsum_group <- function(x, threshold) { | |
| cumsum <- 0 | |
| group <- 1 | |
| result <- numeric() | |
| for (i in 1:length(x)) { | |
| cumsum <- cumsum + x[i] |
| scale_fill_griffith <- function(theme="uni_groups", tech_key = list( | |
| uni_groups = c("#c12525", "#6F2C91", "#F36F21", "#00AEEF", "#50B848"), # GU, AEL, BUS, HTH, SCG | |
| groups = c("#6F2C91", "#F36F21", "#00AEEF", "#50B848"), # AEL, BUS, HTH, SCG | |
| gu_nat = c("#c12525", "#989898"), # GU, National | |
| gu_qut_uq = c("#c12525", "#1f77b4", "#9467bd"), # GU, National | |
| gu_uq_qut = c("#c12525", "#9467bd", "#1f77b4") # GU, National | |
| )) { | |
| scale_fill_manual(values=tech_key[[theme]]) | |
| install.packages("openssl") | |
| library("openssl") | |
| sha256("string", "salt") | |
| # [1] "239ad6643604e44320c7f1c99809432e00ff26f90bff04bed0612a618dd045b7" |