Nothing
effectsStdErr <-
function (reg)
{
if (!inherits(reg, "lm") && !inherits(reg, "nls")) {
stop("Object of class \"lm\" expected\n")
}
summary.effects <- summary(reg)
aliased <- summary.effects$aliased
stderr <- rep("NA", length(aliased))
stderr[!aliased] <- summary.effects$coefficients[, "Std. Error"]
stderr[stderr == "NA"] <- NA
return(as.numeric(stderr))
}
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.