Displaying 1 result from an estimated 1 matches for "mme2".
Did you mean:
mm2
2005 Aug 04
1
Where the error message comes from?
...2m <- ve2*(1+(m-1)*re2)/(k*m)
## Combining and Computing ICER ##
d <- data.frame(s = c(rep(1,k),rep(2,k)),
i = c(1:k,1:k), n =rep(m,2*k),
mc=c(mc1,mc2),me=c(me1,me2))
mmc1 <- mean(d[1:k,4])
mmc2 <- mean(d[(k+1):(2*k),4])
mme1 <- mean(d[1:k,5])
mme2 <- mean(d[(k+1):(2*k),5])
cnn <- (vc1m+vc2m)/(mmc1-mmc2)^2
cdd <- (ve1m+ve2m)/(mme1-mme2)^2
cnd <-
(r1*(vc1m*ve1m)^0.5+r2*(vc2m*ve2m)^0.5)/((mmc1-mmc2)*(mme1-mme2))
R <- (mmc1-mmc2)/(mme1-mme2)
seR <- R*(cnn+cdd-2*cnd)^0.5
f1 <-
R*((1-3.8416*cnd)-1.96*((cnn...