x <- seq(-pi, pi, l = 200)
plot(x, x, type = "n", ylab = "drift")
for (i in 1:10) {
lines(x, driftMixVm(x = x, alpha = c(2, 2),
mu = c(0, -pi + 2 * pi * i / 10),
sigma = 1, p = c(0.5, 0.5)), col = rainbow(10)[i])
}
Run the code above in your browser using DataLab