#' srr tags #' #' #' @srrstats {G1.5} two-sample test example in the associated paper
Let $x_1, x_2, \ldots, x_{n_1} \sim F$ and $y_1, y_2, \ldots, y_{n_2} \sim G$ be random samples from the distributions $F$ and $G$, respectively. We test the null hypothesis that the two samples are generated from the same unknown distribution $\bar{F}$, that is:
$$ H_0: F = G = \bar{F} $$
versus the alternative hypothesis that the two distributions are different, that is
$$ H_1: F \not = G. $$ We compute the kernel-based quadratic distance (KBQD) tests
$$ \mathrm{trace}n = \frac{1}{n_1(n_1-1)}\sum{i=1}^{n_1} \sum_{j \not=i}^{n_1} K_{\bar{F}}(\mathbf{x}i,\mathbf{x}_j) + \frac{1}{n_2(n_2-1)}\sum{i=1}^{n_2} \sum_{j \not=i}^{n_2} K_{\bar{F}}(\mathbf{y}i,\mathbf{y}_j), $$ and $$ D{n} = \frac{1}{n_1(n_1-1)}\sum_{i=1}^{n_1} \sum_{j \not=i}^{n_2} K_{\bar{F}}(\mathbf{x}i,\mathbf{x}_j) - \frac{2}{n_1 n_2}\sum{i=1}^{n_1} \sum_{j =1}^{n_2} K_{\bar{F}}(\mathbf{x}i,\mathbf{y}_j) + \frac{1}{n_2(n_2-1)}\sum{i=1}^{n_2} \sum_{j \not=i}^{n_2} K_{\bar{F}}(\mathbf{y}i,\mathbf{y}_j). \nonumber $$ where $K{\bar{F}}$ denotes the Normal kernel $K$ defined as
$$
K(\mathbf{s}, \mathbf{t}) = (2 \pi)^{-d/2}
\left(\det{\mathbf{\Sigma}_h}\right)^{-\frac{1}{2}}
\exp\left{-\frac{1}{2}(\mathbf{s} - \mathbf{t})^\top
\mathbf{\Sigma}_h^{-1}(\mathbf{s} - \mathbf{t})\right},
$$
for every $\mathbf{s}, \mathbf{t} \in \mathbb{R}^d \times
\mathbb{R}^d$, with covariance matrix $\mathbf{\Sigma}_h = h^2 I$ and
tuning parameter $h$, centered with respect to $\bar{F} = \frac{n_1F + n_2G}{n_1 + n_2}$. For more information about the centering of the kernel, see the documentation of the kb.test()
function.
help(kb.test)
The KBQD tests exhibit high power against asymmetric alternatives that are close to the null hypothesis and with small sample size. We consider an example of this scenario. \cr We generate the samples $x = (x_1, \ldots,x_n)$ from a standard normal distribution $N_d(0,I_d)$ and $y = (y_1, \ldots,y_n)$ from a skew-normal distribution $SN_d(0,I_d, \lambda)$, where $d=4$, $n=100$ and $\lambda= (0.5,\ldots,0.5)$.
knitr::opts_chunk$set(warning = FALSE, message = FALSE)
library(sn) library(mvtnorm) library(QuadratiK) n <- 100 d <- 4 skewness_y <- 0.5 set.seed(2468) x_2 <- rmvnorm(n, mean = rep(0,d)) y_2 <- rmsn(n=n, xi=0, Omega = diag(d), alpha=rep(skewness_y,d))
The two-sample test can be performed by providing the two samples to be compared as x
and y
to the kb.test()
function. If a value of $h$ is not provided, the function automatically performs the function select_h
.
set.seed(2468) two_test <- kb.test(x=x_2, y=y_2) two_test
We can display the chosen optimal value of $h$ together with the power plot obtained versus the considered $h$, for the alternatives $\delta$ in the select_h()
function.
two_test@h$h_sel two_test@h$power.plot
For more details visit the help documentation of the select_h()
function.
help(select_h)
For the two-sample case, the summary
function provides the results from the test and a list tables of the standard descriptive statistics for each variable, computed per group and overall.
Additionally, it generates the qq-plots comparing the quantiles of the two groups for each variable.
summary_two <- summary(two_test)
summary_two$summary_tables
The search for the optimal value of the tuning parameter $h$ can be performed independently from the test computation using the select_h
function. It requires the two samples, provided as x
and y
, and the considered family of alternatives.
set.seed(2468) two_test_h <- select_h(x=x_2, y=y_2, alternative = "skewness")
The code is not evaluated since we would obtain the same results.
Notice that the test statistics for two-sample testing coincide with the $k$-sample test statistics when $k=2$. Hence, alternatively the two sample tests can be performed providing the two samples together as x
and indicating the membership to the groups with the argument y
.
x_pool <- rbind(x_2,y_2) y_memb <- rep(c(1,2),each=n) h <- two_test@h$h_sel set.seed(2468) kb.test(x=x_pool, y=y_memb, h=h)
See the k-sample test vignette for more details.
In the kb.test()
function, the critical value can be computed with the subsampling, bootstrap or permutation algorithm. The default method is set to subsampling since it needs less computational time. For details on the sampling algorithm see the documentation of the kb.test()
function.
For more details on the level and power performance of the considered two-sample tests, see the extensive simulation study reported in the following reference.
Markatou, M. and Saraceno, G. (2024). “A Unified Framework for
Multivariate Two- and k-Sample Kernel-based Quadratic Distance
Goodness-of-Fit Tests.”
https://doi.org/10.48550/arXiv.2407.16374
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.