Clean up

jchristopherson · May 1, 2024 · 516bd7d · 516bd7d
1 parent 571dafe
commit 516bd7d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/fstats_hypothesis.f90 b/src/fstats_hypothesis.f90
@@ -43,12 +43,13 @@ pure function confidence_interval_scalar(dist, alpha, s, n) result(rst)
         !! The result.
 
     ! Local Variables
-    real(real64) :: x
+    real(real64) :: x, dn
 
     ! Process
-    x = 1.0d0 - alpha / 2.0d0
+    dn = real(n, real64)
+    x = 1.0d0 - 0.5d0 * alpha
     rst = dist%standardized_variable(x)
-    rst = rst * s / sqrt(real(n, real64))
+    rst = rst * s / sqrt(dn)
 end function
 
 ! ------------------------------------------------------------------------------

diff --git a/tests/fstats_statistics_tests.f90 b/tests/fstats_statistics_tests.f90
@@ -639,7 +639,7 @@ function confidence_interval_test_1() result(rst)
         logical :: rst
 
         ! Variables
-        real(real64), parameter :: alpha = 2.0d0
+        real(real64), parameter :: alpha = 0.05d0
         real(real64), parameter :: tol = 1.0d-3
         real(real64), parameter :: t20 = 2.086d0
         real(real64), parameter :: t10 = 2.228d0