Completa i seguenti comandi di
R
in modo da ottenere la figura a lato.
source("http://macosa.dima.unige.it/r.R")
f <- function(x,y) (x/a)^4+(y/b)^4-1