This is the assignment of week 3 of Coursera Developing Data Products course.

Never thought trigonometry could be cool, huh?

Look what a sine function can do!

set.seed(2019-10-25)

x <- rep(seq(0, 10, 0.1),10)
y <- sapply(seq(0, 10, 0.1), function(x) rep(x,10))
y <- as.vector(y)
z <- sin(x-y)