如何比较r中的两组数据时的置信界限？

Question

我正在使用qqplot来比较两组适合伽马的生成数据。如何在图中添加95％置信区间？

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")