Nothing
revSigUnwtd <- function(phi,X,y,state) {
#
# Rough as guts.
#
yhat <- X%*%phi
rrr <- y-yhat
srr <- split(rrr,f=state)
sigma <- sapply(srr,sd,na.rm=TRUE)
names(sigma) <- paste0("sigma",1:length(sigma))
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.