search for: qpareto

...b), lty = lty,col="red")} result <- list(alpha = alpha, b = b) class(result) <- "pareto" result} dpareto<-function(x, alpha,b) ifelse(x<b,0,alpha*(b^alpha)/(x^(alpha+1))) ppareto<-function(x, alpha,b) ifelse(x<b,0,1-(b/x)^alpha) qpareto<-function(p, alpha,b) b*exp(-log(1-p)/alpha) rpareto<-function(n, alpha,b) qpareto(runif(n),alpha=alpha,b=b) #LN lnormtfit_function(x,b, plot.it = F, lty = 1){ if (mode(x) != "numeric") stop("need numeric data") x <- x[!is.na(x)]...

Hi, guys, I need to simulate Pareto distribution. But I found 'rpareto' didn't exist in R. And it seems that Pareto distribution don't have mathematical relationships with other distributions. What can I do? Thanks a lot. Ni --------------------------------- [[alternative HTML version deleted]]