daneman1980.R

#
# daneman1980.R, 29 May 20
# Data from:
# Individual Differences in Working Memory and Reading
# Meredyth Daneman and Patricia A. Carpenter
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG experiment_human reading_text text_prose comprehension_text


source("ESEUR_config.r")


library("plyr")

pal_col=rainbow(4)


plot_span=function(df)
{
lines(df$Distance, df$Correct, col=df$col_str, type="b")
}


dane=read.csv(paste0(ESEUR_dir, "sourcecode/daneman1980.csv.xz"), as.is=TRUE)

dane$col_str=mapvalues(dane$Read_span, 2:5, pal_col)

plot(0, type="n",
	xaxt="n", yaxs="i",
	xlim=c(1, 3), ylim=c(0, max(dane$Correct)+0.1),
	xlab="Sentences between information", ylab="Correct responses (percent)\n")
axis(1, at=1:3, labels=c("2-3", "4-5", "6-7"))

d_ply(dane, .(Read_span), plot_span)

# Align legend colors with plot order
legend(x="bottomleft", legend=paste0("reading span ", 5:2), bty="n", fill=rev(pal_col), cex=1.2)