Nothing
indx.comp <- function(Xmat){
p <- ncol(Xmat)
IDX <- NULL
for (j in 1:p){
idxj <- list(which(!is.na(Xmat[,j])))
IDX <- c(IDX,idxj)
}
IDX
}
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.