Creative Commons License

#Intro

Inference was only correct if distributional assumptions were satisfied

  • e.g Normal distribution

  • equal variance

  • The \(p\)-value: \(\text{P}_0\left[ \vert T\vert \geq \vert t \vert \right]\).

    • Calculated using the null distribution of \(T\) that we derived under the assumptions
    • In correct if assumptions are violated
  • \(95\%\) CI also builds upon these assumptions. If they are invalid then the intervals will not contain the population parameter with 95% probability.

  • Asymptotic theory is more difficult to place: the \(t\)-test is asymptotically non-parametric because for very large samples the distributional assumptions of normality are no longer important.

  • If assumptions hold the parametric approach

    • more efficient: larger power with same sample size + smaller CI.
    • more flexible: easier to analyse data with complex designs

0.1 Cholesterol voorbeeld

  • Cholesterol concentration in blood measured for
    • 5 patients (group=1) two days upon a stroke
    • 5 healthy subject (groep=2).
  • Is cholesterol concentration of hart patients and healthy subjects on average different?
chol <- read_tsv("https://raw.githubusercontent.com/GTPB/PSLS20/master/data/chol.txt")
chol$group <- as.factor(chol$group)
nGroups <- table(chol$group)
n <- sum(nGroups)
chol

  • Possibly outliers
  • Difficult to assess distributional assumptions when only 5 observations are available.

1 Rank Tests

  • Important group of non-parametric test
    • Non-parametric,
    • Exact \(p\)-values using a permutation null distribution.
    • No need for separate permutation distribution for each new dataset.
    • Permutation null distribution of rank tests only depends on sample size
    • Robust to outliers

#Ranks

