Nothing
Sub.S <-
function(z, t, Mat, j){
index <- which(Mat[,j] == 1 & rowSums(Mat[, -j]) == 0)
Sj <- sum(z[index])
names(Sj) <- paste("S", j, sep="")
return(Sj)
}
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.