X <- dpb(x=0:200, alpha=5, beta=3, c=20)
plot(0:200, X, type='l')
Y <- dpb(0:10, seq(10.0,11.0,by=0.1), seq(30.0,31.0,by=0.1), seq(10.2,11.2,by=0.1))
Y <- ppb(q= 0 :200, alpha=5, beta= 3, c=20)
plot(0:200, Y, type="l")
Z <- qpb(p= seq(0,1, by= 0.01), alpha=5, beta= 3, c=20)
plot(seq(0,1, by= 0.01),Z, type="l")
RV <- rpb(n = 1000, alpha=5, beta= 3, c=20)
plot(0 : 200, X, type="l")
lines(density(RV), col="red")
R2 <- rpb(11, seq(10.0,11.0,by=0.1), seq(30.0,31.0,by=0.1), seq(10.2,11.2,by=0.1))
Run the code above in your browser using DataLab