Revision 4f2efb4ed8831a90968ef063d2403d675c84dae3 authored by Matthias Templ on 26 November 2013, 12:55:44 UTC, committed by cran-robot on 26 November 2013, 12:55:44 UTC
1 parent 2ad963b
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 ...
