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)