sigma <- c(4, 2, 1) # Dispersion parameter
mymu <- c(0.1, 0.5, 0.7); xxx <- seq(0, 1, len = 501)
## Not run: par(mfrow = c(3, 3)) # Figure 2.1 of Song (2007)
# for (iii in 1:3)
# for (jjj in 1:3) {
# plot(xxx, dsimplex(xxx, mymu[jjj], sigma[iii]),
# type = "l", col = "blue", xlab = "", ylab = "", main =
# paste("mu = ", mymu[jjj], ", sigma = ", sigma[iii], sep = "")) } ## End(Not run)
Run the code above in your browser using DataLab