Completa i seguenti comandi di
R
in modo da ottenere la figura a lato.
source("http://macosa.dima.unige.it/r.R")
r <- function(a) exp(sin(a))-2*cos(4*a)+sin((2*a-pi)/24)^5