Fix bug on data type for bands

blekhmanlab · Sep 5, 2021 · 5d30ada · 5d30ada
1 parent 44a56ec
commit 5d30ada
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/BiomeHorizon.R b/R/BiomeHorizon.R
@@ -852,7 +852,7 @@ horizonplot <- function(parameterList, aesthetics=horizonaes()) {
       for(n in (-1*nbands+1):(nbands-1)) {
         bands <- bands + (nums > n*bt)
       }
-      bands <- bands-nbands
+      bands <- as.numeric(bands-nbands)
 
       x <- numeric()
       y <- numeric()