search for: fitx1x

...;- c(c(1:10), c(11:20))+runif(20, min, max) g <- as.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...