powered by
vit2005
attach(vit2005) Elevator <- as.factor(elevator) modTotal <- lm(totalprice~area+Elevator+area:Elevator) modSimpl <- lm(totalprice~area) anova(modSimpl,modTotal) detach(vit2005)
Run the code above in your browser using DataLab