Nothing
print.cv.npmr <-
function(x, ...) {
rank = qr(x$fit$B[,,1])$rank
error = x$error[which(x$lambda == x$lambda.min)]/x$n
cat('\n Call:\n')
print(x$call)
cat('\n')
cat('Optimal lambda: ')
cat(x$lambda.min, '\n')
cat('Rank of fitted coefficient matrix: ')
cat(rank, '\n')
cat('Mean CV error: ')
cat(error, '\n\n')
}
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.