set.seed(1234)
# controls average and maximum overlaps
ex.1 <- MixSim(BarOmega = 0.05, MaxOmega = 0.15, K = 4, p = 5)
print(ex.1)
summary(ex.1)
# controls average overlap
ex.2 <- MixSim(BarOmega = 0.05, K = 4, p = 5, hom = TRUE)
print(ex.2)
summary(ex.2)
# controls maximum overlap
ex.3 <- MixSim(MaxOmega = 0.15, K = 4, p = 5, sph = TRUE)
print(ex.3)
summary(ex.3)Run the code above in your browser using DataLab