inst/snippet/ice-diff.R

surface <- ice[ice$Location=='surface',c("Treatment","T1930")]
intra <- ice[ice$Location=='intramuscular',"T1930"]
newdata <- cbind(surface,intra)
names(newdata) <- c('Treatment','SurfTemp','IntraTemp')
anova(lm(SurfTemp - IntraTemp ~ Treatment, newdata))

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.