以下程序绘制了一幅功效分析图形：
> library(pwr)
> r<-seq(.1,.5,.01)  
> nr<-length(r)     
> p<-seq(.4,.9,.1)
> np<-length(p)
> samsize<-array(numeric(nr*np),dim=c(nr,np))   
> for(i in 1:np){      
+ for(j in 1:nr){
+ result<-pwr.r.test(n=NULL,r=r[j],sig.level=.05,power=p,
+ alternative='two.sided')
+ samsize[j,i]<-ceiling(result$n)
+ }}
> xrange<-range(r)
> yrange<-range(range(samsize))
> colors<-rainbow(length(p))
> plot(xrange,yrange,type='n')
> for(i in 1:np){
+ lines(r,samsize[,i],type='l',lwd=2,col=colors)
+ }
> abline(v=0,h=seq(0,yrange[2],50),lty=2,col='grey89')
> abline(h=0,v=seq(xrange[1],xrange[2],.02),lty=2,col='grey89')
> legend('topright',title='power',as.character(p),fill=colors)

请问：其中的seq(0,yrange[2],50)中的yrange[2]中的[2]是什么意思，我没想明白，望高手指点，谢谢。