R/print.BAEssd.R

Defines functions print.BAEssd

Documented in print.BAEssd

print.BAEssd <-
function(x,...){
  cat("\nBayesian Average Error Sample Size Determination\n")
  
  cat("\nCall: ")
  print(x$call)
  
  cat("\nSample Size: ",x$n)
  cat("\nTotal Average Error: ",attr(x$n,"TE"))
  
  if(attr(x$n,"TE")<=attr(x$n,"alpha")){
    cat("\n\nAcceptable sample size determined!\n\n")
  }
  else{
    cat("\n\nMaximum sample size attempted and was unacceptable. ",
        "Try a larger sample size.\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.