Fixing tolerance for noLD error on CRAN

Keith Goldfeld · Keith Goldfeld · commit 727f3cd13288 · 2019-05-16T10:58:54.000-04:00
diff --git a/R/genCorOrdCat.R b/R/genCorOrdCat.R
@@ -80,8 +80,12 @@ genCorOrdCat <- function(dtName, idname = "id", adjVar = NULL, baseprobs,
     stop("Proability vector is empty")
   }
   
-  if (any(apply(baseprobs, 1, sum) != 1)) {
-    stop("Probabilities are not properly specified")
+  baseprobs <- round(baseprobs,3 )
+  if (!isTRUE(all.equal(rep(1, nrow(baseprobs)), 
+                       apply(baseprobs, 1, sum),
+                       tolerance = .Machine$double.eps^0.25))) {
+    
+    stop("Probabilities are not properly specified: each row must sum to one")
   }
   
   if (length(adjVar) > 1) {

Original file line number	Diff line number	Diff line change
`@@ -80,8 +80,12 @@ genCorOrdCat <- function(dtName, idname = "id", adjVar = NULL, baseprobs,`
`80`	`80`	`stop("Proability vector is empty")`
`81`	`81`	`}`
`82`	`82`
`83`		`- if (any(apply(baseprobs, 1, sum) != 1)) {`
`84`		`- stop("Probabilities are not properly specified")`
	`83`	`+ baseprobs <- round(baseprobs,3 )`
	`84`	`+ if (!isTRUE(all.equal(rep(1, nrow(baseprobs)),`
	`85`	`+ apply(baseprobs, 1, sum),`
	`86`	`+ tolerance = .Machine$double.eps^0.25))) {`
	`87`	`+`
	`88`	`+ stop("Probabilities are not properly specified: each row must sum to one")`
`85`	`89`	`}`
`86`	`90`
`87`	`91`	`if (length(adjVar) > 1) {`