final fix

hendersontrent · Mar 13, 2024 · 05aed8b · 05aed8b
1 parent 506f771
commit 05aed8b
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 11 deletions.
diff --git a/R/kfold_ttest.R b/R/kfold_ttest.R
@@ -68,7 +68,7 @@ kfold_ttest <- function(x, y, n, k, tailed = c("two", "one"), greater = NULL){
       return(tmp)
     } else{
       statistic <- mean(d, na.rm = TRUE) / sqrt(stats::var(d, na.rm = TRUE) * ((1 / n + (1 / k)) / (1 - 1 / k)))
-      p.value <- stats::pt(statistic, n - 1, lower.tail = TRUE)
+      p.value <- stats::pt(statistic, n - 1, lower.tail = FALSE)
     }
   }
 

diff --git a/R/repkfold_ttest.R b/R/repkfold_ttest.R
@@ -90,7 +90,7 @@ repkfold_ttest <- function(data, n1, n2, k, r, tailed = c("two", "one"), greater
       return(tmp)
     } else{
       statistic <- mean(d, na.rm = TRUE) / sqrt(stats::var(d, na.rm = TRUE) * ((1 / (k * r)) + (n2 / n1)))
-      p.value <- stats::pt(statistic, (k * r) - 1, lower.tail = TRUE)
+      p.value <- stats::pt(statistic, (k * r) - 1, lower.tail = FALSE)
     }
   }
 

diff --git a/R/resampled_ttest.R b/R/resampled_ttest.R
@@ -71,7 +71,7 @@ resampled_ttest <- function(x, y, n, n1, n2, tailed = c("two", "one"), greater =
         return(tmp)
       } else{
         statistic <- mean(d, na.rm = TRUE) / sqrt(stats::var(d, na.rm = TRUE) * (1 / n + n2 / n1))
-        p.value <- stats::pt(statistic, n - 1, lower.tail = TRUE)
+        p.value <- stats::pt(statistic, n - 1, lower.tail = FALSE)
       }
     }
 

diff --git a/docs/articles/correctR.html b/docs/articles/correctR.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -3,7 +3,7 @@ pkgdown: 2.0.2
 pkgdown_sha: ~
 articles:
   correctR: correctR.html
-last_built: 2024-03-13T02:33Z
+last_built: 2024-03-13T10:38Z
 urls:
   reference: https://hendersontrent.github.io/correctR/reference
   article: https://hendersontrent.github.io/correctR/articles