bsaul

library(simcausal)

#### Custom Distribution Functions ####
rnorm_trunc <- function(n, mean, sd, minval = 0) 
{ 
  out <- rnorm(n = n, mean = mean, sd = sd) 
  minval <- minval[1] 
  out[out < minval] <- minval 
  out 
}