# HG changeset patch # User bornea # Date 1447946808 18000 # Node ID 8eb1dd926f6e859aa270a0ae7320e8e8e9a3f7a7 # Parent 463a0ca33d7f5f8bfe1b960ba7a01e1c467b7ca8 Uploaded diff -r 463a0ca33d7f -r 8eb1dd926f6e bubbles_v9_NSAF_natural_log.R --- a/bubbles_v9_NSAF_natural_log.R Tue Nov 17 10:57:45 2015 -0500 +++ b/bubbles_v9_NSAF_natural_log.R Thu Nov 19 10:26:48 2015 -0500 @@ -227,8 +227,8 @@ 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]) +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)