Nothing
"sos" <- function(x, method="mean", foc=NULL, normal.sp=TRUE, normal.pl=TRUE) {
x <- x[,colSums(x)>0]
subtra <- switch(method,
mean = apply(x, 2, mean, na.rm=TRUE),
foc = as.numeric(x[foc,]))
res <- sum((t(x)-subtra)^2)
if(normal.sp){ res <- res/ncol(x) }
if(normal.pl){ res <- res/nrow(x) }
names(res) <- "sososm"
res
}
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.