Nothing
rm.cols.Hst.ls <-
function(Hst.ls, rm.col.ndx) {
tau <- length(Hst.ls)
for(i in 1:tau) {
Hst.ls[[i]] <- Hst.ls[[i]][ , -rm.col.ndx, drop=FALSE ]
}
return(Hst.ls)
}
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.