file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
productive.aa <- productiveSeq(file.list = file.list, aggregate = "aminoAcid")
# Plot a triple Venn diagram
commonSeqsVenn(samples = c("TCRB_Day0_Unsorted",
"TCRB_Day32_Unsorted", "TCRB_Day83_Unsorted"),
productive.seqs = productive.aa)
# Plot a double Venn diagram
commonSeqsVenn(samples = c("TCRB_Day0_Unsorted",
"TCRB_Day32_Unsorted"), productive.seqs = productive.aa)
# Save Venn diagram as a .png file to working directory
png(filename = "Venn diagram.png", res = 300, units = "in", height = 5, width = 5)
commonSeqsVenn(samples = c("TCRB_Day0_Unsorted", "TCRB_Day32_Unsorted"),
productive.seqs = productive.aa)
dev.off()
Run the code above in your browser using DataLab