R/summary.netSEMp1.R

In netSEM: Network Structural Equation Modeling

##' summarize netSEMp1 result
##'
##' summary.netSEMp1 gives a summary about the netSEMp1 analysis.
##'
##' @title Summary of netSEMp1
##' @param object An object of class "netSEM", the returned list from netSEMp1().
##' @param ... A S3 generic/method consistency.
##' @return NULL. A summary of data and fitting result is printed on screen.
##'
##' @export
##'
##' @examples
##' data(acrylic)
##' ans <- netSEMp1(acrylic)
##' summary(ans)

summary.netSEMp1 <- function(object, ...) {
  cat("netSEM: It consideres all exagenous variables and finds the best 
      regression model \n")
  cat("\n")
  cat("Exogenous (Multiple exogenous):", colnames(object$bestModels)[-1], "\n")
  cat("Endegenous:", colnames(object$bestModels)[1], "\n")

  cat("\n")
  cat("Chosen models:\n")
  
  sapply(1:nrow(object$table), function(i) {
    paste(object$table[i,2], " ---> ", object$table[i,1],
          " | ", object$table[i,3], " (Adjusted R-square = ",
          round(as.numeric(object$table[i,5]), 5), ")", collapse = "\n",sep = "")
    }
  )
}