Nothing
Y.matrix.gen <- function(k, kd, nobs, y.train) {
XI <- XI.gen(k = k, kd = kd)
Y.matrix <- matrix(data = 0.0, nrow = nobs, ncol = k-1L)
for( ii in 1L:nobs ) Y.matrix[ii,] <- XI[,y.train[ii]]
return( Y.matrix )
}
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.