View source: R/BS1996.TS.NABT.R
BS1996.TS.NABT | R Documentation |
Bai and Saranadasa (1996)'s test for testing equality of two-sample high-dimensional mean vectors with assuming that two covariance matrices are the same.
BS1996.TS.NABT(y1, y2)
y1 |
The data matrix ( |
y2 |
The data matrix ( |
Suppose we have two independent high-dimensional samples:
\boldsymbol{y}_{i1},\ldots,\boldsymbol{y}_{in_i}, \;\operatorname{are \; i.i.d. \; with}\; \operatorname{E}(\boldsymbol{y}_{i1})=\boldsymbol{\mu}_i,\; \operatorname{Cov}(\boldsymbol{y}_{i1})=\boldsymbol{\Sigma},i=1,2.
The primary object is to test
H_{0}: \boldsymbol{\mu}_1 = \boldsymbol{\mu}_2\; \operatorname{versus}\; H_{1}: \boldsymbol{\mu}_1 \neq \boldsymbol{\mu}_2.
Bai and Saranadasa (1996) proposed the following centralised L^2
-norm-based test statistic:
T_{BS} = \frac{n_1n_2}{n} \|\bar{\boldsymbol{y}}_1 - \bar{\boldsymbol{y}}_2\|^2-\operatorname{tr}(\hat{\boldsymbol{\Sigma}}),
where \bar{\boldsymbol{y}}_{i},i=1,2
are the sample mean vectors and \hat{\boldsymbol{\Sigma}}
is the pooled sample covariance matrix.
They showed that under the null hypothesis, T_{BS}
is asymptotically normally distributed.
A list of class "NRtest"
containing the results of the hypothesis test. See the help file for NRtest.object
for details.
bai1996effectHDNRA
library("HDNRA")
data("COVID19")
dim(COVID19)
group1 <- as.matrix(COVID19[c(2:19, 82:87), ]) ## healthy group
group2 <- as.matrix(COVID19[-c(1:19, 82:87), ]) ## COVID-19 patients
BS1996.TS.NABT(group1,group2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.