A simple function is given here which returns the density function values for a Pareto RV. A more efficient implementation is obtainable in the function "dpareto" from the "VGAM" package.
pareto_density(x, scale, shape)
Arguments
x: the x value
scale: the scale parameter of Pareto RV
shape: the shape parameter of Pareto RV
Author(s)
Prabhanjan N. Tattar
See Also
VGAM::dpareto
Examples
m <-9184n <-103b <-10000K <-10theta <- seq(1000,20000,500)plot(theta,as.numeric(sapply(theta,pareto_density,scale=b,shape=K)),"l", xlab=expression(theta),ylab="The Posterior Density")(n+1)*m/n