### Plot a Tweedie density with 1<p<2
yy <- seq(0, 5, length = 100)
tweedie.plot( power = 1.7, mu = 1, phi = 1, y = yy, lwd = 2)
tweedie.plot( power = 1.2, mu = 1, phi = 1, y = yy, add = TRUE, lwd = 2, col = "red")
legend("topright", lwd = c(2, 2), col = c("black", "red"), pch = c(19, 19),
legend = c("p=1.7", "p=1.2") )
### Plot distribution functions
tweedie.plot( power = 1.05, mu = 1, phi = 1, y = yy,
lwd = 2, type = "cdf", ylim = c(0, 1))
tweedie.plot( power = 2, mu = 1, phi = 1, y = yy,
add = TRUE, lwd = 2, type = "cdf", col = "red")
legend("bottomright", lwd = c(2, 2), col = c("black", "red"),
legend = c("p=1.05", "p=2") )
### Now, plot two densities, combining p>2 and 1<p<2
tweedie.plot( power = 3.5, mu = 1, phi = 1, y = yy, lwd = 2)
tweedie.plot( power = 1.5, mu = 1, phi = 1, y = yy, lwd = 2, col = "red", add = TRUE)
legend("topright", lwd = c(2, 2), col = c("black", "red"), pch = c(NA, 19),
legend = c("p=3.5", "p=1.5") )
Run the code above in your browser using DataLab