Revision 823295fe4c382069229ac77435da6e5bb14155b9 authored by Matthias Templ on 11 January 2013, 16:29:55 UTC, committed by cran-robot on 11 January 2013, 16:29:55 UTC
1 parent bea0f62
Raw File
print.adtestWrapper.R
print.adtestWrapper <- function(x,...){
	if(all(x$check)){
		print(paste("The data follow the normal distribution on the simplex (alpha =",x$alpha,")",sep=""))
	} else { 
		print(paste("The data do not follow the normal distribution on the simplex (alpha =",x$alpha,")",sep=""))
		#print(x$check)
}
}
back to top