fix var name

bblodfon · bblodfon · commit e2f2235212d5 · 2023-10-17T17:34:22.000+02:00
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

Original file line number	Diff line number	Diff line change
`@@ -404,7 +404,7 @@ c.Arrdist <- function(..., decorators = NULL) {`
`404`	`404`	`pdfs <- .merge_arrpdf_cols(pdfs)`
`405`	`405`	`pdfs <- do.call(abind::abind, list(what = pdfs, along = 1))`
`406`	`406`
`407`		`- as.Distribution(pdfs, fun = "pdf", decorators = decs)`
	`407`	`+ as.Distribution(pdfs, fun = "pdf", decorators = decorators)`
`408`	`408`	`}`
`409`	`409`
`410`	`410`	`#' @title Extract one or more Distributions from an Array distribution`