R/summary_bootERGM.R

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

summary.bootERGM<- function(object){
  
  
  cat("================================================\n")
  cat("          Parametric Bootstrap Results          \n")
  cat("================================================\n")
  cat(" \n")
  cat("Formula: ")
  print(object$formula)
  cat(" \n")
  cat("Bootstrap Samples: ", nrow(object$boot.mple.matrix), "\n")
  cat(" \n")
  cat("95% Bootstrap Confidence Intervals: \n")
  cat(" \n")
  print(object$boot.interval)
  
  
}