Maximum Likelihood Conjoint Measurement in R
Kenneth Knoblauch¹, Blaise Tandeau de Marsac¹, Laurence T. Maloney²
- 1. Inserm, U846
Stem Cell and Brain Research Institute
- Dept. Integrative Neurosciences
Bron, France
- 2. Department of Psychology
Maximum Likelihood Conjoint Measurement in R Kenneth Knoblauch , - - PowerPoint PPT Presentation
Maximum Likelihood Conjoint Measurement in R Kenneth Knoblauch , Blaise Tandeau de Marsac , Laurence T. Maloney 1. Inserm, U846 Stem Cell and Brain Research Institute Dept. Integrative Neurosciences Bron, France 2. Department of
Ho, Landy & Maloney (2008) Psych Science
Ho, Landy & Maloney (2008) Psych Science
TIME Fixation 200ms Surface 1 400ms ISI (blank screen) 200ms Surface 2 400ms Response
Ho, Landy & Maloney (2008), Psych Science
n
Φ Rk is the cumulative standard Gaussian (a probit analysis) is 0/1 if the judgment is left/right image
Resp G1 G2 B1 B2 1 1 3 4 4 3 2 1 3 5 4 2 3 0 1 1 1 4 4 0 2 3 1 2 5 0 1 4 3 4 6 1 1 5 5 2
p₁ p₂ p₃ p₄ p₅ q₁ q₂ q₃ q₄ q₅
1 −1 −1 1 1 −1 −1 1 1 −1 1 −1 1 −1 1 −1 1 −1 1 −1 −1 1
> head(bg.df) Resp G2 G3 G4 G5 B2 B3 B4 B5 [1,] 1 0 1 -1 0 0 -1 1 0 [2,] 1 0 1 0 -1 -1 0 1 0 [3,] 0 0 0 0 0 0 0 -1 0 [4,] 0 1 -1 0 0 -1 0 0 0 [5,] 0 0 0 -1 0 0 1 -1 0 [6,] 1 0 0 0 -1 -1 0 0 1
1 2 3 4 5 2 4 6 8
Additive Model Estimates
Glossiness Judgments
Physical Gloss Level Obs: FC
B scale G scale
1 2 3 4 5 2 4 6 8 10 12
Additive Model Estimates
Bumpiness Judgments
Physical Bump Level Obs: RK
mlacm(x, model = "add", whichdim = NULL, lnk = "probit", control = glm.control(maxit = 50000, epsilon = 1e-14), ...)
> ( bg.add <- mlacm(BumpyGlossy) ) Maximum Likelihood Conjoint Measurement Model: Additive Perceptual Scale: G B Lev1 0.000 0.000 Lev2 0.132 1.693 Lev3 0.185 2.947 Lev4 0.504 4.281 Lev5 0.630 5.275 > ( bg.ind <- mlacm(BumpyGlossy, model = "ind", whichdim = 2) ) Maximum Likelihood Conjoint Measurement Model: Independence Perceptual Scale: [,1] B1 0.00 B2 1.66 B3 2.88 B4 4.16 B5 5.11
Additive Model Independent Model
> anova(bg.ind, bg.add, test = "Chisq") Analysis of Deviance Table Model 1: resp ~ X.B2 + X.B3 + X.B4 + X.B5 - 1 Model 2: resp ~ (X.G2 + X.G3 + X.G4 + X.G5 + X.B2 + X.B3 + X.B4 + X.B5) - 1
1 971 500.12 2 967 476.48 4 23.64 9.452e-05
> bg.full <- mlacm(BumpyGlossy, model = "full") Model: Full Perceptual Scale: B1 B2 B3 B4 B5 G1 0.000 1.757 2.672 4.094 5.121 G2 0.257 -7.198 -14.141 -15.091 -15.041 G3 0.316 -6.674 -13.647 -14.615 -14.360 G4 0.644 -6.198 -13.275 -13.880 -13.906 G5 0.808 -13.318 -20.783 -21.277 -21.341 > anova(bg.add, bg.full, test = "Chisq") Analysis of Deviance Table Model 1: resp ~ (X.G2 + X.G3 + X.G4 + X.G5 + X.B2 + X.B3 + X.B4 + X.B5) - 1 Model 2: resp ~ X.G2 + X.G3 + X.G4 + X.G5 + X.B2 + X.B3 + X.B4 + X.B5 + X.G2:X.B2 + X.G3:X.B2 + X.G4:X.B2 + X.G5:X.B2 + X.G2:X.B3 + X.G3:X.B3 + X.G4:X.B3 + X.G5:X.B3 + X.G2:X.B4 + X.G3:X.B4 + X.G4:X.B4 + X.G5:X.B4 + X.G2:X.B5 + X.G3:X.B5 + X.G4:X.B5 + X.G5:X.B5 - 1
1 967 476.48 2 951 451.66 16 24.82 0.07
A + wSp2 B
0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0
Physical Scale Perceptual Scale
R = SA + 0.5 SB
0.5
0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0
Physical Scale Perceptual Scale
R = SA + 0.5 SB
0.5
0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0
Physical Scale Perceptual Scale
R = SA
0.25 + 0.5 SB 4
0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0
Physical Scale Perceptual Scale
R = SA
25 + 0.5 SB 4