Description Usage Arguments Details Value Methods (by class) References Examples
Implementation of uniformly most powerful invariant equivalence tests for one- and two-sample problems (paired and unpaired). Also one-sided alternatives (non-inferiority and non-superiority tests) are supported. Basically a variant of a t-test with (relaxed) null and alternative hypotheses exchanged.
1 2 3 4 5 6 7 8 | equiv.test(x, ...)
## Default S3 method:
equiv.test(x, y = NULL, alternative = c("two.sided",
"less", "greater"), eps = 1, mu = 0, paired = FALSE, ...)
## S3 method for class 'formula'
equiv.test(formula, data, subset, na.action, ...)
|
x |
a (non-empty) numeric vector of data values. |
... |
further arguments to be passed to or from methods. |
y |
an optional (non-empty) numeric vector of data values. |
alternative |
a character string specifying the alternative hypothesis, must be one of " |
eps |
a single strictly positive number giving the equivalence limits. |
mu |
a number indicating the true value of the mean (or difference in means if you are performing a two sample test). |
paired |
a logical indicating whether you want a paired equivalence test in the two-sample case. |
formula |
a formula of the form |
data |
an optional matrix or data frame containing the variables in the formula |
subset |
an optional vector specifying a subset of observations to be used. |
na.action |
a function which indicates what should happen when the data contain NAs. Defaults to |
equiv.test
is modelled after (and borrows code from) R's t.test()
and is intended to work as similarly as possible.
This functions implements uniformly most powerful invariant equivalence tests for one-sample and (paired or unpaired) two-sample problems. Also supported are one-sided versions (so-called non-inferiority or non-superiority tests).
All tests are on standardized (differences of) means theta:
theta = (mu_x - mu) / sigma
for the one-sample case,
theta = (mu_d - mu) / sigma_d
for the paired two-sample case and
theta = (mu_x - mu_y - mu) / sigma
for the unpaired test, where sigma is the standard deviation of x and y and sigma_d is the standard deviation of the differences. mu is a shift parameter that can be used to compare against a known value in the one-sample case. mu should usually be zero for two-sample problems.
The null and alternative hypotheses in equivalence tests (alternative = "two.sided"
) are
H_0: theta <= -eps \qquad or \qquad theta >= eps
vs
H_1: -eps < theta < eps
Currently, only symmetric equivalence intervals (-eps, eps) are supported.
In the non-inferority-case (alternative = "greater"
) we test
H_0: theta <= -eps
vs
H_1: theta > -eps
In the non-superiority-case (alternative = "less"
) we test
H_0: theta >= eps
vs
H_1: theta < eps
If paired
is TRUE
then both x
and y
must be specified and they must be the same length.
Missing values are silently removed (in pairs if paired
is TRUE
).
The formula interface is only applicable for the two-sample tests.
A list with class htest
containing the following components:
statistic |
the value of the t-statistic. |
parameter |
the degrees of freedom for the t-statistic. |
p.value |
the p-value for the test. |
estimate |
the plug-in estimate of the standardized mean (or mean difference), i.e. the empirical mean (or difference of empirical means) divided by the empirical standard deviation. Note that this estimate is not unbiaded. |
null.value |
non-equivalence limits, i.e. boundaries of null hypothesis |
alternative |
a character string describing the alternative hypothesis. |
method |
a character string indicating what type of equivalence test was performed. |
data.name |
a character string giving the name(s) of the data. |
default
: Default S3 method:
formula
: S3 method for class 'formula'
Wellek, S. (2010). Testing Statistical Hypotheses of Equivalence and Noniferiority. Second edition. Boca Raton: Chapman & Hall. (especially Chapters 5.3 and 6.1).
1 2 3 4 5 6 7 8 | # compare two feed from chickwts dataset
data("chickwts")
chickwts2 <- chickwts[chickwts$feed %in% c("linseed", "soybean"),]
chickwts2$feed <- droplevels(chickwts2$feed)
# similar but cannot be shown to be equivalent up to 0.5 sigma at 0.05 level^
plot(weight ~ feed, data = chickwts2)
equiv.test(weight ~ feed, data = chickwts2, eps = 0.5)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.