Nothing
add_intercept_term <- function(formula) {
formula <- as.formula(formula)
parsed <- deparse(formula)
if (length(parsed) > 1) {
parsed <- paste0(parsed, collapse = " ")
}
if (grepl("intercept",parsed)) {
stop("The intercept term is specified automatically, please remove the 'intercept' term from your formula.")
}
parsed <- paste(parsed," + intercept",sep = "")
formula <- as.formula(parsed)
return(formula)
}
add_diagonal_term <- function(formula) {
formula <- as.formula(formula)
parsed <- deparse(formula)
if (length(parsed) > 1) {
parsed <- paste0(parsed, collapse = " ")
}
if (grepl("diagonal",parsed)) {
stop("The diagonal term is specified automatically, please remove the 'diagonal' term from your formula.")
}
parsed <- paste(parsed," + diagonal",sep = "")
formula <- as.formula(parsed)
return(formula)
}
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.