# NOT RUN {
# First load the simulated data variables. The "simdat" file is
# a 100-by-9 matrix which is loaded with the factorial2x2 package.
time <- simdat[, "time"]
event <- simdat[, "event"]
indA <- simdat[, "indA"]
indB <- simdat[, "indB"]
covmat <- simdat[, 6:10]
fac2x2analyze(time, event, indA, indB, covmat, alpha = 0.05, niter = 5)
# $loghrA
# [1] 0.05613844
# $seA
# [1] 0.4531521
# $ZstatA
# [1] 0.1238843
# $pvalA
# [1] 0.9014069
# $hrA
# [1] 1.057744
# $ciA
# [1] 0.4351608 2.5710556
# $loghra
# [1] 0.1987329
# $sea
# [1] 0.6805458
# $Zstata
# [1] 0.2920198
# $pvala
# [1] 0.7702714
# $hra
# [1] 1.219856
# $cia
# [1] 0.3213781 4.6302116
# $loghrab
# [1] 0.2864932
# $seab
# [1] 0.6762458
# $Zstatab
# [1] 0.4236525
# $pvalab
# [1] 0.6718193
# $hrab
# [1] 1.331749
# $ciab
# [1] 0.3538265 5.0125010
# $crit23A
# [1] -2.129
# $sig23A
# [1] 0.03325426
# $crit23ab
# [1] -2.299
# $sig23ab
# [1] 0.02150494
# $result23
# [1] "accept overall A" "accept simple AB"
# $crit13
# [1] -2.338
# $sig13
# [1] 0.01938725
# $result13
# [1] "accept overall A" "accept simple A" "accept simple AB"
# $crit12
# [1] -2.216
# $sig12
# [1] 0.0266915
# $result12
# [1] "accept simple A" "accept simple AB"
# $corAa
# [1] 0.6123399
# $corAab
# [1] 0.5675396
# $coraab
# [1] 0.4642737
# }
Run the code above in your browser using DataLab