# Simulate mixture of vMF data on (S^1)^2
r_mvmf_polysph(n = 10, d = c(1, 1),
mu = rbind(c(0, 1, 0, 1), c(1, 0, 1, 0)),
kappa = rbind(c(5, 2), c(1, 2)), prop = c(0.7, 0.3))
Run the code above in your browser using DataLab