fix(occurrenceChange): correct the growth rate function

The growth rate function incorrectly used number of years rather than number of periods (in this case nyr-1). related to #251
BiologicalRecordsCentre · Jun 9, 2023 · 5a6a993 · 5a6a993
1 parent 2973f6d
commit 5a6a993
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/occurrenceChange.r b/R/occurrenceChange.r
@@ -170,7 +170,7 @@ occurrenceChange <- function(bayesOut, firstYear=NULL, lastYear=NULL, change = '
 
 
   if(change == 'growthrate'){
-    nyr <- length(years)
+    nyr <- length(years)-1
     first <- years[1]
     last <- years[length(years)]
     res_tab <- data.frame(occ_it[, colnames(occ_it) == first],