Edits: fix errors in mcsim

aterui · Oct 17, 2020 · 5a85713 · 5a85713
1 parent d8ff5cf
commit 5a85713
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/function_mcsim.R b/R/function_mcsim.R
@@ -335,8 +335,8 @@ mcsim <- function(n_species = 5,
 
   gamma_div <- df_dyn %>%
     dplyr::group_by(.data$timestep) %>%
-    dplyr::summarise(gamma_t = n_distinct(.data$species[.data$abundance > 0])) %>%
-    dplyr::pull(gamma_t) %>%
+    dplyr::summarise(gamma_t = dplyr::n_distinct(.data$species[.data$abundance > 0])) %>%
+    dplyr::pull(.data$gamma_t) %>%
     mean()
 
   beta_div <- gamma_div - alpha_div

diff --git a/buildpackage.R b/buildpackage.R
@@ -3,4 +3,4 @@ usethis::use_roxygen_md()
 usethis::use_package_doc()
 devtools::document()
 devtools::load_all()
-#devtools::check()
+devtools::check()