R/print.momtest.R

In MOM: Estimation and Testing of Hypothesis

#' @keywords internal
#' @export
print.momtest=function(x,...,verbose=TRUE)
{
  if(verbose==TRUE)
  {
  cat(x$Method,"\n\n")
  cat("Data: ",x$Data,"\n")
  cat("Null Distribution: ",x$Null.Distribution,"\n")
  cat("Null Parameter: ",x$Null.Parameter,"\n")
  cat("Alternative Distribution: ",x$Alternative.Distribution,"\n")
  cat("Alternative Parameter: ",x$Alternative.Parameter,"\n")
  cat("Sample Size: ",x$Sample.Size,"\n")
  cat("Significance Level: ",x$Significance.level,"\n")
  cat("Decision: ",x$Decision,"\n")
  cat("Power: ",x$Power,"\n")
  }
}