From dbd63032281ac4432bd0a408831d5a4008566aa2 Mon Sep 17 00:00:00 2001
From: Avraham Adler <avraham.adler@mcgillpartners.com>
Date: Fri, 6 Dec 2024 10:26:33 +0200
Subject: [PATCH] Style

---
 R/Delaporte.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/Delaporte.R b/R/Delaporte.R
index 8981cfb..ae295a0 100644
--- 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")