Revision 59ff873ea3ba72971eea37468630c07afdf517a2 authored by Matthias Templ on 11 January 2011, 09:31:03 UTC, committed by cran-robot on 11 January 2011, 09:31:03 UTC
1 parent 128cc5e
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)
}
}
Computing file changes ...
