Nothing
M <- cbind( # model matrix
"C1" = rep(c(-1, -1, 1, 1), each = 4)/8, # C1
"C2" = rep(c(-1, 1, -1, 1), each = 4)/8, # C2
"C3" = rep(c(1, -1, -1, 1), each = 4)/4 # C3
)
taste.lm2 <- lm(score ~ M, data = TasteTest)
msummary(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.