Style

aadler · Dec 6, 2024 · dbd6303 · dbd6303
1 parent 643099a
commit dbd6303
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/Delaporte.R b/R/Delaporte.R
@@ -15,10 +15,10 @@ ddelap <- function(x, alpha, beta, lambda, log = FALSE) {
 pdelap <- function(q, alpha, beta, lambda, lower.tail = TRUE, log.p = FALSE) {
   # These interrupts throw errors even using expect_error. Excluding for now
   # nocov start
-  if (any(q[is.finite(q)] >= 2^63)) {
-    stop("Function cannot handle values >= 2^63")
+  if (any(q[is.finite(q)] >= 2 ^ 63)) {
+    stop("Function cannot handle values >= 2^63.")
   }
-  if (any(q[is.finite(q)] >= 2^15)) {
+  if (any(q[is.finite(q)] >= 2 ^ 15)) {
     cat("There are values >= 32768.",
         "This may take minutes if not hours to compute. Are you sure?\n")
     resp <- readline("Press 'y' to continue.\n")