compare Basal vs E2 condition.

RIP-seq.Rmd

@@ -715,3 +715,15 @@ allsnotx_e2_rpkm$tx_name <- as.character(gencode_sn_mapping[sn_inx,"V4"])
 allsnotx_e2_rpkm$gene_name <- as.character(gencode_sn_mapping[sn_inx,"V3"])
 write.table(allsnotx_e2_rpkm, file="mcf-7-e2-snRNA_RPKM_1_FC_2.tsv", quote=F, sep="\t", row.names=F, col.names=T)
 ```
+
+# Overlap of snoRNA and snRNA
+``` {r snoRNA Overlap}
+
+# Overlap (A)
+basal_unique <- unique(mlk_gr_snotx$tx_name)
+e2_unique <- unique(mlke_gr_snotx$tx_name)
+overlap <- calculate.overlap(x = list("Basal" = basal_unique,"E2" = e2_unique))
+jpeg('venndigram_basal_E2_snoRNA.jpg') 
+draw.pairwise.venn(area1 = length(overlap$a1), area2 = length(overlap$a2), cross.area = length(overlap$a3),col = c("royalblue4", "seagreen4"),lwd=4)
+dev.off()
+```