Nothing
context("Plotting")
test_that("plot 3 views",{
data(example_SNP)
PCs <- cal.pc.linear(simsnp$snp, no.pc = 3)
file1 <- file.path(tempdir(),"Rplots.pdf")
pdf(file1)
res <- plot3views( PCs$PC, sample_labels)
dev.off()
expect_equal(res, NULL)
file.remove(file1)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.