Just to follow up on my suggestion (the rest snipped).
I have run an R simulation of a model (with non-zero interaction terms)
to check on what I suggested previously. R code with comments follows.
With the system of contrasts used in the regression, the true
effect and interaction values are:
Intercept = 0.0000
XB = 2.0000 XC = 5.0000
ZB = 2.0000
XB:ZB = 1.0000 XC:ZB = 1.0000
You can see that the SE for the XC:ZB interaction is much larger
that the SEs for the other effects, coming out at 1.055 throughout,
i.e. basically the same as the SD 1.0 of the N(mu,1) data points,
while the others range from 0.2 down to 0.05 depending on the
associated N.
Following the first run, the single data point corresponding
to X=C, Z=B is changed (sampling from the same N(8,1) distribution
as in the first run), leaving the other 1505 data unchanged, and
this is done three times (four runs in all).
The estimates of all effects and interactions are unchanged (to 4 d.p.)
in the repeated runs, except for the XC:ZB interaction which (in the
four repeats) gets estimates
-0.32126, 1.72541, 0.27920, 0.15458
(to be compared with its true value 1.0000). Now read on:
# Z=A Z=B
# X=A 590 100
# X=B 490 46
# X=C 279 1
X <- factor(c(rep("A",590),rep("B",490),rep("C",279),
rep("A",100),rep("B", 46),rep("C", 1)))
Z <- factor(c(rep("A",590+490+279),rep("B",100+46+1)))
# Total N = 1506
m.AA <- 0 ; m.BA <- 2 ; m.CA <- 5
m.AB <- 2 ; m.BB <- 5 ; m.CB <- 8
mu <- c(rep(m.AA,590),rep(m.BA,490),rep(m.CA,279),
rep(m.AB,100),rep(m.BB, 46),rep(m.CB, 1))
set.seed(54321)
Y <- rnorm(1506,mu,1)
print(summary(lm(Y ~ X*Z))$coef,4)
# Estimate Std. Error t value Pr(>|t|)
# (Intercept) -0.03639 0.04149 -0.8771 3.806e-01
# XB 1.95764 0.06160 31.7801 6.717e-170
# XC 4.98101 0.07323 68.0215 0.000e+00
# ZB 2.12411 0.10899 19.4890 1.383e-75
# XB:ZB 0.92999 0.18982 4.8992 1.066e-06
# XC:ZB -0.32126 1.01550 -0.3164 7.518e-01
Y.N <- Y[1506] # Save it for future reference in case needed
Y[1506] <- m.CB + rnorm(1) #change it
print(summary(lm(Y ~ X*Z))$coef,4)
# Intercept, XB, XC, ZB and XB:ZB unchanged from above.
# XC:ZB 1.72541 1.01550 1.699 8.951e-02
Y[1506] <- m.CB + rnorm(1) #change it again
print(summary(lm(Y ~ X*Z))$coef,4)
# Intercept, XB, XC, ZB and XB:ZB unchanged from above.
# XC:ZB 0.27920 1.01550 0.2749 7.834e-01
Y[1506] <- m.CB + rnorm(1) #change it again
print(summary(lm(Y ~ X*Z))$coef,4)
# Intercept, XB, XC, ZB and XB:ZB unchanged from above.
# XC:ZB 0.15458 1.01550 0.1522 8.790e-01
#########################################################
Ted.
--------------------------------------------------------------------
E-Mail: (Ted Harding) <Ted.H...@manchester.ac.uk>
Fax-to-email: +44 (0)870 094 0861
Date: 25-Nov-09 Time: 14:52:43
------------------------------ XFMail ------------------------------