Permalink
Cannot retrieve contributors at this time
| # | |
| # sdarticle.R, 8 Jan 17 | |
| # Data from: | |
| # Knowledge Organization and Skill Differences in Computer Programmers | |
| # Katherine B. McKeithen and Judith S. Reitman and Henry H. Ruster and Stephen C. Hirtle | |
| # | |
| # Example from: | |
| # Empirical Software Engineering using R | |
| # Derek M. Jones | |
| source("ESEUR_config.r") | |
| library("plyr") | |
| plot_layout(2, 1) | |
| pal_col=rainbow(3) | |
| plot_perf=function(df) | |
| { | |
| plot(df$trial, df$lines, type="n", | |
| ylim=range(lread$lines), | |
| xlab="Trial", ylab="Lines recalled") | |
| d_ply(df, .(level), function(df) lines(df$trial, df$lines, type="b", col=df$col)) | |
| legend(x="topleft", legend=rev(col_order$level), bty="n", fill=rev(col_order$col), cex=1.2) | |
| } | |
| lread=read.csv(paste0(ESEUR_dir, "developers/sdarticle.csv.xz"), as.is=TRUE) | |
| lread$col=pal_col[as.factor(lread$level)] | |
| col_order=unique(data.frame(level=lread$level, col=lread$col)) | |
| col_order$col=as.character(col_order$col) | |
| normal=subset(lread, organization == "normal") | |
| scrambled=subset(lread, organization != "normal") | |
| plot_perf(normal) | |
| plot_perf(scrambled) | |