Transparency | R Documentation |
The data set was obtained from an experiment in which observers judged the differences between pairs of image pairs containing transparent pebble-shaped objects. The refractive indice (RI) of the transparent material of each object was varied systematically across the four images.
data(Transparency)
A data frame with 2520 observations on the following 6 variables.
resp
a numeric vector taking on values of 0 and 1 indicating responses of observer.
S1
a numeric vector, rank order of weakest stimulus on the physical scale for a given trial.
S2
a numeric vector, rank order of physical stimulus 2 for the trial.
S3
a numeric vector , rank order of physical stimulus 3 for the trial.
S4
a numeric vector, rank order of strongest stimulus on the physical scale for a given trial.
Obs
a factor identifying observers with levels O1
... O6
.
The physical scale is RI and the psychophysical scale is estimated using MLDS. Observers were not told to base their judmgents on RI (RI was not mentioned in instructions) but to judge apparent differences. Fleming et al (2007) conjectured that observers used a measure of the distortion of the background as seen through each transparent object in judging differences.
Fleming, R., J\"akel, F., Maloney, L. T. (2007) Visual perception of refractive materials Journal of Vision 7, 561.
Trsp.mlds <- mlds(as.mlds.df(Transparency[, -6], st = attr(Transparency, "stimulus")))
plot(Trsp.mlds, xlab = "Index of Refraction", type = "l",
ylab = "Difference Scale", ylim = c(0, 20),
lwd = 3)
Trsp.Obs <- sapply(levels(Transparency$Obs), function(obs)
mlds(as.mlds.df(subset(Transparency, Obs == obs,
select = 1:5), st = attr(Transparency, "stimulus"))),
simplify = FALSE, USE.NAMES = TRUE)
invisible(sapply(Trsp.Obs, lines, type = "b"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.