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

print(mean(x))
## [1] 50.5
print(mean(y))
## [1] 50
print(sd(x))
## [1] 29.87474
print(sd(y))
## [1] 31.30495
print(min(x))
## [1] 1
print(max(x))
## [1] 100
print(min(y))
## [1] 1
print(max(y))
## [1] 99
print(mean(z))
## [1] 50.5
plot(x=x[1:15], y=y[1:15])

plot(z)