rm.effect <- function (x,effect,FUN=mean) { m=tapply(x,effect,FUN) x-m[as.character(effect)] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.