# NOT RUN {
# Example 1: Compute the nominal significance levels for rejection using
# the asymptotic correlations derived in Slud (1994)
corAa <- 1/sqrt(2)
corAab <- 1/sqrt(2)
coraab <- 1/2
crit2x2(corAa, corAab, coraab, dig = 2, alpha = 0.05, niter = 5)
# critEA3
# [1] -2.32
# sigEA3
# [1] 0.02034088
# critPA2A
# [1] -2.13
# sigPA2A
# [1] 0.03317161
# critPA2ab
# [1] -2.24
# sigPA2ab
# [1] 0.02509092
# critEA2
# [1] -2.22
# sigEA2
# [1] 0.02641877
# Example 2: Compute the nominal critical values and significance levels for rejection
# using the estimated correlations for simdat.
corAa <- 0.6123399
corAab <- 0.5675396
coraab <- 0.4642737
crit2x2(corAa, corAab, coraab, dig = 2, alpha = 0.05, niter = 5)
# $critEA3
# [1] -2.34
# $critPA2A
# [1] -2.13
# $sigPA2A
# [1] 0.03317161
# $critPA2ab
# [1] -2.3
# $sigPA2ab
# [1] 0.02144822
#
# $sigEA3
# [1] 0.01928374
# $critEA2
# [1] -2.22
# $sigEA2
# [1] 0.02641877
# }
Run the code above in your browser using DataLab