<div dir="ltr"><div><div><div><div>Mauro,<br><br></div>A função as.layer esta no pacote latticeExtra. Tive que usar o biocLite para instalar o pacote.<br></div><div><br>source("<a href="http://bioconductor.org/biocLite.R">http://bioconductor.org/biocLite.R</a>")<br>biocLite("latticeExtra")<br><br></div>Att.,<br><br></div>Alisson<br><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-10-05 21:07 GMT-03:00 Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div link="blue" vlink="purple" lang="PT-BR">
<div><span class="">
<p class="MsoNormal"><span style="font-family:"Arial","sans-serif";color:#1f497d">Não
consegui esta função! Eu usei a biblioteca lattice para o xyplot, rodou o
primeiro mas este não rodou porque não reconhece o as.layer</span><span style="font-family:"Arial","sans-serif""><u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
</span><p class="MsoNormal"><span style="font-family:"Courier New"">xyplot(imoveis/(moveis+imoveis)~sqrt(tem),
data=db,<span class=""><br>
jitter.x=TRUE, ylim=c(0, NA))+<br>
as.layer(xyplot(p~sqrt(tem), data=pred, type="l"))<br>
<br>
</span></span><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u><u></u></span></p><span class="">
<div>
<div>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span style="font-family:"Trebuchet MS","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span style="font-family:"Trebuchet MS","sans-serif"">O
fato de não serem significativos não é problema. Tem que ter em mente que
parametrização você usou e as hipóteses decorrentes. Nessa parametrização de
estimativas por cela (~trat-1), quando um trat tem estimativa 0, significa que
a prob de mobilidade é 0.5. Então esse teste de hipótese, apesar de feito e
retornado, não traz nada de interessante na maioria dos casos. Eu considero que
os interesses sejam sobre as diferenças entre trat e não se eles tem ou não
prob=0.5.<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Trebuchet MS","sans-serif"">Vamos
agora aos potenciais problemas. Os níveis A, B, B-12 e B-24 tem probabilidades
amostrais nas bordas, ou seja, 0 e 1. Na binomial, o espaço de p é (0, 1), ou
seja, não os incluem. No glm, tais valores são obtidos no limite, quando \eta =
X\beta vai para -\infty ou \infty, o p aproxima de 0 ou 1. Aplique o inverso da
função de ligação em -23 e verá que isso é zero. Pelo sufixo que usou nos
tratamentos, isso tem cara avaliação no tempo, com algumas testemunhas (sem
sufixo), como é de costume em muitos experimentos. Uma solução, seria ajustar a
curva para usando de T-0 à T-12. As testemunhas ficam de fora. Obtenha para
elas o IC por perfil de verossimilhança, pois, embora o limite inferir e
estimativa sejam 0, o limite superior será algo >0 (inverta o raciocínio
para a outra borda).<br>
<br>
</span><span style="font-family:"Courier New"">## Estimativa zero implica em
prob=0.5.<br>
glm_out$family$linkinv(0)<br>
glm_out$family$linkinv(-23)<br>
<br>
sub_data$tem <- as.numeric(gsub(x=sub_data$tratamento, "\\D",
""))<br>
<br>
db <- subset(sub_data, !<a href="http://is.na" target="_blank">is.na</a>(tem))<br>
<br>
xyplot(imoveis/(moveis+imoveis)~sqrt(tem), data=db,<br>
jitter.x=TRUE)<br>
<br>
m0 <- glm(cbind(imoveis, moveis) ~ sqrt(tem),<br>
family=binomial,
data=db)<br>
summary(m0)<br>
<br>
pred <- data.frame(tem=seq(0, 24, length.out=30))<br>
<br>
pred$p <- predict(m0, newdata=pred, type="response")<br>
<br>
xyplot(imoveis/(moveis+imoveis)~sqrt(tem), data=db,<br>
jitter.x=TRUE, ylim=c(0, NA))+<br>
as.layer(xyplot(p~sqrt(tem), data=pred, type="l"))<br>
</span><span style="font-family:"Trebuchet MS","sans-serif""><br>
À disposição.<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Trebuchet MS","sans-serif"">Walmes.<u></u><u></u></span></p>
</div>
<p class="MsoNormal"><span style="font-family:"Cambria Math","serif""></span><u></u><u></u></p>
</div>
</span></div>
<br><span class=""><br>
<hr style="border:none;color:#909090;background-color:#b0b0b0;min-height:1px;width:99%">
<table style="border-collapse:collapse;border:none">
<tbody><tr>
<td style="border:none;padding:0px 15px 0px 8px">
<a href="https://www.avast.com/antivirus" target="_blank">
<img src="http://static.avast.com/emails/avast-mail-stamp.png" alt="Avast logo" border="0">
</a>
</td>
<td>
<p style="color:#3d4d5a;font-family:"Calibri","Verdana","Arial","Helvetica";font-size:12pt">
Este email foi escaneado pelo Avast antivírus.
<br><a href="https://www.avast.com/antivirus" target="_blank">www.avast.com</a>
</p>
</td>
</tr>
</tbody></table>
<br>
</span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;display:inline!important;float:none;background-color:rgb(255,255,255)">Alisson Lucrecio da Costa</span></div></div>
</div>