Difference Scaling of Transparency
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.
A data frame with 2520 observations on the following 6 variables.
a numeric vector taking on values of 0 and 1 indicating responses of observer.
a numeric vector, rank order of weakest stimulus on the physical scale for a given trial.
a numeric vector, rank order of physical stimulus 2 for the trial.
a numeric vector , rank order of physical stimulus 3 for the trial.
a numeric vector, rank order of strongest stimulus on the physical scale for a given trial.
a factor identifying observers with levels
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.
1 2 3 4 5 6 7 8 9 10 11
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"))
Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.