Rank tests start from rank-transformed data.

  • Let \(Y_1, \ldots, Y_n\).
  • In the absence of ties \[R_i=R(Y_i) = \#\{Y_j: Y_j\leq Y_i; j=1,\ldots, n\}\]
  • Smallest observation has rank 1, second smallest rank 2, … , largest observation gets rank \(n\)
chol$cholest
 [1] 244 206 242 278 236 188 212 186 198 160
rank(chol$cholest)
 [1]  9  5  8 10  7  3  6  2  4  1

1.1 ties

Sometimes ties occur: two observations with identical values

withTies=c(403,507,507,610,651,651,651,830,900)
rank(withTies)
[1] 1.0 2.5 2.5 4.0 6.0 6.0 6.0 8.0 9.0
  • Ties: 507 occurs twice, 651 occurs 3 times

  • If ties occur midranks are used.

  • midrank of observation \(Y_i\) becomes \[\begin{eqnarray*} R_i &=& \frac{ \#\{Y_j: Y_j\leq Y_i\} + ( \#\{Y_j: Y_j < Y_i\} +1)}{2}. \end{eqnarray*}\]


1.2 Ranks of pooled sample

  • Let \(Y_{ij}\), \(i=1,\ldots, n_j\) be observations from two treatment groups \(j=1,2\).
  • They can also be represented by \(Z_1,\ldots, Z_n\) (\(n=n_1+n_2\)), the outcomes of the pooled sample
t(chol)
        [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9]  [,10]
group   "1"   "1"   "1"   "1"   "1"   "2"   "2"   "2"   "2"   "2"  
cholest "244" "206" "242" "278" "236" "188" "212" "186" "198" "160"
z=chol$cholest
z
 [1] 244 206 242 278 236 188 212 186 198 160
rank(z)
 [1]  9  5  8 10  7  3  6  2  4  1

2 Wilcoxon-Mann-Whitney Test

Simultaneously developed by Wilcoxon, and, Mann and Whitney: Wilcoxon-Mann-Whitney, Wilcoxon rank sum test or Mann-Whitney U test

2.1 hypotheses

Under \(H_0\) the distributions of the two groups are equal \[H_0: f_1=f_2\]

Under the alternative \(H_1\) the distributions differ in location \[H_1: \mu_1\neq \mu_2\]

\(H_1\) assumes location-shift, we will relax this assumption later on.

2.2 Test statistic

Classic T-test: difference in sample means \(\bar{Y}_1-\bar{Y}_2\).

Here: Difference in sample means based on rank transformed data

Ranks based on the pooled sample (upon joining the observations from the two groups): \(R_{ij}=R(Y_{ij})\) is de rank of observation \(Y_{ij}\) in the pooled sample.

\[ T = \frac{1}{n_1}\sum_{i=1}^{n_1} R(Y_{i1}) - \frac{1}{n_2}\sum_{i=1}^{n_2} R(Y_{i2}) . \]

  • Under \(H_0\) we expect the average rank of the first group to be close to that of the second group so \(T\) is close to zero.

  • Under \(H_1\) we expect the mean ranks to differ so that \(T\) deviates from zero.

  • It is sufficient to only calculate \[S_1=\sum_{i=1}^{n_1} R(Y_{i1})\].

  • \(S_1\) is the sum of the ranks of the first group: rank sum test.

  • This holds because \[ S_1+S_2 = \text{sum of all ranks} = 1+2+\cdots + n=\frac{1}{2}n(n+1). \]

  • \(S_1\) (or \(S_2\)) is a good test statistic

  • Use permutations to determine the exact permutation distribution. (Permute the ranks between the groups)

  • For a given \(n\) and no ties the rank transformed data is always \[1, 2, \ldots, n\]

  • For given \(n_1\) en \(n_2\) the permutation distribution is always the same!

  • With current computing power this is not so important any more.


2.3 Standardized statistic

Often the standardized test statistic is used \[ T = \frac{S_1-\text{E}_{0}\left[S_1\right]}{\sqrt{\text{Var}_{0}\left[S_1\right]}}, \]

  • with \(\text{E}_{0}\left[S_1\right]\) and \(\text{Var}_{0}\left[S_1\right]\) the expect mean and variance of S1 under \(H_0\).

  • Under \(H_0\) \[ \text{E}_{0}\left[S_1\right]= \frac{1}{2}n_1(n+1) \;\;\;\;\text{ en }\;\;\;\; \text{Var}_{0}\left[S_1\right]=\frac{1}{12}n_1n_2(n+1). \]

  • Under \(H_0\) and when \(\min(n_1,n_2)\rightarrow \infty\) \[ T = \frac{S_1-\text{E}_{0}\left[S_1\right]}{\sqrt{\text{Var}_{0}\left[S_1\right]}} \rightarrow N(0,1). \]

Asymptotically the standardised statistic follows a standard normal distribution!


2.4 Cholesterol example

We illustrate the result for the cholesterol example using the R function wilcox.test.

wilcox.test(cholest~group,data=chol)

    Wilcoxon rank sum exact test

data:  cholest by group
W = 24, p-value = 0.01587
alternative hypothesis: true location shift is not equal to 0
  • We reject \(H_0\) (\(p=\) 0.016 \(<0.05\))

  • The output shows \(W=\) 24?

  • Lets calculate

S1 <- sum(rank(chol$cholest)[chol$group==1])
S1
[1] 39
S2 <- sum(rank(chol$cholest)[chol$group==2]) 
S2
[1] 16
  • Where does \(W=\) 24 comes from?

2.5 Mann and Whitney test

Mann and Whitney test in absence of ties: \[ U_1 = \sum_{i=1}^{n_1}\sum_{k=1}^{n_2} \text{I}\left\{Y_{i1}\geq Y_{k2}\right\}. \]

  • with \(\text{I}\left\{.\right\}\) an indicator that equals 1 if the expression is true and is zero otherwise.

  • U counts how many times an observation of the first group is larger or equal to an observation from the second group.

y1=subset(chol,group==1)$cholest
y2=subset(chol,group==2)$cholest
u1Hlp=sapply(y1,function(y1i,y2) {y1i>=y2},y2=y2)
colnames(u1Hlp)=y1;rownames(u1Hlp)=y2
u1Hlp
     244   206  242  278  236
188 TRUE  TRUE TRUE TRUE TRUE
212 TRUE FALSE TRUE TRUE TRUE
186 TRUE  TRUE TRUE TRUE TRUE
198 TRUE  TRUE TRUE TRUE TRUE
160 TRUE  TRUE TRUE TRUE TRUE
U1=sum(u1Hlp); U1
[1] 24

It can be shown that \(U_1 = S_1 - \frac{1}{2}n_1(n_1+1).\)

S1-nGroups[1]*(nGroups[1]+1)/2
 1 
24 
  1. \(U_1\) en \(S_1\) contain the same information
  2. \(U_1\) is also a rank statistic, and
  3. Exact test based on \(U_1\) and \(S_1\) are equivalent.

2.6 Probabilistic index

  • \(U_1\) has a better interpretation feature
  • Let \(Y_j\) a random observation from group \(j\) (\(j=1,2\)). Then \[\begin{eqnarray*} \frac{1}{n_1n_2}\text{E}\left[U_1\right] &=& \text{P}\left[Y_1 \geq Y_2\right]. \end{eqnarray*}\]

So we can estimate the probability by calculating the mean of all indicator variable values \(\text{I}\left\{Y_{i1}\geq Y_{k2}\right\}\). Note, that we did \(n_1 \times n_2\) comparisons

mean(u1Hlp)
[1] 0.96
U1/(nGroups[1]*nGroups[2])
   1 
0.96 
  • Probability \(\text{P}\left[Y_1 \geq Y_2\right]\) is referred to as the probabilistic index.

  • It is the probability that a random observation of the first group is larger or equal than a random observation of the second group

  • If \(H_0\) holds \(\text{P}\left[Y_1 \geq Y_2\right]=\frac{1}{2}\).

  • R function wilcox.test does not return the Wilcoxon rank sum statistic. It returns the Mann-Whitney statistic \(U_1\).

  • Lets revisit the result

wTest<-wilcox.test(cholest~group,data=chol) 
wTest

    Wilcoxon rank sum exact test

data:  cholest by group
W = 24, p-value = 0.01587
alternative hypothesis: true location shift is not equal to 0
U1
[1] 24
probInd=wTest$statistic/prod(nGroups) 
probInd
   W 
0.96 

Because \(p=\) 0.0159 \(<0.05\) we conclude at the \(5\%\) significance level that the mean cholesterol level of hart patients is larger then that of healthy subjects.

  • Note that we have assumed that the location-shift model is valid in this conclusion.
  • We also know that higher cholesterol level are more likely for hart patients then for healthy subjects and this probability is \(U1/(n_1\times n_2)=\) 96%.
  • We should assess the location shift assumption. But this is not possible with only 5 observations.

Without the location-shift assumption the conclusion in terms of the probabilistic index remains valid!

  • So when we do not assume location shift we test for

\[H_0: F_1=F_2 \text{ vs } H_1: P[Y_1 \geq Y_2] \neq 0.5.\]

2.7 Conclusion

There is a significant difference in the distribution of the cholesterol concentration of hart patients two days upon a stroke and that of healthy subject ((\(p=\) 0.0159). It is more likely to observe higher cholesterol levels for hart patients then for healthy subjects. The point estimator for this probability is 96%.

LS0tCnRpdGxlOiAiOS4gTm9ucGFyYW1ldHJpYyBTdGF0aXN0aWNzIC0gV2lsY294b24tTWFubi1XaXRobmV5IHRlc3QiICAKYXV0aG9yOiAiTGlldmVuIENsZW1lbnQiCmRhdGU6ICJzdGF0T21pY3MsIEdoZW50IFVuaXZlcnNpdHkgKGh0dHBzOi8vc3RhdG9taWNzLmdpdGh1Yi5pbykiCm91dHB1dDoKICAgIGh0bWxfZG9jdW1lbnQ6CiAgICAgIGNvZGVfZG93bmxvYWQ6IHRydWUgICAgCiAgICAgIHRoZW1lOiBjb3NtbwogICAgICB0b2M6IHRydWUKICAgICAgdG9jX2Zsb2F0OiB0cnVlCiAgICAgIGhpZ2hsaWdodDogdGFuZ28KICAgICAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlCi0tLQoKPGEgcmVsPSJsaWNlbnNlIiBocmVmPSJodHRwczovL2NyZWF0aXZlY29tbW9ucy5vcmcvbGljZW5zZXMvYnktbmMtc2EvNC4wIj48aW1nIGFsdD0iQ3JlYXRpdmUgQ29tbW9ucyBMaWNlbnNlIiBzdHlsZT0iYm9yZGVyLXdpZHRoOjAiIHNyYz0iaHR0cHM6Ly9pLmNyZWF0aXZlY29tbW9ucy5vcmcvbC9ieS1uYy1zYS80LjAvODh4MzEucG5nIiAvPjwvYT4KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoaW5jbHVkZSA9IFRSVUUsIGNvbW1lbnQgPSBOQSwgZWNobyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICBtZXNzYWdlID0gRkFMU0UsIHdhcm5pbmcgPSBGQUxTRSkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoUm1pc2MpCnNldC5zZWVkKDE0MCkKYGBgCgoKI0ludHJvCgpJbmZlcmVuY2Ugd2FzIG9ubHkgY29ycmVjdCBpZiBkaXN0cmlidXRpb25hbCBhc3N1bXB0aW9ucyB3ZXJlIHNhdGlzZmllZCAKCi0gZS5nIE5vcm1hbCBkaXN0cmlidXRpb24gCi0gZXF1YWwgdmFyaWFuY2UgCiAKLSAgVGhlICRwJC12YWx1ZTogJFx0ZXh0e1B9XzBcbGVmdFsgXHZlcnQgVFx2ZXJ0IFxnZXEgXHZlcnQgdCBcdmVydCBccmlnaHRdJC4gCiAgCQoJLSBDYWxjdWxhdGVkIHVzaW5nIHRoZSBudWxsIGRpc3RyaWJ1dGlvbiBvZiAkVCQgdGhhdCB3ZSBkZXJpdmVkIHVuZGVyIHRoZSBhc3N1bXB0aW9ucwoJLSBJbiBjb3JyZWN0IGlmIGFzc3VtcHRpb25zIGFyZSB2aW9sYXRlZCAgCgkKLSAgJDk1XCUkIENJIGFsc28gYnVpbGRzIHVwb24gdGhlc2UgYXNzdW1wdGlvbnMuIElmIHRoZXkgYXJlIGludmFsaWQgdGhlbiB0aGUgaW50ZXJ2YWxzIHdpbGwgbm90IGNvbnRhaW4gdGhlIHBvcHVsYXRpb24gcGFyYW1ldGVyIHdpdGggOTUlIHByb2JhYmlsaXR5LgoKLSBBc3ltcHRvdGljIHRoZW9yeSBpcyBtb3JlIGRpZmZpY3VsdCB0byBwbGFjZTogdGhlICR0JC10ZXN0IGlzIGFzeW1wdG90aWNhbGx5IG5vbi1wYXJhbWV0cmljIGJlY2F1c2UgZm9yIHZlcnkgbGFyZ2Ugc2FtcGxlcyB0aGUgZGlzdHJpYnV0aW9uYWwgYXNzdW1wdGlvbnMgb2Ygbm9ybWFsaXR5IGFyZSBubyBsb25nZXIgaW1wb3J0YW50LiAKCi0gSWYgYXNzdW1wdGlvbnMgaG9sZCB0aGUgcGFyYW1ldHJpYyBhcHByb2FjaAoKCS0gbW9yZSBlZmZpY2llbnQ6IGxhcmdlciBwb3dlciB3aXRoIHNhbWUgc2FtcGxlIHNpemUgKyBzbWFsbGVyIENJLiAgCgktIG1vcmUgZmxleGlibGU6IGVhc2llciB0byBhbmFseXNlIGRhdGEgd2l0aCBjb21wbGV4IGRlc2lnbnMgIAoJCi0tLQoKIyMgQ2hvbGVzdGVyb2wgdm9vcmJlZWxkCgotIENob2xlc3Rlcm9sIGNvbmNlbnRyYXRpb24gaW4gYmxvb2QgbWVhc3VyZWQgZm9yIAogIC0gNSBwYXRpZW50cyAoZ3JvdXA9MSkgdHdvIGRheXMgdXBvbiBhIHN0cm9rZQogIC0gNSBoZWFsdGh5IHN1YmplY3QgKGdyb2VwPTIpLiAKCi0gSXMgY2hvbGVzdGVyb2wgY29uY2VudHJhdGlvbiBvZiBoYXJ0IHBhdGllbnRzIGFuZCBoZWFsdGh5IHN1YmplY3RzIG9uIGF2ZXJhZ2UgZGlmZmVyZW50PyAKCmBgYHtyfQpjaG9sIDwtIHJlYWRfdHN2KCJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vR1RQQi9QU0xTMjAvbWFzdGVyL2RhdGEvY2hvbC50eHQiKQpjaG9sJGdyb3VwIDwtIGFzLmZhY3RvcihjaG9sJGdyb3VwKQpuR3JvdXBzIDwtIHRhYmxlKGNob2wkZ3JvdXApCm4gPC0gc3VtKG5Hcm91cHMpCmNob2wKYGBgCgotLS0KCgpgYGB7ciwgZWNobz1GQUxTRSwgZmlnLmFsaWduPSdjZW50ZXInfQpjaG9sICU+JSAgZ2dwbG90KGFlcyh4PWdyb3VwLHk9Y2hvbGVzdCkpICsgZ2VvbV9ib3hwbG90KG91dGxpZXIuc2hhcGU9TkEpICsgZ2VvbV9wb2ludChwb3NpdGlvbj0iaml0dGVyIikKCmNob2wgJT4lIGdncGxvdChhZXMoc2FtcGxlPWNob2xlc3QpKSArIAogIGdlb21fcXEoKSArCiAgZ2VvbV9xcV9saW5lKCkgKwogIGZhY2V0X3dyYXAofmdyb3VwKSAKYGBgCgotIFBvc3NpYmx5IG91dGxpZXJzCi0gRGlmZmljdWx0IHRvIGFzc2VzcyBkaXN0cmlidXRpb25hbCBhc3N1bXB0aW9ucyB3aGVuIG9ubHkgNSBvYnNlcnZhdGlvbnMgYXJlIGF2YWlsYWJsZS4gCgoKIyBSYW5rIFRlc3RzCgotIEltcG9ydGFudCBncm91cCBvZiBub24tcGFyYW1ldHJpYyB0ZXN0CiAgLSBOb24tcGFyYW1ldHJpYywgCiAgLSBFeGFjdCAkcCQtdmFsdWVzIHVzaW5nIGEgcGVybXV0YXRpb24gbnVsbCBkaXN0cmlidXRpb24uIAogIC0gTm8gbmVlZCBmb3Igc2VwYXJhdGUgcGVybXV0YXRpb24gZGlzdHJpYnV0aW9uIGZvciBlYWNoIG5ldyBkYXRhc2V0LiAgCiAgLSBQZXJtdXRhdGlvbiBudWxsIGRpc3RyaWJ1dGlvbiBvZiByYW5rIHRlc3RzIG9ubHkgZGVwZW5kcyBvbiBzYW1wbGUgc2l6ZSAKICAtIFJvYnVzdCB0byBvdXRsaWVycyAKCi0tLQoKI1JhbmtzCgpSYW5rIHRlc3RzIHN0YXJ0IGZyb20gcmFuay10cmFuc2Zvcm1lZCBkYXRhLiAKCi0gTGV0ICRZXzEsIFxsZG90cywgWV9uJC4gCi0gSW4gdGhlIGFic2VuY2Ugb2YgKnRpZXMqIAogICQkUl9pPVIoWV9pKSA9IFwjXHtZX2o6IFlfalxsZXEgWV9pOyBqPTEsXGxkb3RzLCBuXH0kJAotIFNtYWxsZXN0IG9ic2VydmF0aW9uIGhhcyByYW5rIDEsIHNlY29uZCBzbWFsbGVzdCByYW5rIDIsIC4uLiAsIGxhcmdlc3Qgb2JzZXJ2YXRpb24gZ2V0cyByYW5rICRuJCAKCmBgYHtyfQpjaG9sJGNob2xlc3QKcmFuayhjaG9sJGNob2xlc3QpCmBgYAoKLS0tCgojIyB0aWVzIAoKU29tZXRpbWVzICp0aWVzKiBvY2N1cjogdHdvIG9ic2VydmF0aW9ucyB3aXRoIGlkZW50aWNhbCB2YWx1ZXMgCgpgYGB7cn0Kd2l0aFRpZXM9Yyg0MDMsNTA3LDUwNyw2MTAsNjUxLDY1MSw2NTEsODMwLDkwMCkKcmFuayh3aXRoVGllcykKYGBgCgotIFRpZXM6IDUwNyBvY2N1cnMgdHdpY2UsIDY1MSBvY2N1cnMgMyB0aW1lcwotIElmIHRpZXMgb2NjdXIgKm1pZHJhbmtzKiBhcmUgdXNlZC4gCgotICoqbWlkcmFuayoqIG9mIG9ic2VydmF0aW9uICRZX2kkIGJlY29tZXMKICBcYmVnaW57ZXFuYXJyYXkqfQogICBSX2kgJj0mIFxmcmFjeyBcI1x7WV9qOiBZX2pcbGVxIFlfaVx9ICsgKCBcI1x7WV9qOiBZX2ogPCBZX2lcfSArMSl9ezJ9LgogICBcZW5ke2VxbmFycmF5Kn0KCi0tLQoKIyMgUmFua3Mgb2YgcG9vbGVkIHNhbXBsZQoKLSBMZXQgJFlfe2lqfSQsICRpPTEsXGxkb3RzLCBuX2okIGJlIG9ic2VydmF0aW9ucyBmcm9tIHR3byB0cmVhdG1lbnQgZ3JvdXBzICRqPTEsMiQuCi0gVGhleSBjYW4gYWxzbyBiZSByZXByZXNlbnRlZCBieSAkWl8xLFxsZG90cywgWl9uJCAoJG49bl8xK25fMiQpLCB0aGUgb3V0Y29tZXMgb2YgdGhlIHBvb2xlZCBzYW1wbGUKCmBgYHtyfQp0KGNob2wpCno9Y2hvbCRjaG9sZXN0CnoKcmFuayh6KQpgYGAKLS0tCgojIFdpbGNveG9uLU1hbm4tV2hpdG5leSBUZXN0CgogU2ltdWx0YW5lb3VzbHkgZGV2ZWxvcGVkIGJ5IFdpbGNveG9uLCBhbmQsICBNYW5uIGFuZCBXaGl0bmV5OiAgKipXaWxjb3hvbi1NYW5uLVdoaXRuZXkqKiwgKipXaWxjb3hvbiByYW5rIHN1bSB0ZXN0KiogIG9yICoqTWFubi1XaGl0bmV5IFUgdGVzdCoqCgojIyBoeXBvdGhlc2VzCiAgClVuZGVyICRIXzAkIHRoZSBkaXN0cmlidXRpb25zIG9mIHRoZSB0d28gZ3JvdXBzIGFyZSBlcXVhbCAKJCRIXzA6IGZfMT1mXzIkJAogIAoKVW5kZXIgdGhlIGFsdGVybmF0aXZlICRIXzEkIHRoZSBkaXN0cmlidXRpb25zIGRpZmZlciBpbiBsb2NhdGlvbiAkJEhfMTogXG11XzFcbmVxIFxtdV8yJCQKICAKJEhfMSQgYXNzdW1lcyAqKmxvY2F0aW9uLXNoaWZ0KiosIHdlIHdpbGwgcmVsYXggdGhpcyBhc3N1bXB0aW9uIGxhdGVyIG9uLiAgCgojIyBUZXN0IHN0YXRpc3RpYwoKQ2xhc3NpYyBULXRlc3Q6IGRpZmZlcmVuY2UgaW4gc2FtcGxlIG1lYW5zICRcYmFye1l9XzEtXGJhcntZfV8yJC4KCkhlcmU6IERpZmZlcmVuY2UgaW4gc2FtcGxlIG1lYW5zIGJhc2VkIG9uIHJhbmsgdHJhbnNmb3JtZWQgZGF0YSAKClJhbmtzIGJhc2VkIG9uIHRoZSBwb29sZWQgc2FtcGxlICh1cG9uIGpvaW5pbmcgdGhlIG9ic2VydmF0aW9ucyBmcm9tIHRoZSB0d28gZ3JvdXBzKTogJFJfe2lqfT1SKFlfe2lqfSkkIGlzIGRlIHJhbmsgb2Ygb2JzZXJ2YXRpb24gJFlfe2lqfSQgaW4gdGhlIHBvb2xlZCBzYW1wbGUuIAoKXFsKICBUID0gXGZyYWN7MX17bl8xfVxzdW1fe2k9MX1ee25fMX0gUihZX3tpMX0pIC0gXGZyYWN7MX17bl8yfVxzdW1fe2k9MX1ee25fMn0gUihZX3tpMn0pIC4KXF0KCi0gVW5kZXIgJEhfMCQgd2UgZXhwZWN0IHRoZSBhdmVyYWdlIHJhbmsgb2YgdGhlIGZpcnN0IGdyb3VwIHRvIGJlIGNsb3NlIHRvIHRoYXQgb2YgdGhlIHNlY29uZCBncm91cCBzbyAkVCQgaXMgY2xvc2UgdG8gemVyby4KCi0gVW5kZXIgJEhfMSQgd2UgZXhwZWN0IHRoZSBtZWFuIHJhbmtzIHRvIGRpZmZlciBzbyB0aGF0ICRUJCBkZXZpYXRlcyBmcm9tIHplcm8uIAoKLSBJdCBpcyBzdWZmaWNpZW50IHRvIG9ubHkgY2FsY3VsYXRlIAogICQkU18xPVxzdW1fe2k9MX1ee25fMX0gUihZX3tpMX0pJCQuCgotICRTXzEkIGlzIHRoZSBzdW0gb2YgdGhlIHJhbmtzIG9mIHRoZSBmaXJzdCBncm91cDogKnJhbmsgc3VtIHRlc3QqLgoKLSBUaGlzIGhvbGRzIGJlY2F1c2UgClxbCiAgU18xK1NfMiA9IFx0ZXh0e3N1bSBvZiBhbGwgcmFua3N9ID0gMSsyK1xjZG90cyArIG49XGZyYWN7MX17Mn1uKG4rMSkuClxdCgoKLSAkU18xJCAob3IgJFNfMiQpIGlzIGEgZ29vZCB0ZXN0IHN0YXRpc3RpYwoKLSBVc2UgcGVybXV0YXRpb25zIHRvIGRldGVybWluZSB0aGUgZXhhY3QgcGVybXV0YXRpb24gZGlzdHJpYnV0aW9uLiAoUGVybXV0ZSB0aGUgcmFua3MgYmV0d2VlbiB0aGUgZ3JvdXBzKSAKCi0gRm9yIGEgZ2l2ZW4gJG4kIGFuZCBubyAqdGllcyogdGhlIHJhbmsgdHJhbnNmb3JtZWQgZGF0YSBpcyBhbHdheXMgCiAgJCQxLCAyLCBcbGRvdHMsIG4kJCAKLSBGb3IgZ2l2ZW4gJG5fMSQgZW4gJG5fMiQgdGhlIHBlcm11dGF0aW9uIGRpc3RyaWJ1dGlvbiBpcyBhbHdheXMgdGhlIHNhbWUhIAotIFdpdGggY3VycmVudCBjb21wdXRpbmcgcG93ZXIgdGhpcyBpcyBub3Qgc28gaW1wb3J0YW50IGFueSBtb3JlLiAKCi0tLQoKIyMgU3RhbmRhcmRpemVkIHN0YXRpc3RpYyAKCk9mdGVuIHRoZSBzdGFuZGFyZGl6ZWQgdGVzdCBzdGF0aXN0aWMgaXMgdXNlZApcWwogIFQgPSBcZnJhY3tTXzEtXHRleHR7RX1fezB9XGxlZnRbU18xXHJpZ2h0XX17XHNxcnR7XHRleHR7VmFyfV97MH1cbGVmdFtTXzFccmlnaHRdfX0sClxdCgotIHdpdGggJFx0ZXh0e0V9X3swfVxsZWZ0W1NfMVxyaWdodF0kIGFuZCAkXHRleHR7VmFyfV97MH1cbGVmdFtTXzFccmlnaHRdJCB0aGUgZXhwZWN0IG1lYW4gYW5kIHZhcmlhbmNlIG9mIFMxIHVuZGVyICRIXzAkLiAKCi0gVW5kZXIgJEhfMCQKIFxbCiAgIFx0ZXh0e0V9X3swfVxsZWZ0W1NfMVxyaWdodF09IFxmcmFjezF9ezJ9bl8xKG4rMSkgXDtcO1w7XDtcdGV4dHsgZW4gfVw7XDtcO1w7IFx0ZXh0e1Zhcn1fezB9XGxlZnRbU18xXHJpZ2h0XT1cZnJhY3sxfXsxMn1uXzFuXzIobisxKS4KIFxdCgotIFVuZGVyICRIXzAkIGFuZCB3aGVuICRcbWluKG5fMSxuXzIpXHJpZ2h0YXJyb3cgXGluZnR5JAogXFsKICAgIFQgPSBcZnJhY3tTXzEtXHRleHR7RX1fezB9XGxlZnRbU18xXHJpZ2h0XX17XHNxcnR7XHRleHR7VmFyfV97MH1cbGVmdFtTXzFccmlnaHRdfX0gXHJpZ2h0YXJyb3cgTigwLDEpLiAgCiBcXQoKQXN5bXB0b3RpY2FsbHkgdGhlIHN0YW5kYXJkaXNlZCBzdGF0aXN0aWMgZm9sbG93cyBhIHN0YW5kYXJkIG5vcm1hbCBkaXN0cmlidXRpb24hIAoKLS0tCgojIyBDaG9sZXN0ZXJvbCBleGFtcGxlIAoKV2UgaWxsdXN0cmF0ZSB0aGUgcmVzdWx0IGZvciB0aGUgY2hvbGVzdGVyb2wgZXhhbXBsZSB1c2luZyB0aGUgUiBmdW5jdGlvbiBgd2lsY294LnRlc3RgLiAKYGBge3J9CndpbGNveC50ZXN0KGNob2xlc3R+Z3JvdXAsZGF0YT1jaG9sKQpgYGAKCi0gV2UgcmVqZWN0ICRIXzAkICgkcD0kIGByIGZvcm1hdCh3aWxjb3gudGVzdChjaG9sZXN0fmdyb3VwLGRhdGE9Y2hvbCkkcC52YWx1ZSxkaWdpdHM9MilgICQ8MC4wNSQpCgotIFRoZSBvdXRwdXQgc2hvd3MgJFc9JCBgciB3aWxjb3gudGVzdChjaG9sZXN0fmdyb3VwLGRhdGE9Y2hvbCkkc3RhdGlzdGljYD8gCgotIExldHMgY2FsY3VsYXRlIApgYGB7cn0KUzEgPC0gc3VtKHJhbmsoY2hvbCRjaG9sZXN0KVtjaG9sJGdyb3VwPT0xXSkKUzEKUzIgPC0gc3VtKHJhbmsoY2hvbCRjaG9sZXN0KVtjaG9sJGdyb3VwPT0yXSkgClMyCmBgYAoKLSBXaGVyZSBkb2VzICRXPSQgYHIgd2lsY294LnRlc3QoY2hvbGVzdH5ncm91cCxkYXRhPWNob2wpJHN0YXRpc3RpY2AgY29tZXMgZnJvbT8gCgotLS0KCiMjIE1hbm4gYW5kIFdoaXRuZXkgdGVzdAoKTWFubiBhbmQgV2hpdG5leSB0ZXN0IGluIGFic2VuY2Ugb2YgdGllczoKXFsKIFVfMSA9IFxzdW1fe2k9MX1ee25fMX1cc3VtX3trPTF9XntuXzJ9IFx0ZXh0e0l9XGxlZnRce1lfe2kxfVxnZXEgWV97azJ9XHJpZ2h0XH0uClxdCgotIHdpdGggJFx0ZXh0e0l9XGxlZnRcey5ccmlnaHRcfSQgYW4gaW5kaWNhdG9yIHRoYXQgZXF1YWxzIDEgIGlmIHRoZSBleHByZXNzaW9uIGlzIHRydWUgYW5kIGlzIHplcm8gb3RoZXJ3aXNlLiAKCi0gVSBjb3VudHMgaG93IG1hbnkgdGltZXMgYW4gb2JzZXJ2YXRpb24gb2YgdGhlIGZpcnN0IGdyb3VwIGlzIGxhcmdlciBvciBlcXVhbCB0byBhbiBvYnNlcnZhdGlvbiBmcm9tIHRoZSBzZWNvbmQgZ3JvdXAuCgpgYGB7cn0KeTE9c3Vic2V0KGNob2wsZ3JvdXA9PTEpJGNob2xlc3QKeTI9c3Vic2V0KGNob2wsZ3JvdXA9PTIpJGNob2xlc3QKdTFIbHA9c2FwcGx5KHkxLGZ1bmN0aW9uKHkxaSx5Mikge3kxaT49eTJ9LHkyPXkyKQpjb2xuYW1lcyh1MUhscCk9eTE7cm93bmFtZXModTFIbHApPXkyCmBgYAoKYGBge3J9CnUxSGxwClUxPXN1bSh1MUhscCk7IFUxCmBgYAoKSXQgY2FuIGJlIHNob3duIHRoYXQgJFVfMSA9IFNfMSAtIFxmcmFjezF9ezJ9bl8xKG5fMSsxKS4kCgpgYGB7cn0KUzEtbkdyb3Vwc1sxXSoobkdyb3Vwc1sxXSsxKS8yCmBgYAoKMS4gJFVfMSQgZW4gJFNfMSQgY29udGFpbiB0aGUgc2FtZSBpbmZvcm1hdGlvbiAKMi4gJFVfMSQgaXMgYWxzbyBhIHJhbmsgc3RhdGlzdGljLCBhbmQgCjMuIEV4YWN0IHRlc3QgYmFzZWQgb24gJFVfMSQgYW5kICRTXzEkIGFyZSBlcXVpdmFsZW50LiAKCi0tLQoKIyMgUHJvYmFiaWxpc3RpYyBpbmRleAoKLSAkVV8xJCBoYXMgYSBiZXR0ZXIgaW50ZXJwcmV0YXRpb24gZmVhdHVyZQotIExldCAkWV9qJCBhIHJhbmRvbSBvYnNlcnZhdGlvbiBmcm9tIGdyb3VwICRqJCAoJGo9MSwyJCkuIFRoZW4gClxiZWdpbntlcW5hcnJheSp9CiAgXGZyYWN7MX17bl8xbl8yfVx0ZXh0e0V9XGxlZnRbVV8xXHJpZ2h0XSAKICAgICAmPSYgXHRleHR7UH1cbGVmdFtZXzEgXGdlcSBZXzJccmlnaHRdLgpcZW5ke2VxbmFycmF5Kn0KClNvIHdlIGNhbiBlc3RpbWF0ZSB0aGUgcHJvYmFiaWxpdHkgYnkgY2FsY3VsYXRpbmcgdGhlIG1lYW4gb2YgYWxsIGluZGljYXRvciB2YXJpYWJsZSB2YWx1ZXMgJFx0ZXh0e0l9XGxlZnRce1lfe2kxfVxnZXEgWV97azJ9XHJpZ2h0XH0kLiBOb3RlLCB0aGF0IHdlIGRpZCAkbl8xIFx0aW1lcyBuXzIkIGNvbXBhcmlzb25zCgpgYGB7cn0KbWVhbih1MUhscCkKVTEvKG5Hcm91cHNbMV0qbkdyb3Vwc1syXSkKYGBgCgotIFByb2JhYmlsaXR5ICRcdGV4dHtQfVxsZWZ0W1lfMSBcZ2VxIFlfMlxyaWdodF0kIGlzIHJlZmVycmVkIHRvIGFzIHRoZSAqcHJvYmFiaWxpc3RpYyBpbmRleCouIAotIEl0IGlzIHRoZSBwcm9iYWJpbGl0eSB0aGF0IGEgcmFuZG9tIG9ic2VydmF0aW9uIG9mIHRoZSBmaXJzdCBncm91cCBpcyBsYXJnZXIgb3IgZXF1YWwgdGhhbiBhIHJhbmRvbSBvYnNlcnZhdGlvbiBvZiB0aGUgc2Vjb25kIGdyb3VwICAKLSBJZiAkSF8wJCBob2xkcyAkXHRleHR7UH1cbGVmdFtZXzEgXGdlcSBZXzJccmlnaHRdPVxmcmFjezF9ezJ9JC4KCi0gUiBmdW5jdGlvbiBgd2lsY294LnRlc3RgIGRvZXMgbm90IHJldHVybiB0aGUgV2lsY294b24gcmFuayBzdW0gc3RhdGlzdGljLiBJdCByZXR1cm5zIHRoZSBNYW5uLVdoaXRuZXkgc3RhdGlzdGljICRVXzEkLgotIExldHMgcmV2aXNpdCB0aGUgcmVzdWx0IApgYGB7cn0Kd1Rlc3Q8LXdpbGNveC50ZXN0KGNob2xlc3R+Z3JvdXAsZGF0YT1jaG9sKSAKd1Rlc3QKVTEKcHJvYkluZD13VGVzdCRzdGF0aXN0aWMvcHJvZChuR3JvdXBzKSAKcHJvYkluZApgYGAKCkJlY2F1c2UgJHA9JCBgciBmb3JtYXQod1Rlc3QkcC52YWx1ZSxkaWdpdHM9MylgICQ8MC4wNSQgd2UgY29uY2x1ZGUgYXQgdGhlICQ1XCUkIHNpZ25pZmljYW5jZSBsZXZlbCB0aGF0IHRoZSBtZWFuIGNob2xlc3Rlcm9sIGxldmVsIG9mIGhhcnQgcGF0aWVudHMgaXMgbGFyZ2VyIHRoZW4gdGhhdCBvZiBoZWFsdGh5IHN1YmplY3RzLiAKCiAgLSBOb3RlIHRoYXQgd2UgaGF2ZSBhc3N1bWVkIHRoYXQgdGhlIGxvY2F0aW9uLXNoaWZ0IG1vZGVsIGlzIHZhbGlkIGluIHRoaXMgY29uY2x1c2lvbi4gCiAgLSBXZSBhbHNvIGtub3cgdGhhdCBoaWdoZXIgY2hvbGVzdGVyb2wgbGV2ZWwgYXJlIG1vcmUgbGlrZWx5IGZvciBoYXJ0IHBhdGllbnRzIHRoZW4gZm9yIGhlYWx0aHkgc3ViamVjdHMgYW5kIHRoaXMgcHJvYmFiaWxpdHkgaXMgCiRVMS8obl8xXHRpbWVzIG5fMik9JCBgciBwcm9iSW5kKjEwMGAlLiAKICAtIFdlIHNob3VsZCBhc3Nlc3MgdGhlIGxvY2F0aW9uIHNoaWZ0IGFzc3VtcHRpb24uIEJ1dCB0aGlzIGlzIG5vdCBwb3NzaWJsZSB3aXRoIG9ubHkgNSBvYnNlcnZhdGlvbnMuIAoKV2l0aG91dCB0aGUgbG9jYXRpb24tc2hpZnQgYXNzdW1wdGlvbiB0aGUgY29uY2x1c2lvbiBpbiB0ZXJtcyBvZiB0aGUgcHJvYmFiaWxpc3RpYyBpbmRleCByZW1haW5zIHZhbGlkISAKCiAgLSBTbyB3aGVuIHdlIGRvIG5vdCBhc3N1bWUgbG9jYXRpb24gc2hpZnQgd2UgdGVzdCBmb3IgCgpcW0hfMDogRl8xPUZfMiBcdGV4dHsgdnMgfSBIXzE6IFBbWV8xIFxnZXEgWV8yXSBcbmVxIDAuNS5cXQoKCiMjIENvbmNsdXNpb24KClRoZXJlIGlzIGEgc2lnbmlmaWNhbnQgZGlmZmVyZW5jZSBpbiB0aGUgZGlzdHJpYnV0aW9uIG9mIHRoZSBjaG9sZXN0ZXJvbCBjb25jZW50cmF0aW9uIG9mIGhhcnQgcGF0aWVudHMgdHdvIGRheXMgdXBvbiBhIHN0cm9rZSBhbmQgdGhhdCBvZiBoZWFsdGh5IHN1YmplY3QgKCgkcD0kIGByIGZvcm1hdCh3VGVzdCRwLnZhbHVlLGRpZ2l0cz0zKWApLiBJdCBpcyBtb3JlIGxpa2VseSB0byBvYnNlcnZlIGhpZ2hlciBjaG9sZXN0ZXJvbCBsZXZlbHMgZm9yIGhhcnQgcGF0aWVudHMgdGhlbiBmb3IgaGVhbHRoeSBzdWJqZWN0cy4gVGhlIHBvaW50IGVzdGltYXRvciBmb3IgdGhpcyBwcm9iYWJpbGl0eSBpcyBgciBwcm9iSW5kKjEwMGAlLgo=