inst/snippet/taste-anova.R

summary(score~type,data=tastetest,
	fun=function(x){cbind(mean=mean(x),sd=sd(x))})
taste.xy <- xyplot(score~type,data=tastetest)
taste.lm <- lm(score~type,data=tastetest)
anova(taste.lm)
###hop:3-12
taste.cint <- confint(glht(taste.lm,mcp(type="Tukey"))); taste.cint

Try the fastR package in your browser

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

fastR documentation built on May 2, 2019, 5:53 p.m.