Welch's t-test: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: Add a Perl 6 example |
Added Kotlin |
||
Line 362: | Line 362: | ||
d9 p2_tail da |
d9 p2_tail da |
||
0.0107377</lang> |
0.0107377</lang> |
||
=={{header|Kotlin}}== |
|||
This program brings in code from other tasks for gamma functions and integration by Simpson's rule as Kotlin doesn't have these built-in: |
|||
<lang scala>// version 1.1.4-3 |
|||
typealias Func = (Double) -> Double |
|||
fun square(d: Double) = d * d |
|||
fun sampleVar(da: DoubleArray): Double { |
|||
if (da.size < 2) throw IllegalArgumentException("Array must have at least 2 elements") |
|||
val m = da.average() |
|||
return da.map { square(it - m) }.sum() / (da.size - 1) |
|||
} |
|||
fun welch(da1: DoubleArray, da2: DoubleArray): Double { |
|||
val temp = sampleVar(da1) / da1.size + sampleVar(da2) / da2.size |
|||
return (da1.average() - da2.average()) / Math.sqrt(temp) |
|||
} |
|||
fun degreesFreedom(da1: DoubleArray, da2: DoubleArray): Double { |
|||
val s1 = sampleVar(da1) |
|||
val s2 = sampleVar(da2) |
|||
val n1 = da1.size |
|||
val n2 = da2.size |
|||
val temp1 = square(s1 / n1 + s2 / n2) |
|||
val temp2 = square(s1) / (n1 * n1 * (n1 - 1)) + square(s2) / (n2 * n2 * (n2 - 1)) |
|||
return temp1 / temp2 |
|||
} |
|||
fun gamma(d: Double): Double { |
|||
var dd = d |
|||
val p = doubleArrayOf( |
|||
0.99999999999980993, |
|||
676.5203681218851, |
|||
-1259.1392167224028, |
|||
771.32342877765313, |
|||
-176.61502916214059, |
|||
12.507343278686905, |
|||
-0.13857109526572012, |
|||
9.9843695780195716e-6, |
|||
1.5056327351493116e-7 |
|||
) |
|||
val g = 7 |
|||
if (dd < 0.5) return Math.PI / (Math.sin(Math.PI * dd) * gamma(1.0 - dd)) |
|||
dd-- |
|||
var a = p[0] |
|||
val t = dd + g + 0.5 |
|||
for (i in 1 until p.size) a += p[i] / (dd + i) |
|||
return Math.sqrt(2.0 * Math.PI) * Math.pow(t, dd + 0.5) * Math.exp(-t) * a |
|||
} |
|||
fun lGamma(d: Double) = Math.log(gamma(d)) |
|||
fun simpson(a: Double, b: Double, n: Int, f: Func): Double { |
|||
val h = (b - a) / n |
|||
var sum = 0.0 |
|||
for (i in 0 until n) { |
|||
val x = a + i * h |
|||
sum += (f(x) + 4.0 * f(x + h / 2.0) + f(x + h)) / 6.0 |
|||
} |
|||
return sum * h |
|||
} |
|||
fun p2Tail(da1: DoubleArray, da2: DoubleArray): Double { |
|||
val nu = degreesFreedom(da1, da2) |
|||
val t = welch(da1, da2) |
|||
val g = Math.exp(lGamma(nu / 2.0) + lGamma(0.5) - lGamma(nu / 2.0 + 0.5)) |
|||
val b = nu / (t * t + nu) |
|||
val f: Func = { r -> Math.pow(r, nu / 2.0 - 1.0) / Math.sqrt(1.0 - r) } |
|||
return simpson(0.0, b, 10000, f) / g // n = 10000 seems more than enough here |
|||
} |
|||
fun main(args: Array<String>) { |
|||
val da1 = doubleArrayOf( |
|||
27.5, 21.0, 19.0, 23.6, 17.0, 17.9, 16.9, 20.1, 21.9, 22.6, |
|||
23.1, 19.6, 19.0, 21.7, 21.4 |
|||
) |
|||
val da2 = doubleArrayOf( |
|||
27.1, 22.0, 20.8, 23.4, 23.4, 23.5, 25.8, 22.0, 24.8, 20.2, |
|||
21.9, 22.1, 22.9, 20.5, 24.4 |
|||
) |
|||
val da3 = doubleArrayOf( |
|||
17.2, 20.9, 22.6, 18.1, 21.7, 21.4, 23.5, 24.2, 14.7, 21.8 |
|||
) |
|||
val da4 = doubleArrayOf( |
|||
21.5, 22.8, 21.0, 23.0, 21.6, 23.6, 22.5, 20.7, 23.4, 21.8, |
|||
20.7, 21.7, 21.5, 22.5, 23.6, 21.5, 22.5, 23.5, 21.5, 21.8 |
|||
) |
|||
val da5 = doubleArrayOf( |
|||
19.8, 20.4, 19.6, 17.8, 18.5, 18.9, 18.3, 18.9, 19.5, 22.0 |
|||
) |
|||
val da6 = doubleArrayOf( |
|||
28.2, 26.6, 20.1, 23.3, 25.2, 22.1, 17.7, 27.6, 20.6, 13.7, |
|||
23.2, 17.5, 20.6, 18.0, 23.9, 21.6, 24.3, 20.4, 24.0, 13.2 |
|||
) |
|||
val da7 = doubleArrayOf(30.02, 29.99, 30.11, 29.97, 30.01, 29.99) |
|||
val da8 = doubleArrayOf(29.89, 29.93, 29.72, 29.98, 30.02, 29.98) |
|||
val x = doubleArrayOf(3.0, 4.0, 1.0, 2.1) |
|||
val y = doubleArrayOf(490.2, 340.0, 433.9) |
|||
val f = "%.6f" |
|||
println(f.format(p2Tail(da1, da2))) |
|||
println(f.format(p2Tail(da3, da4))) |
|||
println(f.format(p2Tail(da5, da6))) |
|||
println(f.format(p2Tail(da7, da8))) |
|||
println(f.format(p2Tail(x, y))) |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
0.021378 |
|||
0.148842 |
|||
0.035972 |
|||
0.090773 |
|||
0.010751 |
|||
</pre> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |