<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Considere esses exemplos</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">lattice: <a href="http://leg.ufpr.br/~walmes/cursoR/mgest/1medidas-influen.html">http://leg.ufpr.br/~walmes/cursoR/mgest/1medidas-influen.html</a></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">ggplot2: <a href="http://leg.ufpr.br/~walmes/analises/CECarducci/cafe_pedotrans.html">http://leg.ufpr.br/~walmes/analises/CECarducci/cafe_pedotrans.html</a></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Usando a graphics com <b>código reproduzível</b><br></div><div class="gmail_default"><span style="font-family:monospace"><br></span></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:monospace">m0 <- lm(dist ~ poly(speed, degree = 2), data = cars)<br><br>grid <- with(cars,<br>             data.frame(speed = seq(min(speed),<br>                                    max(speed),<br>                                    length.out = 31)))<br><br>mat <- predict(m0, newdata = grid, interval = "confidence")<br><br>grid <- cbind(grid, as.data.frame(mat))<br>str(grid)<br><br>plot(dist ~ speed, data = cars, type = "n")<br>with(grid, polygon(x = c(speed, rev(speed)),<br>                   y = c(lwr, rev(upr)),<br>                   col = "gray",<br>                   border = NA))<br>lines(fit ~ speed, data = grid)<br>points(dist ~ speed, data = cars)</span><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div><div style="font-family:trebuchet ms,sans-serif" class="gmail_default">À disposição.</div><div style="font-family:trebuchet ms,sans-serif" class="gmail_default">Walmes.</div><br></div>