Nothing
M <- cbind( # model matrix
"C1" = rep(c(-1,-1,1,1),each=4)/2, # C1
"C2" = rep(c(-1,1,-1,1),each=4)/2, # C2
"C3" = rep(c(1,-1,-1,1),each=4)/4 # C3
)
taste.lm2 <- lm(score~M,data=tastetest)
###hop:3-9
summary(taste.lm2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.