library(semmcci)
## MCFunc() ----------------------------------------------------------------
### Define func ------------------------------------------------------------
func <- function(x) {
out <- exp(x)
names(out) <- "exp"
out
}
### Generate Confidence Intervals ------------------------------------------
MCFunc(
coef = 0,
vcov = matrix(1),
func = func,
R = 5L, # use a large value e.g., 20000L for actual research
alpha = 0.05
)
Run the code above in your browser using DataLab