Permalink
Cannot retrieve contributors at this time
# | |
# BF032.R, 9 Oct 20 | |
# Data from: | |
# Michiel P. {van Oeffelen} and Peter G. Vos | |
# A probabilistic model for the discrimination of visual number | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG experiment_human visual_number | |
source("ESEUR_config.r") | |
library("plyr") | |
pal_col=rainbow(6) | |
human=read.csv(paste0(ESEUR_dir, "developers/BF032.csv.xz"), as.is=TRUE) | |
human$col=pal_col[mapvalues(human$s, c(8, 12, 16, 20, 25, 30), 1:6)] | |
human=human[order(human$d), ] | |
plot(0, type="n", | |
xlim=c(-6, 6), ylim=c(0.5, max(human$p)), | |
xlab="Difference (actual-target)", ylab="Probability correct\n") | |
d_ply(human, .(s), function(df) | |
{ | |
is_neg=(df$d < 0) | |
lines(df$d[is_neg], df$p[is_neg], type="b", col=df$col) | |
lines(df$d[!is_neg], df$p[!is_neg], type="b", col=df$col) | |
}) | |
legend(x="bottomleft", legend=paste(c(8, 12, 16, 20, 25, 30), "target"), | |
inset=-c(0.02, 0), bty="n", fill=pal_col, cex=1.2) | |