fix internal propagate function + bump version, update NEWS

r-quantities · Jan 18, 2025 · 191d5c1 · 191d5c1
1 parent 083fbcd
commit 191d5c1
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: errors
 Type: Package
 Title: Uncertainty Propagation for R Vectors
-Version: 0.4.2.1
+Version: 0.4.3
 Authors@R: c(
     person("Iñaki", "Ucar", email="[email protected]",
       role=c("aut", "cph", "cre"), comment=c(ORCID="0000-0001-6403-5550")),

diff --git a/NEWS.md b/NEWS.md
@@ -1,7 +1,8 @@
-# errors devel
+# errors 0.4.3
 
 - Add option `decimals` to `format()` method to add support for uncertainty with
   decimals in the `parenthesis` notation (@alusiani #60, #61 addressing #47).
+- Fix internal `propagate` function (for r-quantities/units#371).
 
 # errors 0.4.2
 

diff --git a/R/utils.R b/R/utils.R
@@ -45,7 +45,7 @@ propagate <- function(xx, x, y, dx, dy, method=getOption("errors.propagation", "
     "taylor-first-order" = {
       # propagate variance to new object
       var <- rowSums(cbind(
-        .e(x)^2 * dx^2, .e(y)^2 * dy^2, 2 * covar(x, y) * dx * dy
+        .e(x)^2 * dx^2, .e(y)^2 * dy^2, 2 * as.numeric(covar(x, y)) * dx * dy
       ), na.rm = TRUE)
       var[var < 0] <- 0
       xx <- set_errors(xx, sqrt(var))

diff --git a/errors.Rproj b/errors.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: e20fca44-19ee-4310-9b19-07aeed7090bb
 
 RestoreWorkspace: Default
 SaveWorkspace: Default