bug in sig_noise

wincowgerDEV · Jan 29, 2024 · 334fd3a · 334fd3a
1 parent bdab551
commit 334fd3a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/sig_noise.R b/R/sig_noise.R
@@ -108,7 +108,8 @@ sig_noise.OpenSpecy <- function(x, metric = "run_sig_over_noise",
   if(spatial_smooth){
       values <- matrix(values, ncol = max(x$metadata$x) + 1, byrow = T) |>
                       gaussianSmooth(sigma = sigma) |>
-                      c()
+                      t() |>
+                      as.vector()
   }
   if(abs) {
     values <- abs(values)