Completa i seguenti comandi di R in modo da ottenere la figura a lato.   

source("http://macosa.dima.unige.it/r.R")
x <- function(t) 6*cos(t)-cos(6*t)
y <- function(t) 6*sin(t)-sin(6*t)