R/getformula.R

In schmid86/cERGM: A package to fit citation Exponential Random Graph Models

Defines functions getformula

Documented in getformula

getformula <- function(object, ...){

  if(class(object)!= "cERGM"){
    print("Not an cERGM object")
  }else{
    print(object$formula)
  }
}