Comentarios agregados a script de R para generar el contour-plot del modelo