fix var name

xoopR · Oct 17, 2023 · e2f2235 · e2f2235
1 parent 5e26b5c
commit e2f2235
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/SDistribution_Arrdist.R b/R/SDistribution_Arrdist.R
@@ -404,7 +404,7 @@ c.Arrdist <- function(..., decorators = NULL) {
   pdfs <- .merge_arrpdf_cols(pdfs)
   pdfs <- do.call(abind::abind, list(what = pdfs, along = 1))
 
-  as.Distribution(pdfs, fun = "pdf", decorators = decs)
+  as.Distribution(pdfs, fun = "pdf", decorators = decorators)
 }
 
 #' @title Extract one or more Distributions from an Array distribution