Displaying 1 result from an estimated 1 matches for "trialnum01".
2010 Sep 23
2
Error: attempt to apply non-function
...t have I done wrong?
Thanks
Jim
p0.trial01 <- 0.25
TruOR01 <- 0.80
num.patients.01 <- 50
num.trials.01 <- 5
LOR01.het.in <- 0.00
num.sims <- 1
simLOR01 <- vector(length=num.trials.01)
simLORSE01 <- 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) + het...