Nothing
fitted.liu <- function(object,...) {
lfit1 <- object$lfit
fit<-(round(lfit1, 5))
rownames(fit)<-paste(seq(1:nrow(object$xs)))
fit
}
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.