tmodPCA(pca, loadings = NULL, genes, tmodfunc = "tmodCERNOtest",
plotfunc = pca2d, mode = "simple", components = c(1, 2),
plot.params = NULL, filter = TRUE, simplify = TRUE, legend = FALSE,
...)
By default, the plotting function is pca2d from the pca3d package. Any additional parametrs for pca2d can be passed on using the plot.params parameter. You can define your own function instead of pca2d, however, mind that in any case, there will be two parameters passed to it on the first two positions: pca and components, named "pca" and "components" respectively.
data(Egambia)
E <- as.matrix(Egambia[,-c(1:3)])
pca <- prcomp(t(E), scale.=TRUE)
group <- rep(c("CTRL", "TB"), each=15)
tmodPCA(pca,
genes=Egambia$GENE_SYMBOL,
components=4:3,
plot.params=list(group=group))
Run the code above in your browser using DataLab