# 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)
# crit23A
# [1] -2.13
# sig23A
# [1] 0.03317161
# crit23ab
# [1] -2.24
# sig23ab
# [1] 0.02509092
# crit13
# [1] -2.32
# sig13
# [1] 0.02034088
# crit12
# [1] -2.22
# sig12
# [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)
# $crit23A
# [1] -2.13
# $sig23A
# [1] 0.03317161
# $crit23ab
# [1] -2.3
# $sig23ab
# [1] 0.02144822
#
# $crit13
# [1] -2.34
# $sig13
# [1] 0.01928374
# $crit12
# [1] -2.22
# }
Run the code above in your browser using DataLab