Fixed a smal bug that allowed duplicates to get into the candidate table

AnotherSamWilson · AnotherSamWilson · commit 0c7bef74236a · 2021-02-07T11:29:26.000-05:00
diff --git a/R/getNextParameters.R b/R/getNextParameters.R
@@ -93,7 +93,7 @@ getNextParameters <- function(
 
       # If we obtained any unique parameter sets:
       if (any(!fromNoise$Duplicate)) {
-        returnParameters <- rbind(returnParameters,fromNoise,fill=TRUE)
+        returnParameters <- rbind(returnParameters,fromNoise[!fromNoise$Duplicate],fill=TRUE)
         procure <- runNew - nrow(returnParameters)
       }
 

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ getNextParameters <- function(`
`93`	`93`
`94`	`94`	`# If we obtained any unique parameter sets:`
`95`	`95`	`if (any(!fromNoise$Duplicate)) {`
`96`		`- returnParameters <- rbind(returnParameters,fromNoise,fill=TRUE)`
	`96`	`+ returnParameters <- rbind(returnParameters,fromNoise[!fromNoise$Duplicate],fill=TRUE)`
`97`	`97`	`procure <- runNew - nrow(returnParameters)`
`98`	`98`	`}`
`99`	`99`