LM.test <- function(dat, bet, se){ pval <- LM(0, dat, TRUE) ci <- confint(dat, bet, se) list(pval = pval, ci = ci) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.