coef.online_lm <- function(object, ...) { if (!object$qr$tol_set) { object$qr$singchk() } rval <- coef(object$qr) rval[object$qr$D == 0] <- NA names(rval) <- object$names rval }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.