<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Sua duvida é como traçar a curva do modelo ajustado no gráfico?<div><br></div><div>Se for você pode tentar o comando <font face="Courier New">curve()</font>caso contrário desconsidere o exemplo.</div><div><br></div><div>Ex:</div><div><br></div><div>vd<-c(<span style="font-size:10pt">0.18, 1.40, 6.85, 12.40, 16.15, 20.45, 25.13, 27.43, 29.23, 32.00, 34.75, 36.85</span><span style="font-size:10pt">)</span></div><div>vi<-c(30, 62, 92, 120, 148, 176, 208, 237, 266, 298, 328, 361)</div><div><span style="font-size:10pt">a <- max(vd) + 1</span></div><div><span style="font-size:10pt"><div>reg <- nls(vd ~ A/(1 + B * exp(-C * vi)), start = list(A = a,<span style="font-size:10pt"> B = exp(coef(lm((log((a - vd)/vd)) ~ vi))[1]), C = -(coef(lm((log((a - </span><span style="font-size:10pt">vd)/vd)) ~ vi))[2])))</span></div><div><span style="font-size:10pt">summary(reg)</span></div><div>par(family = "serif", cex = 0.8)</div><div>plot(vd ~ vi, ylab = "vd", xlab = "vi" , las = 1)</div><div>curve(coef(reg)[1]/(1 + coef(reg)[2] * exp(-coef(reg)[3] *<span style="font-size:10pt">x)), add = T)</span></div></span></div><div><br><br><div><div id="ecxSkyDrivePlaceholder"></div>> Date: Fri, 30 Nov 2012 16:02:23 +0000<br>> From: alanarocha@sapo.pt<br>> To: R-br@listas.c3sl.ufpr.br<br>> Subject: [R-br] dúvida<br>> <br>> estive a ver o help(abline) mas o unico exemplo que encontro é para o <br>> modelo y~x<br>> <br>> onde posso encontrar um exemplo da função abline() para <br>> lm(pthi~dose+grupo) ?Ana<br>> _______________________________________________<br>> R-br mailing list<br>> R-br@listas.c3sl.ufpr.br<br>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.<br></div></div> </div></body>
</html>