# 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
# # do k-means cluster on genes
# gene.cluster <- macluster(fit.fix, term="Strain", idx, what="gene",
# method="kmean", kmean.ngroups=5, n.perm=100)
# # get the consensus group
# consensus(gene.cluster, 0.5)
#
# # HC cluster on samples
# sample.cluster <- macluster(fit.fix, term="Strain", idx, what="sample",method="hc")
# # get the consensus group
# consensus(sample.cluster, 0.5)## End(Not run)
Run the code above in your browser using DataLab