Create three vectors Here is the first vector named myX
myX <- seq(1:15)
Here is the second vector named myY
myY <- floor(runif(15,min=0,max=101))
Here is the third vector named myZ
myZ <- myX * myY
Plot myZ vs myX
plot(myZ~myX)