I am using qqplot to compare two sets of generated data both fitted to gamma. How can I add the 95% confidence bounds to the plot?
x <- rgamma(100,shape=1,scale=1)
y <- rgamma(100,shape=1,scale=1.2)
library(car)
myqq <- function(x, y) {
rg <- range(x, y, na.rm=T)
qqplot(x, y, xlim=rg, ylim=rg)
}
myqq(x, y)
abline(0,1, col="red")