powered by
qqfit(x, FUN = qexp, par = list(), use.x = FALSE)
qexp
"exp"
FALSE
TRUE
x
ecdf
x <- rexp(100,rate=2) y2 <- qqfit(x,FUN=qexp,list(rate=2)) y4 <- qqfit(x,FUN=qexp,list(rate=4)) qqplot(x,y2) abline(0,1) qqplot(x,y4) abline(0,1)
Run the code above in your browser using DataLab