R/4-fema-summary-print.R

In aslez/femaR: femaR Executes My Analysis in R

print.summary.fema <- function(x){
  cat("\nField Measures\n")
  cat("\nTotal Effect:", x$total.effect)
  cat("\nRange:", x$range)
  cat("\nStandardized Effect:", x$std.effect)
  cat("\nStrength:", x$strength)
}