Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
78 lines (55 sloc) 1.82 KB
#
# trick93.R, 21 Apr 20
# Data from:
# What Enumeration Studies Can Show Us About Spatial Attention: {Evidence} for Limited Capacity Preattentive Processing
# Lana M. Trick and Zenon W. Pylyshyn
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG experiment_human visual_attention human_response-time
source("ESEUR_config.r")
library("plyr")
plot_layout(2, 2, max_width=6.5, max_height=6.5)
par(mar=MAR_default-c(2.2, -0.2, 0.8, 1.0))
pal_col=rainbow(3)
trick=read.csv(paste0(ESEUR_dir, "developers/trick93.csv.xz"), as.is=TRUE)
plot_resp=function(df)
{
lines(df$response, col=pal_col[3-df$distractors/2])
}
plot(0, type="n", bty="o", fg="grey",
xaxt="n", yaxt="n",
xlim=c(0, 10), ylim=c(0, 10),
xlab="", ylab="")
text(2, 8, "X", cex=2.2)
text(3, 3, "X", cex=2.2)
text(6, 4.5, "X", cex=2.2)
text(7.1, 7.4, "X", cex=2.2)
text(3.1, 6.2,"O", cex=2.2)
text(5, 2, "O", cex=2.2)
text(8, 6, "O", cex=2.2)
plot(trick$response, type="n", cex.axis=2.0,
xlim=c(1, 8),
xlab="Items", ylab="")
OX=subset(trick, symbol == "OX")
d_ply(OX, .(distractors), plot_resp)
legend(x="topleft", legend=c("4 distractors", "2 distractors", "0 distractors"), bty="n", fill=pal_col, cex=2.2)
plot(0, type="n", bty="o", fg="grey",
xaxt="n", yaxt="n",
xlim=c(0, 10), ylim=c(0, 10),
xlab="", ylab="")
text(1, 8.2, "Q", cex=2.2)
text(4.5, 4.1, "Q", cex=2.2)
text(6.5, 4.8, "Q", cex=2.2)
text(8.5, 7.4, "Q", cex=2.2)
text(2.7, 3.9, "O", cex=2.2)
text(4.1, 7.0, "O", cex=2.2)
text(6.7, 7.1, "O", cex=2.2)
plot(trick$response, type="n", cex.axis=1.8, cex.lab=1.9,
xlim=c(1, 8),
xlab="Items", ylab="Response time\n")
OQ=subset(trick, symbol == "OQ")
d_ply(OQ, .(distractors), plot_resp)
legend(x="topleft", legend=c("4 distractors", "2 distractors", "0 distractors"), bty="n", fill=pal_col, cex=2.2)