R/getformula.R

In schmid86/bootERGM: Exponential Random Graph Models with Parametric Bootstrapped Pseudolikelihood

Defines functions getformula

Documented in getformula

getformula <- function(object){
  
  if(class(object)!= "bootERGM"){
    print("Not a bootERGM object")
  }else{
    print(object$formula)
  }
}