# NOT RUN {
n<-getGammaFromCI(qLow=0.82,qUpp=5.14)
print(n$pars) # the fitted parameter values (shape & rate)
n$r(10) # 10 random values from the fitted gamma distribution
n$d(6) # the probability density at x=6 for the gamma distribution
n$p(2) # the cumulative density at x=2 for the fitted gamma distribution
n$q(c(0.25,0.5,0.75)) # the 25th, 50th (median) and 75th percentiles of the fitted distribution
x<-seq(0,8,length=1e3)
y<-n$d(x)
plot(x,y,type="l",xlab="",ylab="density") # density plot for the fitted gamma distribution
# }
Run the code above in your browser using DataLab