🐛 Fix #310

r-spatialecology · Nov 30, 2023 · f714a61 · f714a61
1 parent 943d426
commit f714a61
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: landscapemetrics
 Title: Landscape Metrics for Categorical Map Patterns
-Version: 2.1.0
+Version: 2.1.1
 Authors@R: c(person("Maximilian H.K.", "Hesselbarth",
              role = c("aut", "cre"),
              email = "mhk.hesselbarth@gmail.com",

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# landscapemetrics 2.1.0
+* Bugfixes
+    * Bugfix in calculate of clumpy if NA calc is present
+
 # landscapemetrics 2.1.0
 * Improvements
     * Many performance improvements. Most visible are in

diff --git a/R/lsm_c_clumpy.R b/R/lsm_c_clumpy.R
@@ -105,7 +105,7 @@ lsm_c_clumpy_calc <- function(landscape, resolution, extras = NULL){
     clumpy <- vapply(seq_along(g_i), FUN = function(i) {
 
         # set to NA if mathematical not possible
-        if (is.nan(g_i[i]) || is.na(g_i[i]) || p_i[i] == 1) numeric(NA)
+        if (is.nan(g_i[i]) || is.na(g_i[i]) || p_i[i] == 1) as.numeric(NA)
         # calc clumpy
         else if (g_i[i] >= p_i[i]) (g_i[i] - p_i[i]) / (1 - p_i[i])
         else if (g_i[i] < p_i[i] && p_i[i] >= 0.5) (g_i[i] - p_i[i]) / (1 - p_i[i])

diff --git a/cran-comments.md b/cran-comments.md
@@ -1,3 +1,6 @@
+# landscapemetrics 2.1.1
+Minor bugfix
+
 # landscapemetrics 2.1.0
 Larger internal updates to several algorithms