Nothing
coef.liu <- function(object, ...) {
scaledcoef <- t(as.matrix(object$coef / object$xscale))
if (object$Inter) {
inter <- mean(object$mf[,1]) - scaledcoef %*% object$xm
scaledcoef <- cbind(Intercept = inter, scaledcoef)
colnames(scaledcoef)[1] <- "Intercept"
}else{
scaledcoef <- t(as.matrix(object$coef / object$xscale))
}
drop(scaledcoef)
}
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.