--- a
+++ b/R/Proteomics_comparison.R
@@ -0,0 +1,11 @@
+require(data.table)
+d <- fread("/Users/ftaj/Downloads/primary-screen-replicate-collapsed-logfold-change.csv")
+p <- fread("/Users/ftaj/Downloads/Table_S1_Sample_Information.csv")
+c <- fread("/Users/ftaj/Downloads/sample_info-2.csv")
+
+c <- c[, c("DepMap_ID", "CCLE_Name")]
+cp <- merge(c, p, by.x = "CCLE_Name", by.y = "CCLE Code")
+p
+ 
+sum(cp$DepMap_ID %in% d$V1)/375
+colnames(d)
\ No newline at end of file