inst/snippet/domedata-step.R

dome.lm1 <- lm(Dist~Velocity+Angle+BallWt+BallDia+Cond, data=domedata)
step(dome.lm1,direction="both")
dome.lm2 <- lm(Dist~Velocity+Cond,data=domedata)
###hop:3-9
summary(dome.lm2)
anova(dome.lm2,dome.lm1)
dome.lm3 <- lm(Dist~Velocity+Cond+BallDia,data=domedata)
anova(dome.lm2,dome.lm3)

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on July 28, 2017, 1:02 a.m.