x<-seq(from=1,to=100, by=3)
y<-seq(from=1,to=100, by=7)
z<-sample(1:1000, size=100)

print(x)

##  [1]   1   4   7  10  13  16  19  22  25  28  31  34  37  40  43  46  49
## [18]  52  55  58  61  64  67  70  73  76  79  82  85  88  91  94  97 100

print(y)

##  [1]  1  8 15 22 29 36 43 50 57 64 71 78 85 92 99

paste("El valor medio de x es:", mean(x))

## [1] "El valor medio de x es: 50.5"

paste("El valor medio de x es:", mean(y))

## [1] "El valor medio de x es: 50"

paste("Desviacion estandar en x: ", sd(x))

## [1] "Desviacion estandar en x:  29.8747384925793"

paste("Desviacion estandar en y: ", sd(y))

## [1] "Desviacion estandar en y:  31.3049516849971"

paste("El valor maximo de x es: ", max(x))

## [1] "El valor maximo de x es:  100"

paste("El valor minimo de x es: ", min(x))

## [1] "El valor minimo de x es:  1"

paste("El valor medio de los numeros en z es: ", mean(z))

## [1] "El valor medio de los numeros en z es:  532.87"

sec1 <- x[1:15]
sec2 <- y[1:15]
plot(sec1,sec2)