seq (from=0,to=15,by=3) #creamos un vector empezando de 0, terminando en 15 y de 3 en 3
1:15 #creamos un vector de 1 al 15 a intervalos de uno en uno 
x<-c(1,8)
rep(x,times=3) #repetimos el vector x tres veces
rep(x,times=c(2,3))#repetimos el primer elemento de x dos veces y el segundo, tres veces