# get critical values to conduct Malik's test of additivity
# in an experiment with row and column factors with 4 and 5 levels,
# respectively
## Not run:
# data(cjejuni.mtx)
# cjejuni.out <- HiddenF(cjejuni.mtx)
# Malik.pvalue <- MalikPvalue(cjejuni.out)
# cjejuni.Malikobj <- Maliktab(4,5,N=1000)
# print(cjejuni.Malikobj$q)
# ## End(Not run)
Run the code above in your browser using DataLab