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.