# Univariate normal distribution
predictor(dist = rnorm, mean = 10, sd = 2.5)
# Multivariate normal distribution
library(mvtnorm)
predictor(dist = rmvnorm, mean = c(0, 1, 7))
# Multivariate with named columns
rmulti <- function(n) {
cbind(treatment = rbinom(n, size = 1, prob = 0.5),
confounder = rnorm(n)
)
}
predictor(dist = rmulti)
Run the code above in your browser using DataLab