step 1

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

step 2 Plot myZ against myX

Plot myZ vs myX

plot(myZ~myX)