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