search for: mme1

...mean(me2)*(1-mean(me2))) ve2m <- 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 <...