<div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Tenta Hmisc::rm.boot</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em sex, 6 de set de 2019 às 09:57, Walmes Zeviani por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><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" target="_blank">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" target="_blank">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>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>