TITLE

WOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO R MARKDOWN!

Here’s a radical plot!

f <- function(x) {
  return(x^sin(cos(tan(x))))
}

x <- seq(0, 15 * pi, .0001)
plot(f(x) ~ x,
     type = "l",
     ylim = c(-30, 30),
     )
lines(-f(x) ~ x,
      type = "l",
      )