R/print.NSM3Ch5p.R

In NSM3: Functions and Datasets to Accompany Hollander, Wolfe, and Chicken - Nonparametric Statistical Methods, Third Edition

print.NSM3Ch5p <-
function(x,...){
	if(!is.null(x$ties)&&x$ties){cat("Ties are present, so p-values are based on conditional null distribution. \n")}
  cat(paste0("Number of X values: ", x$m, " Number of Y values: ", x$n, "\n"))
	cat(paste0(x$stat.name, " Statistic: ", round(x$obs.stat,4) , "\n"))
	cat(paste0(x$method, " "))
	
  if(x$method=="Monte Carlo"){
		cat(paste0("(Using ", x$n.mc, " Iterations) "))
	}
  
	cat(paste0("upper-tail probability: ", ifelse(round(x$p.val,4)==0,x$p.val,round(x$p.val,4)), "\n"))
	
  if(!is.null(x$two.sided)){
		cat(paste0(x$method, " "))
		if(x$method=="Monte Carlo"){
			cat(paste0("(Using ", x$n.mc, " Iterations) "))
		}
		cat(paste0("two-sided p-value: ", round(x$two.sided,4),"\n \n"))
	}
	
  if(!is.null(x$extra)){
	  cat(x$extra, "\n")
	}
  
}