# NOT RUN {
library(pvca)
data(esSim)
print(esSim)
# expression data
dat = exprs(esSim)
print(dim(dat))
print(dat[1:2,])
# create a fake Batch variable
esSim$Batch=c(rep("A", 4), rep("B", 6), rep("C", 10))
# phenotype data
pDat = pData(esSim)
print(dim(pDat))
print(pDat[1:2,])
# feature data
fDat = fData(esSim)
print(dim(fDat))
print(fDat[1:2,])
statVisual(type = 'PVCA',
clin_data = pData(esSim),
clin_subjid = "sid",
gene_data = exprs(esSim),
batch.factors = c("grp", "Batch"))
PVCA(
clin_data = pData(esSim),
clin_subjid = "sid",
gene_data = exprs(esSim),
batch.factors = c("grp", "Batch"))
# }
Run the code above in your browser using DataLab