# load in data
data(abf1)
# fit the anova model
## Not run:
# fit.fix = fitmaanova(abf1,formula = ~Strain)
# # test Strain effect
# test.fix = matest(abf1, fit.fix, term="Strain",n.perm= 1000)
# # pick significant genes - pick the genes selected by Fs test
# idx <- volcano(test.fix)$idx.Fs
# # generate FOM
# m <- fom(fit.fix, idx, "Strain", 10)## End(Not run)
Run the code above in your browser using DataLab