### RNAseq is a 3-dimensional array
data(RNAseq)
group = as.factor(rep(c("G1","G2"), each = 10))
## Strategy 1
model3D = lpda.3D(RNAseq, group)
summary(model3D)
predict(model3D)
plot(model3D, mfrow=c(2,2))
## Strategy 2: with parafac
model3Ds2 = lpda.3D(RNAseq, group, pfac=TRUE, nfac=2)
model3Ds2$MOD$mod.pfac$Rsq
predict(model3Ds2)
summary(model3Ds2)
plot(model3Ds2, pfacscores=FALSE, main="Parafac Model", mfrow=c(1,1))
plot(model3Ds2, pfacscores=TRUE, cex=1.5, main="Parafac components")
legend("bottomright", levels(group), col=c(2,3), pch=20)
Run the code above in your browser using DataLab