x <- seq(from = 1, to = 100, by = 3)
x <- x[1:15]
y <- seq(from = 1, to = 100, by = 7)
z = sample.int(100)
z <- z[1:15]
x
##  [1]  1  4  7 10 13 16 19 22 25 28 31 34 37 40 43
y
##  [1]  1  8 15 22 29 36 43 50 57 64 71 78 85 92 99
z
##  [1] 47 56 58 24 15 32 71  5 22 27 81 10  1 45 83
mean(x)
## [1] 22
mean(y)
## [1] 50
sd(x)
## [1] 13.41641
sd(y)
## [1] 31.30495
max(x)
## [1] 43
min(y)
## [1] 1
max(y)
## [1] 99
min(y)
## [1] 1
mean(z)
## [1] 38.46667
plot(x,y)

plot(z)