R/print.summary.BAEssd.R

Defines functions print.summary.BAEssd

Documented in print.summary.BAEssd

print.summary.BAEssd <-
function(x,...){
  cat("\nSummary of Average Errors from Sample Size Determination\n")
  
  cat("\nSample Size: ",x["n"])
  
  cat("\nAverage Errors: ",
      "\n   Average Bayes Type-I Error:  ",round(x["AE1"],3),
      "\n   Average Bayes Type-II Error: ",round(x["AE2"],3),
      "\n   Total Weighted Error:        ",round(x["TWE"],3),
      "\n   Total Error:                 ",round(x["TE"],3))
  
  cat("\n\nKey Parameters: ",
      "\n   Bound on TE:   ",attr(x,"alpha"),
      "\n   Chosen weight: ",attr(x,"w"),"\n\n")
}

Try the BAEssd package in your browser

Any scripts or data that you put into this service are public.

BAEssd documentation built on May 29, 2017, 4:12 p.m.