R弱智问题求教

题目要求当自变量alcohol=21时对应的因变量90%和95%的置信区间(confidence interval) . 我的R代码和结果如下：

1. > a<-read.table('alcoholarm.txt',header=T)
   
2. > attach(a)
   
3. > model<-lm(strength~alcohol)
   
4. > data1=data.frame(alcohol=21)
   
5. >predict(model,data1,interval='confidence',conf.level=0.95)
   
6.        fit                  lwr               upr
   
7. 1 20.15631 19.05482 21.25779
   
8. >predict(model,data1,interval='confidence',conf.level=0.90)
   
9.        fit                  lwr               upr
   
10. 1 20.15631 19.05482 21.25779

复制代码

结果90%和95%的区间都一样，这怎么回事啊？请高手指点

试试这样改:
> a<-read.table('alcoholarm.txt',header=T)
> attach(a)
> model<-lm(strength~alcohol)
> data1=data.frame(alcohol=21)
> predict(model,data1,interval='confidence',level=0.95)
> predict(model,data1,interval='confidence',level=0.90)