fix for apple m1

xoopR · Feb 18, 2022 · b4be3ec · b4be3ec
1 parent 4ffad3a
commit b4be3ec
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: distr6
 Title: The Complete R6 Probability Distributions Interface
-Version: 1.6.6
+Version: 1.6.7
 Authors@R:
     c(person(given = "Raphael",
              family = "Sonabend",

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# distr6 1.6.7
+
+* Fix for Apple M1
+
 # distr6 1.6.6
 
 * WeightedDiscrete now correctly handles improper distributions by returning Inf and NA where appropriate

diff --git a/R/getParameterSet.R b/R/getParameterSet.R
@@ -684,13 +684,20 @@ getParameterSet.WeightedDiscrete <- function(object, ...) { # nolint
       cdfs <- list_element(x, "cdf")
 
       if (length(pdfs)) {
-        cdfs <- setNames(lapply(pdfs, cumsum),
-                        gsub("pdf", "cdf", names(pdfs)))
+        cdfs <- setNames(
+          lapply(pdfs, cumsum),
+          gsub("pdf", "cdf", names(pdfs))
+        )
       } else {
-        pdfs <- setNames(lapply(cdfs, function(.x) c(.x[1], diff(.x))),
-                        gsub("cdf", "pdf", names(cdfs)))
+        pdfs <- setNames(
+          lapply(cdfs, function(.x) c(.x[1], diff(.x))),
+          gsub("cdf", "pdf", names(cdfs))
+        )
       }
 
+      ## FIX FOR M1
+      cdfs <- lapply(cdfs, round, digits = 15L)
+
       unique_nlist(c(pdfs, cdfs, x))
     }
   )