Description Usage Arguments Details Value Author(s) References Examples
View source: R/HHG_univariate.R
These statistics are used in the omnibus distribution-free test of equality of distributions among K groups, as described in Heller et al. (2016).
1 2 3 | hhg.univariate.ks.stat(x, y,variant = 'KSample-Variant',aggregation.type='sum',
score.type='LikelihoodRatio', mmax = max(4,round(min(table(y))/3)),mmin=2,
nr.atoms= nr_bins_equipartition(length(x)))
|
x |
a numeric vector of data values. Tied observations are broken at random. |
y |
for |
variant |
Default value is |
aggregation.type |
a character string specifying the aggregation type, must be one of |
score.type |
a character string specifying the score type, must be one of |
mmax |
The maximum partition size of the ranked observations, default value is 1/3 the number of observations in the smallest group. |
mmin |
The minimum partition size of the ranked observations, default value is 2. |
nr.atoms |
For |
For each partition size m= mmin,…,mmax, the function computes the scores in each of the partitions (according to score type), and aggregates all scores according to the aggregation type (see details in Heller et al. , 2014). If the score type is one of "LikelihoodRatio"
or "Pearson"
, and the aggregation type is one of "sum"
or "max"
, then the computed statistic will be in statistic
, otherwise the computed statistics will be in the appropriate subset of sum.chisq
, sum.lr
, max.chisq
, and max.lr
.
For the 'sum' aggregation type (default), The test statistic is the sum of log likelihood (or Pearson Chi-square) scores, of all partitions of size m of the data, normalized by the number of partitions and the data size (thus, being an estimator of the Mutual Information). For the 'max' aggregation type, the test statistic is the maximum log likelihood (or Pearson Chi-square) score acheived by a partition of data of size m
.
Variant type "KSample-Equipartition"
is the computationally efficient version of the K-sample test. calculation time is reducing by aggregating over a subset of partitions, where a split between cells may be performed only every n/nr.atoms observations. This allows for a complexity of O(nr.atoms^2) (instead of O(n^2)). Computationly efficient versions are available for aggregation.type=='sum'
and aggregation.type=='max'
variants.
Returns a UnivariateStatistic
class object, with the following entries:
statistic |
The value of the computed statistic if the score type is one of |
sum.chisq |
A vector of size mmax-mmin+1, where the m-mmin+1 entry is the average over all Pearson chi-squared statistics from all the K X m contingency tables considered, divided by the total number of observations. |
sum.lr |
A vector of size mmax-mmin+1, where the m-mmin+1 entry is the average over all LikelihoodRatio statistics from all the K X m contingency tables considered, divided by the total number of observations. |
max.chisq |
A vector of size mmax-mmin+1, where the m-mmin+1 entry is the maximum over all Pearson chi-squared statistics from all the K X m contingency tables considered. |
max.lr |
A vector of size mmax-mmin+1, where the m-mmin+1 entry is the maximum over all Pearson chi-squared statistics from all the K X m contingency tables considered. |
type |
"KSample". |
stat.type |
"KSample". |
size |
A vector of size K of the ordered group sample sizes. |
score.type |
The input |
aggregation.type |
The input |
mmin |
The input |
mmax |
The input |
nr.atoms |
The input |
Barak Brill and Shachar Kaufman.
Heller, R., Heller, Y., Kaufman S., Brill B, & Gorfine, M. (2016). Consistent Distribution-Free K-Sample and Independence Tests for Univariate Random Variables, JMLR 17(29):1-54
Brill B. (2016) Scalable Non-Parametric Tests of Independence (master's thesis)
http://primage.tau.ac.il/libraries/theses/exeng/free/2899741.pdf
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | #Example of computing the test statisics for data from a two-sample problem:
#Two groups, each from a different normal mixture:
X = c(c(rnorm(25,-2,0.7),rnorm(25,2,0.7)),c(rnorm(25,-1.5,0.5),rnorm(25,1.5,0.5)))
Y = (c(rep(0,50),rep(1,50)))
plot(Y,X)
#I) Computing test statistics , with default parameters:
hhg.univariate.Sm.Likelihood.result = hhg.univariate.ks.stat(X,Y)
hhg.univariate.Sm.Likelihood.result
#II) Computing test statistics , with max aggregation type:
hhg.univariate.Mm.likelihood.result = hhg.univariate.ks.stat(X,Y,aggregation.type = 'max')
hhg.univariate.Mm.likelihood.result
#III) Computing statistics, which are computationaly efficient for large data:
#Two groups, each from a different normal mixture, total sample size is 10^4:
X_Large = c(c(rnorm(2500,-2,0.7),rnorm(2500,2,0.7)),
c(rnorm(2500,-1.5,0.5),rnorm(2500,1.5,0.5)))
Y_Large = (c(rep(0,5000),rep(1,5000)))
plot(Y_Large,X_Large)
# for these variants, make sure to change mmax so that mmax<= nr.atoms
hhg.univariate.Sm.EQP.Likelihood.result = hhg.univariate.ks.stat(X_Large,Y_Large,
variant = 'KSample-Equipartition',mmax=30)
hhg.univariate.Sm.EQP.Likelihood.result
hhg.univariate.Mm.EQP.likelihood.result = hhg.univariate.ks.stat(X_Large,Y_Large,
aggregation.type = 'max',variant = 'KSample-Equipartition',mmax=30)
hhg.univariate.Mm.EQP.likelihood.result
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.