Permalink
Cannot retrieve contributors at this time
| # | |
| # 20619ca.R, 20 Feb 19 | |
| # Data from: | |
| # THE SERIAL POSITION EFFECT OF FREE RECALL | |
| # Bennet B. Murdoch, Jr | |
| # via | |
| # A Temporal Ratio Model of Memory | |
| # Gordon D. A. Brown and Ian Neath and Nick Chater | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG experiment_human human_memory recall_memory | |
| source("ESEUR_config.r") | |
| library("plyr") | |
| pal_col=rainbow(6) | |
| #visible,position,probability | |
| recall=read.csv(paste0(ESEUR_dir, "developers/20619brown.csv.xz"), as.is=TRUE) | |
| # There are two lists of length 20 | |
| recall$vis_len=paste0(recall$length, "_", recall$visible) | |
| list_len=unique(recall$vis_len) | |
| recall$col_str=mapvalues(recall$vis_len, list_len, pal_col) | |
| plot(0, type="n", | |
| yaxs="i", | |
| xlim=c(1, 40), ylim=c(0, 1), | |
| xlab="Serial position", ylab="Recall probability\n") | |
| d_ply(recall, .(vis_len), function(df) | |
| lines(1:nrow(df), df$recall, type="b", col=df$col)) | |
| # legend(x="bottomright", legend=list_len, bty="n", fill=pal_col, cex=1.2) | |