Displaying 1 result from an estimated 1 matches for "het01".
Did you mean:
et01
2010 Sep 23
2
Error: attempt to apply non-function
...vector(length=num.trials.01)
simOR01 <- vector(length=num.trials.01)
trialnum01 <- vector(length=num.trials.01)
x0count <- vector(length = num.trials.01)
x1count <- vector(length = num.trials.01)
## Trial 1, comparison of treatment 1 with treatment 0
for (i in 1:num.trials.01) {
het01 <- rnorm(1,0,LOR01.het.in)
log.odds.ratio.01 <- log(TruOR01) + het01
odds.ratio.01 <- exp (log.odds.ratio.01)
p1.trial01 <- (p0.trial01 * odds.ratio.01) / (1 - p0.trial01 +
(p0.trial01 * odds.ratio.01))
x0.trial01[i] &l...