R/00setup.R R/01-gender.R R/02-age.R R/.RData @@ -1,56 +1,3 @@ -X <- read.csv('../perlsurvey2007.yaml.csv') -t(X) -x -X -write.csv("../perlsurvey2007.yaml.t.csv", X) -write.csv(X,"../perlsurvey2007.yaml.t.csv") -exit -q() -X <- read.csv('../perlsurvey2007.yaml.csv') -write.csv(t(X),"../perlsurvey2007.yaml.t.csv") -exit -q() -names(X) -sort(names(X)) -sort(names(X)) -X[names(X)] -?grep -?grep -names(X[grep("^Programming:", names(X))]) -X[grep("^Programming:", names(X))] -grep("^Programming:", names(X)) -grep("Programming:", names(X)) -grep("Programming", names(X)) -names(X[grep("Programming:", names(X))]) -grep("Programming:", names(X)) -grep("Programming", names(X)) -X[grep("Programming", names(X))] -names(X[grep("Programming", names(X))]) -names(X[grep("Programming", names(X))]) -lapply((X[grep("Programming", names(X))]), sum) -apply((X[grep("Programming", names(X))]), sum) -sapply((X[grep("Programming", names(X))]), sum) -write.csv(sapply((X[grep("Programming", names(X))]), sum), "../languages.csv") -q() -sapply((X[grep("Programming", names(X))]) -) -sapply((X[grep("Programming", names(X))]),sum) -Languages <- sapply((X[grep("Programming", names(X))]),sum) -Languages[> 50] -Languages[Languages > 50] -rev(sort(Languages[Languages > 50]) -) -rev(sort(Languages[Languages > 50]* length(X[1,] )) -) -rev(sort(Languages[Languages > 50]/ length(X[1,]* 100 )) -) -rev(sort(Languages[Languages > 50]/ length(X[1,] )) -) -rev(sort(Languages[Languages > 50]/ length(X[1,] * 100 ))) -rev(sort(Languages[Languages > 50]/ length(X[,1] * 100 ))) -rev(sort(Languages[Languages > 50]/ length(X[,1]))) -rev(sort(Languages[Languages > 50]/ length(X[,1])*100)) -round(rev(sort(Languages[Languages > 50]/ length(X[,1])*100)),2) -round(rev(sort(Languages[Languages > 50]/ length(X[,1])*100)),2) -round(rev(sort(Languages[Languages > 50]/ length(X[,1])*100)),2) # write to csv file language counts) -q() +data.entry() +?data.entry +?edit R/.Rhistory 4d9debcef1d2d90c3e8f92cf965e6795e4d7441b Kieren Diment kd@fenchurch.local http://github.com/singingfish/perl-survey-2009/commit/3449fac299e2224e2ca7d78dd4f510aba5da7433 3449fac299e2224e2ca7d78dd4f510aba5da7433 2009-06-29T05:38:22-07:00 2009-06-29T05:38:22-07:00 Start going through the published survey results and write R code that summarises the results. 510a11ab0ebfcf430ffaee5121cdff6037bccdb4 Kieren Diment kd@fenchurch.local