R/Add_Intercept_Term.R

Defines functions add_intercept_term add_diagonal_term

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)
}

Try the GERGM package in your browser

Any scripts or data that you put into this service are public.

GERGM documentation built on May 2, 2019, 5:14 a.m.