# NOT RUN {
v1 <- VectorDistribution$new(distribution = "Binomial", params = data.frame(size = 1:2))
v2 <- VectorDistribution$new(distribution = "Binomial", params = data.frame(size = 3:4))
mv1 <- mixturiseVector(list(v1, v2))
# equivalently
mv2 <- VectorDistribution$new(list(
MixtureDistribution$new(distribution = "Binomial", params = data.frame(size = c(1, 3))),
MixtureDistribution$new(distribution = "Binomial", params = data.frame(size = c(2, 4)))
))
mv1$pdf(1:5)
mv2$pdf(1:5)
# }
Run the code above in your browser using DataLab