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