Nothing
EMMax.sd.const <-
function(y,z,mu) {
sd <- sqrt( weighted.mean((rep(y,length(mu)) - rep(mu, each=length(y)))^2, as.vector(z)))
sigma <- rep(sd,length(mu))
sigma[sigma < 0.01] <- 0.01
sigma
}
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.