x<-2
dbellt (x, 2, 2)
pbellt (0.2, 2, 2)
pbellt (0.2, 2, 2)
rbellt (10, 2, 1)
x <- data_sbirth
mle_bt (x, 0.12, 0.2)
# Plot of PMF of the Bell Touchard distribution for selected parameteric values.
# The Bell Touchard distribution reduces to the Bell distribution for fixing theta=1.
x <- 0:50
lambda <- 2
theta <- 1.5
plot(dbellt(x, lambda, theta), type = "h", col="red",lwd = 3,
main = "Bell Touchard distribution",
ylab = "P(X = x)", xlab = "Number of events")
legend("topright",c(expression(lambda==2~~theta==1.5)),lty=1, col="red", lwd=2,cex=1.0)
Run the code above in your browser using DataLab