R/4-fema-summary-print.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)
}
aslez/femaR documentation built on May 12, 2019, 5:36 a.m.