search for: fitzx

....factor(c(rep(1, 10), rep(2, 10))) #x and x1 have similar slopes and have the similar intercepts, #x and y have different slopes and different intercepts #x and z have similar slopes with different intercepts #These are my full effects models fitx1x <- lm(x1~g+x+x:g) fityx <- lm(y~g+x+x:g) fitzx <- lm(z~g+x+x:g) anova(fitx1x) Analysis of Variance Table Response: x1 Df Sum Sq Mean Sq F value Pr(>F) g 1 0.002 0.002 0.3348 0.5709 x 1 163.927 163.927 23456....