Total mass assigned by distribution must be within .Machine.eps neigh…

…borhood of 1
patrickreidy · Sep 3, 2017 · f0d4e91 · f0d4e91
1 parent 63516b7
commit f0d4e91
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -1,2 +1,3 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+.travis.yml
diff --git a/R/distribution.R b/R/distribution.R
@@ -27,7 +27,7 @@ methods::setValidity(
     p_error <- ifelse(!("P" %in% names(object)) ||
                         class(object[["P"]]) != "numeric" ||
                         length(which(object[["P"]] < 0)) > 0 ||
-                        sum(object[["P"]]) != 1,
+                        abs(sum(object[["P"]]) - 1) > .Machine$double.eps,
                       p_msg, "")
     # A distribution must be defined over a random variable---a variable other than P.
     rv <-