R/print.IsingFit.R

In cvborkulo/IsingFit: Fitting Ising Models Using the ELasso Method

Defines functions print.IsingFit

Documented in print.IsingFit

print.IsingFit <-
function(x, ...)
{
  cat("Estimated network:\n")
  
  print(round(x$weiadj,2))
  
  cat("\n\nEstimated Thresholds:\n")
  
  print(x$thresholds)  
}