> 1:30
> 30:1
> seq(1,30)
> s3<-seq(1,30,by=2)
> s4<-seq(length=51,from=-1,by=0.2)
> length(s4)
> x<-1:4;
> i<-rep(2,4)
> y<-rep(x,2)
> z<-rep(x,i)
> w<-rep(x,x);
> x<-rep(1:3,rep(8,3))
> x<-rep(rep(1:4,rep(2,4)),3)