data(abf1)
## Not run:
# fit.full.simple = fitmaanova(abf1,formula = ~ Strain)
# # F-test strain effect
# ftest.all = matest(abf1, fit.full.simple, term="Strain", n.perm= 1000)
# # make FDR adjusted P values
# ftest.all = adjPval(ftest.all, 'jsFDR')
# summarytable(ftest.all, outfile='all.csv')
# smallset = summarytable(ftest.all, method ='Pvalperm',
# test=c('F1','Fs'), whichTest='Fs.Pvalperm', threshold = 0.1)
# ## End(Not run)
Run the code above in your browser using DataLab