sigma = c(4, 2, 1) # Dispersion parameter
mymu = c(.1, .5, .7); xxx = seq(0, 1, len = 501)
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 = "")) }
Run the code above in your browser using DataLab