From 9b88b39d7f6c3a8f12c3c71cbf2e137b26905c7d Mon Sep 17 00:00:00 2001 From: ctokheim Date: Mon, 16 May 2016 14:47:22 -0400 Subject: [PATCH] Fix in parameter passing --- R/cancerSeqStudy.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/cancerSeqStudy.R b/R/cancerSeqStudy.R index 98d4f23..63ef33b 100644 --- a/R/cancerSeqStudy.R +++ b/R/cancerSeqStudy.R @@ -145,7 +145,7 @@ smgBinomFullAnalysis <- function(mu, Leff, signif.level, effect.size, ratiometricBinomFullAnalysis <- function(p, mu, L, signif.level, effect.size, desired.power, samp.sizes, Df){ # calculate power - power.result.binom <- ratiometric.binom.power(p, samp.sizes, mu, L, + power.result.binom <- ratiometric.binom.power(p, samp.sizes, mu, L=L, Df=Df, signif.level=signif.level, r=effect.size) binom.samp.size.min <- samp.sizes[min(which(power.result.binom>=desired.power))] @@ -317,7 +317,7 @@ if (!is.null(opt$ARGS)){ # setting up the sample sizes to check N <- 25000 - by.step <- 25 + by.step <- 10 samp.sizes <- seq(by.step, N, by=by.step) # grid of sample sizes to check ##################################