简单点可以实现类似功能的程序 - n<-100
- set.seed(123);x<-rnorm(n,5,1);y<-x+rnorm(n,3,.5)
- lm.xy<-lm(y~x)
- lm.for.plot<-as.data.frame(predict.lm(lm.xy,interval = "confidence"))
- attach(lm.for.plot)
- index<-order(fit)
- plot(sort(fit),pch=20,col="blue")
- points(1:n,lwr[index],pch=20,col="red",type='l')
- points(1:n,upr[index],pch=20,col="red",type='l')
- segments(1:n,lwr[index],1:n,upr[index],col="brown")
复制代码
- n<-100
- set.seed(123);x<-rnorm(n,5,1);y<-x+rnorm(n,3,.5)
- lm.xy<-lm(y~x)
- lm.for.plot<-as.data.frame(predict.lm(lm.xy,interval = "confidence"))
- attach(lm.for.plot)
- index<-order(fit)
- index.fill<-seq(1,n,by=2)
- points.fill<-c(upr[index],rev(lwr[index]))
- plot(c(1:n,n:1),points.fill,type='n')
- polygon(c(1:n,n:1),points.fill,border=NA,col="gray")
- points(sort(fit),pch=20,col="blue",add=T)
- points(1:n,lwr[index],pch=20,col="red",type='l')
- points(1:n,upr[index],pch=20,col="red",type='l')
- #segments(1:n,lwr[index],1:n,upr[index],col="brown")
复制代码
|