test squashing

JuliaStats · Jan 4, 2020 · fb40a91 · fb40a91
1 parent 03c2475
commit fb40a91
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 9 deletions.
diff --git a/src/HypothesisTests.jl b/src/HypothesisTests.jl
@@ -29,9 +29,9 @@ using Distributions, Roots, StatsBase
 using Combinatorics: combinations, permutations
 using Rmath: pwilcox, psignrank
 
-import StatsBase.confint
+import StatsBase.confint, StatsBase.stderror
 
-export testname, pvalue, confint
+export testname, pvalue, confint, stderror
 abstract type HypothesisTest end
 
 check_same_length(x::AbstractVector, y::AbstractVector) = if length(x) != length(y)

diff --git a/src/correlation.jl b/src/correlation.jl
@@ -69,6 +69,7 @@ end
 
 default_tail(::CorrelationTest) = :both
 pvalue(test::CorrelationTest; tail=:both) = pvalue(TDist(dof(test)), test.t, tail=tail)
+StatsBase.stderror(test::CorrelationTest) = sqrt(1/dof(test))
 
 function show_params(io::IO, test::CorrelationTest, indent="")
     println(io, indent, "number of observations:          ", nobs(test))

diff --git a/src/t.jl b/src/t.jl
@@ -51,9 +51,6 @@ end
 # The standard error of the difference
 StatsBase.stderror(x::TTest) = x.stderr
 
-# The magnitude of the difference
-meandiff(x::TTest) = x.xbar
-
 ## ONE SAMPLE T-TEST
 
 struct OneSampleTTest <: TTest

diff --git a/src/z.jl b/src/z.jl
@@ -51,10 +51,6 @@ end
 # The standard error of the difference
 StatsBase.stderror(x::TTest) = x.stderr
 
-# The magnitude of the difference
-meandiff(x::TTest) = x.xbar
-
-
 ## ONE SAMPLE Z-TEST
 
 struct OneSampleZTest <: ZTest