test_that("Correlation of the PCs", {
pcaobj <- prcomp(t(assay(rlt_multifac)))
res <- correlatePCs(pcaobj, colData(dds_multifac))
expect_equal(dim(res), c(4, 2))
expect_equal(colnames(res), colnames(colData(dds_multifac)))
plotPCcorrs(res)
plotPCcorrs(res, logp = FALSE, pc = 2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.