Nothing
getTypeX <-
function(X){
typeX = rep(0,ncol(X))
for(i in 1:ncol(X)){ #numeric: 1; categorical: 2s
if(is.numeric(X[,i])){ typeX[i] = 1 }else{
typeX[i] = 2
}
}
return(typeX)
}
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.