library(semmcci)
## Generate Parameters -----------------------------------------------------
coef <- lapply(
X = 1:5,
FUN = function(i) {
rnorm(n = 1)
}
)
## Func() ------------------------------------------------------------------
### Define func ------------------------------------------------------------
func <- function(x) {
out <- exp(x)
names(out) <- "exp"
out
}
### Generate Confidence Intervals ------------------------------------------
Func(
coef,
func = func,
est = 1,
alpha = 0.05
)
Run the code above in your browser using DataLab