Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
75 lines (57 sloc) 2.92 KB
#
# kintsch73.R, 11 Jul 18
# Data from:
# Comprehension and Recall of Text as a Function of Content Variables
# W. Kintsch and E. Kozminsky and W. J. Streby and G. McKoon and J. M. Keenan
#
# Example from:
# Evidence-based Software Engineering using R
# Derek M. Jones
#
# TAG reading comprehension recall
source("ESEUR_config.r")
plot(0, type="n", bty="n",
xlim=c(0.05, 2.15), ylim=c(0.05, 1.9),
xaxs="i", yaxs="i",
xaxt="n", yaxt="n",
xlab="", ylab="")
off=1.2
text(0, off+0.65, "Romulus, the legendary founder of Rome, took", pos=4)
text(0, off+0.55, " the women of the Sabine by force.", pos=4)
text(0, off+0.4, "1 (took, Romulus, women, by force)", pos=4, col=point_col)
text(0, off+0.3, "2 (found, Romulus, Rome)", pos=4, col=point_col)
text(0, off+0.2, "3 (legendary, Romulus)", pos=4, col=point_col)
text(0, off+0.1, "4 (Sabine, women)", pos=4, col=point_col)
text(1.5, off+0.24, "1 ")
# arrow right 0.15
text(1.5+0.15, off+0.24, " 3", pos=4)
arrows(x0=1.5, y0=off+0.24, x1=1.5+0.25, length=0.05, col=point_col)
text(1.5+0.15, off+0.24+0.15, " 2", pos=4)
arrows(x0=1.5, y0=off+0.24, x1=1.5+0.25, y1=off+0.24+0.15, length=0.05, col=point_col)
text(1.5+0.15, off+0.24-0.15, " 4", pos=4)
arrows(x0=1.5, y0=off+0.24, x1=1.5+0.25, y1=off+0.24-0.12, length=0.05, col=point_col)
text(0, 1.05, "Cleopatra's downfall lay in her foolish trust in the", pos=4)
text(0, 0.95, " fickle political figures of the Roman world.", pos=4)
text(0, 0.8, expression("1 (because, "*alpha*", "*beta*")"), pos=4, col=point_col)
text(0, 0.7, expression("2 "*alpha*" "%->%" (fell down, Cleopatra)"), pos=4, col=point_col)
text(0, 0.6, expression("3 "*beta*" " %->%" (trust, Cleopatra, figures)"), pos=4, col=point_col)
text(0, 0.5, "4 (foolish, trust)", pos=4, col=point_col)
text(0, 0.4, "5 (fickle, figures)", pos=4, col=point_col)
text(0, 0.3, "6 (political, figures)", pos=4, col=point_col)
text(0, 0.2, "7 (part of, figures, world)", pos=4, col=point_col)
text(0, 0.1, "8 (Roman, world)", pos=4, col=point_col)
text(1.3+0.00, 0.45+0.00, "1")
text(1.3+0.20, 0.45+0.00, " 3", pos=4)
arrows(x0=1.35, y0=0.45, x1=1.35+0.20, length=0.05, col=point_col)
text(1.3+0.05+0.40, 0.45+0.00, " 4", pos=4)
arrows(x0=1.35+0.10+0.20, y0=0.45, x1=1.35+0.10+0.2+0.15, length=0.05, col=point_col)
text(1.3+0.20, 0.45+0.15, " 2", pos=4)
arrows(x0=1.35, y0=0.45, x1=1.35+0.20, y=0.45+0.15, length=0.05, col=point_col)
text(1.3+0.05+0.40, 0.45-0.15, " 5", pos=4)
arrows(x0=1.35+0.10+0.20, y0=0.45, x1=1.35+0.10+0.2+0.15, y1=0.45-0.15, length=0.05, col=point_col)
text(1.3+0.10+0.60, 0.45-0.15, " 6", pos=4)
arrows(x0=1.35+0.10+0.45, y0=0.45-0.15, x1=1.35+0.10+0.2+0.40, length=0.05, col=point_col)
text(1.3+0.05+0.40, 0.45-0.30, " 7", pos=4)
arrows(x0=1.35+0.10+0.20, y0=0.45, x1=1.35+0.10+0.2+0.15, y1=0.45-0.30, length=0.05, col=point_col)
text(1.3+0.10+0.60, 0.45-0.30, " 8", pos=4)
arrows(x0=1.35+0.10+0.45, y0=0.45-0.30, x1=1.35+0.10+0.2+0.40, length=0.05, col=point_col)