Last chance! 50% off unlimited learning
Sale ends in
dparetoIV(x, location = 0, scale = 1, inequality = 1, shape = 1, log = FALSE)
pparetoIV(q, location = 0, scale = 1, inequality = 1, shape = 1)
qparetoIV(p, location = 0, scale = 1, inequality = 1, shape = 1)
rparetoIV(n, location = 0, scale = 1, inequality = 1, shape = 1)
dparetoIII(x, location = 0, scale = 1, inequality = 1, log = FALSE)
pparetoIII(q, location = 0, scale = 1, inequality = 1)
qparetoIII(p, location = 0, scale = 1, inequality = 1)
rparetoIII(n, location = 0, scale = 1, inequality = 1)
dparetoII(x, location = 0, scale = 1, shape = 1, log = FALSE)
pparetoII(q, location = 0, scale = 1, shape = 1)
qparetoII(p, location = 0, scale = 1, shape = 1)
rparetoII(n, location = 0, scale = 1, shape = 1)
dparetoI(x, scale = 1, shape = 1, log = FALSE)
pparetoI(q, scale = 1, shape = 1)
qparetoI(p, scale = 1, shape = 1)
rparetoI(n, scale = 1, shape = 1)
log = TRUE
then the logarithm of the density is returned.d
give the density,
functions beginning with the letter p
give the distribution function,
functions beginning with the letter q
give the quantile function, and
functions beginning with the letter r
generates random deviates.paretoIV
.Arnold, B. C. (1983) Pareto Distributions. Fairland, Maryland: International Cooperative Publishing House.
paretoIV
,
Pareto
.x <- seq(-0.2, 4, by = 0.01)
loc <- 0; Scale <- 1; ineq <- 1; shape <- 1.0
plot(x, dparetoIV(x, loc, Scale, ineq, shape), type = "l", col = "blue",
main = "Blue is density, orange is cumulative distribution function",
sub = "Purple are 5,10,...,95 percentiles", ylim = 0:1, las = 1, ylab = "")
abline(h = 0, col = "blue", lty = 2)
Q <- qparetoIV(seq(0.05, 0.95,by = 0.05), loc, Scale, ineq, shape)
lines(Q, dparetoIV(Q, loc, Scale, ineq, shape), col = "purple", lty = 3, type = "h")
lines(x, pparetoIV(x, loc, Scale, ineq, shape), col = "orange")
abline(h = 0, lty = 2)
Run the code above in your browser using DataLab