demo/cs40.r

data (seeds.df)
interactionPlots(Count~Water+Light,data=seeds.df)
seeds.df<-within(seeds.df,{Water.F<-factor(Water)})
seed.fit<-lm(Count~Water.F+Light+Water.F*Light,data=seeds.df)
eovcheck(seed.fit)
summary2way(seed.fit,page="table")
normcheck(seed.fit)
summary2way(seed.fit,page="interaction")
interactionPlots(Count~Light+Water,data=seeds.df)

Try the s20x package in your browser

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

s20x documentation built on Aug. 21, 2023, 5:07 p.m.