comparison bubbles_v9_NSAF_natural_log.R @ 4:8eb1dd926f6e draft

Uploaded

3:463a0ca33d7f

###################################################################################################
cutoff_check <- function(cutoff){
  if( any(cutoff < 0 | cutoff > 1) ) stop('SAINT score cutoff not between 0 and 1. Please correct and try again')
}

#args <- commandArgs(trailingOnly = TRUE)
#main(args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],args[9])

#main("test_list.txt", "preytest.txt", crapome="craptest.txt", color="crapome", label=TRUE)
#main("Crizo_list.txt", "prey_cr.txt", crapome = "crizo_crap.txt", color="crapome", label=TRUE, cutoff=0.7)
#main("test_list.txt", "preytest.txt", crapome=FALSE, color="magenta", label=FALSE, cutoff=1.1)

4:8eb1dd926f6e

###################################################################################################
cutoff_check <- function(cutoff){
  if( any(cutoff < 0 | cutoff > 1) ) stop('SAINT score cutoff not between 0 and 1. Please correct and try again')
}

args <- commandArgs(trailingOnly = TRUE)
main(args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],args[9])

#main("test_list.txt", "preytest.txt", crapome="craptest.txt", color="crapome", label=TRUE)
#main("Crizo_list.txt", "prey_cr.txt", crapome = "crizo_crap.txt", color="crapome", label=TRUE, cutoff=0.7)
#main("test_list.txt", "preytest.txt", crapome=FALSE, color="magenta", label=FALSE, cutoff=1.1)