param <- matrix(c(0.7, 0.1, 0.5,
0.75, 0.12, 0.54,
0.66, 0.11, 0.56,
0.74, 0.09, 0.55), nrow=4, byrow=TRUE)
SE <- matrix(c(0.1, 0.01, 0.05,
0.11, 0.023, 0.055,
0.10, 0.005, 0.04,
0.14, 0.012, 0.039), nrow=4, byrow=TRUE)
nimps <- 4
miPoolVector(param, SE, nimps)
Run the code above in your browser using DataLab