Nothing
PROPs <-
function(X, dummy=TRUE, pos=NULL){
if (dummy == TRUE){
X = as.matrix(X[,c(pos)])
salida = (colMeans(X))*100
} else {
salida = "At least one qualitative independent variable are needed (excluding the intercept)"
}
return(salida)
}
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.