From 835e0eb9995ec23c3db3487e7497f227fe0845de Mon Sep 17 00:00:00 2001
From: qddyy <isduyan@outlook.com>
Date: Thu, 29 Feb 2024 18:39:59 +0800
Subject: [PATCH] fix for `n_permu` larger than `R_LEN_T_MAX`

---
 R/PermuTest.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/PermuTest.R b/R/PermuTest.R
index 9fabb58e..739332bf 100644
--- a/R/PermuTest.R
+++ b/R/PermuTest.R
@@ -414,7 +414,7 @@ PermuTest <- R6Class(
                     "<", class(self)[1], ">", " object"
                 )
             } else if (length(value) == 1 & is.finite(value) & value >= 0) {
-                private$.n_permu <- as.integer(value)
+                private$.n_permu <- ceiling(value)
                 if (!is.null(private$.raw_data)) {
                     private$.on_n_permu_change()
                 }