diff --git a/R/cancerSeqStudy.R b/R/cancerSeqStudy.R index deb9c7a..2384d4e 100644 --- a/R/cancerSeqStudy.R +++ b/R/cancerSeqStudy.R @@ -1,14 +1,11 @@ -library(VGAM) -library(reshape2) -library(parallel) - # get command line args if ("getopt" %in% rownames(installed.packages())){ # get command line arguments library(getopt) spec <- matrix(c( 'mcores', 'c', 1, 'integer', - 'output', 'o', 1, 'character' + 'output', 'o', 1, 'character', + 'help', 'h', 0, 'logical' ), byrow=TRUE, ncol=4) opt = getopt(spec) # print out help msg @@ -22,6 +19,10 @@ if ("getopt" %in% rownames(installed.packages())){ opt <- list(ARGS=NULL) } +library(VGAM) +library(reshape2) +library(parallel) + #' calculates the power in a binomial power model #' #' @param my.mu per base rate of mutation for binomial