https://github.com/cran/robCompositions
Raw File
Tip revision: b075661d51a7a1ee9b00d94017b8a6be03730ba4 authored by Matthias Templ on 29 April 2009, 00:00:00 UTC
version 1.2.2
Tip revision: b075661
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