Took out createJItterVectorFromValue()

NOAA-EDAB · Jan 23, 2024 · 632ac1f · 632ac1f
1 parent 651eb5a
commit 632ac1f
Show file tree

Hide file tree

Showing 7 changed files with 3,597 additions and 3,596 deletions.
diff --git a/tests/testthat/data/input/REcosystem_Baseline_AB_ForcedBio_OutBiomass_Jitter.dat b/tests/testthat/data/input/REcosystem_Baseline_AB_ForcedBio_OutBiomass_Jitter.dat
diff --git a/tests/testthat/data/input/REcosystem_Baseline_AB_ForcedBio_OutCatch_Jitter.dat b/tests/testthat/data/input/REcosystem_Baseline_AB_ForcedBio_OutCatch_Jitter.dat
diff --git a/tests/testthat/data/input/REcosystem_Baseline_AB_ForcedBio_OutGearCatch_Jitter.dat b/tests/testthat/data/input/REcosystem_Baseline_AB_ForcedBio_OutGearCatch_Jitter.dat
diff --git a/tests/testthat/data/input/REcosystem_Baseline_RK4_ForcedBio_OutBiomass_Jitter.dat b/tests/testthat/data/input/REcosystem_Baseline_RK4_ForcedBio_OutBiomass_Jitter.dat
diff --git a/tests/testthat/data/input/REcosystem_Baseline_RK4_ForcedBio_OutCatch_Jitter.dat b/tests/testthat/data/input/REcosystem_Baseline_RK4_ForcedBio_OutCatch_Jitter.dat
diff --git a/tests/testthat/data/input/REcosystem_Baseline_RK4_ForcedBio_OutGearCatch_Jitter.dat b/tests/testthat/data/input/REcosystem_Baseline_RK4_ForcedBio_OutGearCatch_Jitter.dat
diff --git a/tests/testthat/test-rpath.R b/tests/testthat/test-rpath.R
@@ -934,7 +934,8 @@ testthat::test_that("Rpath Unit Tests", {
         numMonths <- nrow(ForcedBio)
         # print(paste0(modNum," ",i," ",SEED_OFFSET," ",aSpecies))      
         speciesBiomass <- REcosystem_scene_jitter$start_state$Biomass[aSpecies]
-        ForcedBio[,aSpecies] <- createJitterVectorFromValue(speciesBiomass, numMonths, modNum*i*SEED_OFFSET, "Months","Biomass (mt/km²)",paste0(theTypeData,' with ','Jittered',' Noise - ',aSpecies))
+        ForcedBio[,aSpecies] <- speciesBiomass + i
+        # ForcedBio[,aSpecies] <- createJitterVectorFromValue(speciesBiomass, numMonths, modNum*i*SEED_OFFSET, "Months","Biomass (mt/km²)",paste0(theTypeData,' with ','Jittered',' Noise - ',aSpecies))
       }
       REcosystem_scene_jitter$forcing$ForcedBio <- copy(ForcedBio)