https://github.com/cran/robCompositions
Raw File
Tip revision: 165037e6629b3969bb2024b9b74bc0bc78b6e1c4 authored by Matthias Templ on 27 February 2013, 00:00:00 UTC
version 1.6.3
Tip revision: 165037e
summary.adtestWrapper.R
summary.adtestWrapper=function(object,...){
	d=data.frame(ilrVars=unlist(object$info),
			testName=unlist(lapply(object$res,function(x) x$method)),
			testStat=unlist(lapply(object$res,function(x) x$statistic)),
			pvalue=unlist(lapply(object$res,function(x) x$p.value)),
			#alpha=object$alpha,
			check=object$check)
#d=lapply(res,function(x) x$info)
	string <- paste("Anderson-Darling test results ( alpha =", object$alpha, "):")
	string2 <- paste("--> p-values and tests are obtained from", object$est, "estimates.")
	cat("\n  -----------------------------------------------")	
	cat("\n ", string)
	cat("\n  ----------------\n")
	print(d)
	cat("\n  -----------------------------------------------\n")
	cat("\n ", string2)
	cat("\n")
	invisible(d)
}
back to top