fix issue #1627

paul-buerkner · Mar 19, 2024 · c74feeb · c74feeb
1 parent 6b8941f
commit c74feeb
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/distributions.R b/R/distributions.R
@@ -301,7 +301,13 @@ pskew_normal <- function(q, mu = 0, sigma = 1, alpha = 0,
     delta[is_alpha_inf] <- sign(alpha[is_alpha_inf])
     out <- numeric(nz)
     for (k in seq_len(nz)) {
-      if (is_alpha_inf[k]) {
+      if (is.infinite(z[k])) {
+        if (z[k] > 0) {
+          out[k] <- 1
+        } else {
+          out[k] <- 0
+        }
+      } else if (is_alpha_inf[k]) {
         if (alpha[k] > 0) {
           out[k] <- 2 * (pnorm(pmax(z[k], 0)) - 0.5)
         } else {