Simulate from a mixture of univariate exponential distributions.
rexpmix(n, lambda = 1, rate = 1)
Number of cases to simulate.
Vector of mixture probabilities, with length equal to
Vector of component rates.
rexpmix
returns an
rnormmix
, rmvnormmix
for Gaussian mixtures,
rweibullmix
for mixture of Weibull distributions.
# NOT RUN {
## Generate data from a 2-component mixture of exponentials.
n=300 # sample size
m=2 # nb components
lambda=c(1/3, 2/3); rate = c(1,1/10) # parameters
set.seed(1234)
x <- rexpmix(n, lambda, rate) # iid ~ exp mixture
## histogram of the simulated data.
hist(x, col=8)
# }
Run the code above in your browser using DataLab