comparison pre_process_protein_name_set.R @ 19:c56ebf254e89 draft

Uploaded

18:b230824e1a0e

library(data.table)
library(affy)
library(stringr)
library(mygene)
library(VennDiagram)

      Tukeys_df[i,j] = 2^(tukey.biweight(mapped_peptides_unique_subset[,j]))
    }
  }
  return(Tukeys_df)
}

args <- commandArgs(trailingOnly = TRUE)
main(args[1])

19:c56ebf254e89

ins_check_run()
library(data.table)
library(affy)
library(stringr)
library(mygene)
library(VennDiagram)

      Tukeys_df[i,j] = 2^(tukey.biweight(mapped_peptides_unique_subset[,j]))
    }
  }
  return(Tukeys_df)
}
ins_check_run <- function() {
  if ("affy" %in% rownames(installed.packages())){}
  else {
    source("https://bioconductor.org/biocLite.R")
    biocLite(c('mygene','affy'))
  }
  if ('data.table' %in% rownames(installed.packages())){}
  else {
    install.packages('data.table', repos='http://cran.us.r-project.org')
  }
  if ('stringr' %in% rownames(installed.packages())){}
  else {
    install.packages('stringr', repos='http://cran.us.r-project.org')
  }
  if ('VennDiagram' %in% rownames(installed.packages())){}
  else {
    install.packages('VennDiagram', repos='http://cran.us.r-project.org')
  }
}

args <- commandArgs(trailingOnly = TRUE)
main(args[1])