## Define the mixture
l_dist = list( Exponential$new() , Normal$new( mean = 5 , sd = 1 ) )
weights = base::c( 0.2 , 0.8 )
rvX = rv_mixture$new( l_dist , weights )
## Draw samples
X = rvX$rvs( 1000 )
Run the code above in your browser using DataLab