# NOT RUN {
curve(dgBeta(x))
curve(dgBeta(x,gam=3,del=3))
curve(dgBeta(x,gam=1.5,del=2.5))
x <- 1:7
GA <- c(1,3,1.5,8); DE <- c(1,3,4,2.5)
par(mfrow=c(2,2))
for (j in 1:4) {
plot(x,dgBeta(x,gam=GA[j],del=DE[j]),type="h",
panel.first=points(x,dgBeta(x,gam=GA[j],del=DE[j]),pch=19),
main=paste("gamma=",GA[j]," delta=",DE[j],sep=""),ylim=c(0,.6),
ylab="dgBeta(x)")
}
# }
Run the code above in your browser using DataLab