Nothing
contr.wec <-
function(x, omitted)
{
frequencies <- table(x)
n.cat <- length(table(x))
omitted <- which(levels(x) == omitted)
new.contrasts <- contr.treatment(n.cat, base=omitted)
new.contrasts[omitted,] <- -1 * frequencies[-omitted] / frequencies[omitted]
colnames(new.contrasts) <- names(frequencies[-omitted])
return(new.contrasts)
}
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.