count5test: The original "Count Five” test for equal variance

In XixuHu/SC19090: Statistical Computing Final Project, 2019 FALL, USTC

Description

The original "Count Five” test for equal variance

Usage

count5test(x, y)

Arguments

x	sample 1
y	sample 2

Value

1 for reject null hypothesis (equal variance), 0 for accept

Examples

## Not run: 
compute the type-I error for the original test
n1=20;n2=30;m=500
a1 = mean(replicate(m, expr={ 
 x = rnorm(n1);y <- rnorm(n2)
 x = x - mean(x) #centered by sample mean
 y = y - mean(y)
 count5test(x, y)
}))

## End(Not run)

XixuHu/SC19090 documentation built on Jan. 2, 2020, 8:40 p.m.