Added Sampling of Proportions

Before the change, the first distribution always was the smallest. Adding a sample() makes it possible for each distribution to be the largest.
loosolab · Apr 17, 2018 · 8c06005 · 8c06005
1 parent 17c6be6
commit 8c06005
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/simulation.R b/R/simulation.R
@@ -235,7 +235,7 @@ createValidationData <- function(params = newParams(),verbose = TRUE){
       combs <- do.call('rbind',combsSorted)
       uniqueCombs <- unique.array(combs)
       sampleProp <- sample(1:nrow(uniqueCombs),1,replace = FALSE)
-      ranProps <- uniqueCombs[sampleProp,]
+      ranProps <- sample(uniqueCombs[sampleProp,])
 
       ranSd<- unlist(lapply(2:modality,function(i){
         eval(parse(text = paste(paste0("ranSd",i),