corrected typo on cumu[l]ated_impacts

R/run_simul.R

@@ -4,7 +4,7 @@
 #' Run multiple population projections (simulations)
 #'
 #' @param nsim number of simulation
-#' @param cumuated_impacts Logical. If TRUE, we used the projection model for cumulated impacts.
+#' @param cumulated_impacts Logical. If TRUE, we used the projection model for cumulated impacts.
 #' @param fatalities_mean a vector (numeric). Average number of fatalities, for each scenario.
 #' @param fatalities_se a vector (numeric). Standard Error for the number of fatalities, for each scenario (= uncertainties around the values provided).
 #' @param onset_time a vector (numeric). The times at which each wind farm fatality starts applying.
@@ -69,7 +69,7 @@
 #' theta = 1
 #' rMAX_species <- 0.15
 #'
-#' run_simul(nsim = 10, cumuated_impacts = FALSE,
+#' run_simul(nsim = 10, cumulated_impacts = FALSE,
 #'            fatalities_mean, fatalities_se, onset_time = NULL,
 #'            pop_size_mean, pop_size_se, pop_size_type,
 #'            pop_growth_mean, pop_growth_se,
@@ -79,7 +79,7 @@
 #'            model_demo = NULL, time_horzion, coeff_var_environ, fatal_constant)
 #'
 #'
-run_simul <- function(nsim, cumuated_impacts,
+run_simul <- function(nsim, cumulated_impacts,
                       fatalities_mean, fatalities_se, onset_time,
                       pop_size_mean, pop_size_se, pop_size_type,
                       pop_growth_mean, pop_growth_se,
@@ -204,7 +204,7 @@ model_demo = NULL
 
 
       #
-      if(cumuated_impacts){
+      if(cumulated_impacts){
         fun_project <- pop_project_cumulated_impacts
       }else{
         fun_project <- pop_project

R/run_simul_shiny.R

@@ -6,7 +6,7 @@
 #' the simulation progress bar in Shiny (incProgress function)
 #'
 #' @param nsim number of simulation
-#' @param cumuated_impacts Logical. If TRUE, we used the projection model for cumulated impacts.
+#' @param cumulated_impacts Logical. If TRUE, we used the projection model for cumulated impacts.
 #' @param fatalities_mean a vector (numeric). Average number of fatalities, for each scenario.
 #' @param fatalities_se a vector (numeric). Standard Error for the number of fatalities, for each scenario (= uncertainties around the values provided).
 #' @param onset_time a vector (numeric). The times at which each wind farm fatality starts applying.
@@ -51,7 +51,7 @@
 #' @importFrom shiny incProgress
 #'
 
-run_simul_shiny <- function(nsim, cumuated_impacts,
+run_simul_shiny <- function(nsim, cumulated_impacts,
                       fatalities_mean, fatalities_se, onset_time,
                       pop_size_mean, pop_size_se, pop_size_type,
                       pop_growth_mean, pop_growth_se,
@@ -181,7 +181,7 @@ run_simul_shiny <- function(nsim, cumuated_impacts,
 
 
       #
-      if(cumuated_impacts){
+      if(cumulated_impacts){
         fun_project <- pop_project_cumulated_impacts
       }else{
         fun_project <- pop_project