<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div><span><br></span></div><div></div><div><br></div><div><div>Olá pessoal , segue em anexo um exemplo reprodutível. Quero verificar se os interceptos proporcionados pelas retas de regressão bem como a inclinação são estatisticamente diferente e significativas, como faço isso?</div><div><br clear="none"></div><div><br clear="none"></div><div>segue abaixo os codigos e banco num link. O teste do paralelismo consiste em verificar se as inclinações são estatisticamente significantes? </div><div><br clear="none"></div><div><div><br clear="none"></div><div><br clear="none"></div><div>dados<-read.csv("bancoteste.csv",sep=";",dec=",",header=T)</div><div><br clear="none"></div><div>dados$Escolaridade3cat<-factor(dados$Escolaridade3cat,label=c("Fundamental","Médio","Superior/Pós
graduação"),levels=1:3) </div><div><br clear="none"></div><div><br clear="none"></div><div>dados$Quintis<-factor(dados$Quintis)</div><div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div><div>c <- ggplot(dados, aes(y=Risco, x=Idade, linetype=Quintis))</div><div><br clear="none"></div><div>p8 <-c + stat_smooth(method=lm, se=FALSE,color="black",size=1.5)+ xlab("Idade")+ylab("Risco")+scale_colour_hue(name="")+theme_bw()+facet_grid(.~ Escolaridade3cat,space="free",scales="free_x")</div><div><br clear="none"></div></div></div><div><br></div><div><br></div><div><br></div><div><br></div><div>https://www.dropbox.com/s/ymyzh7p0xhmumda/bancoteste.csv<br></div><div class="yahoo_quoted" style="display: block;"> <br> <br> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial,
'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quinta-feira, 6 de Março de 2014 10:12, geovane barbosa <geovanecb@yahoo.com.br> escreveu:<br> </font> </div> <div class="y_msg_container"><div id="yiv8772519275"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 10pt;"><div><span><br clear="none"></span></div><div></div><div> </div><div>Olá Prof, segue em anexo um exemplo reprodutível. Como eu lhe disse anteriormente, queria verificar se os interceptos proporcionados pelas retas de regressão bem como a inclinação são estatisticamente diferente e significativas, como faço isso?</div><div><br clear="none"></div><div><br clear="none"></div><div>segue abaixo os codigos e o banco de dados ficticio. O teste do paralelismo consiste em verificar se as inclinações
são estatisticamente significantes? </div><div><br clear="none"></div><div><div><br clear="none"></div><div><br clear="none"></div><div>dados<-read.csv("bancoteste.csv",sep=";",dec=",",header=T)</div><div><br clear="none"></div><div>dados$Escolaridade3cat<-factor(dados$Escolaridade3cat,label=c("Fundamental","Médio","Superior/Pós
graduação"),levels=1:3) </div><div><br clear="none"></div><div><br clear="none"></div><div>dados$Quintis<-factor(dados$Quintis)</div><div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div><div>c <- ggplot(dados, aes(y=Risco, x=Idade, linetype=Quintis))</div><div><br clear="none"></div><div>p8 <-c + stat_smooth(method=lm, se=FALSE,color="black",size=1.5)+ xlab("Idade")+ylab("Risco")+scale_colour_hue(name="")+theme_bw()+facet_grid(.~ Escolaridade3cat,space="free",scales="free_x")</div><div><br clear="none"></div></div><div><br clear="none"></div><div class="yiv8772519275yahoo_quoted" style="display: block;"> <br clear="none"> <br clear="none"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font
size="2" face="Arial"> Em Quarta-feira, 5 de Março de 2014 16:54, Benilton Carvalho <beniltoncarvalho@gmail.com> escreveu:<br clear="none"> </font>
</div> <div class="yiv8772519275y_msg_container"><div class="yiv8772519275yqt7568447165" id="yiv8772519275yqt86584"><div id="yiv8772519275"><div><div dir="ltr">A gente pede que exemplos reprodutíveis sejam dados para que possamos dar uma resposta definitiva sem a necessidade de idas e vindas. </div>
<div dir="ltr">Como eu não entendi quais são os três cenários, fica a tarefa p vc: o caso a que vc se refere consiste em testar se as interações das variáveis de interesse com os referidos grupos são conjuntamente iguais a zero. </div>
<div dir="ltr">b</div>
<div class="yiv8772519275gmail_quote">On Mar 5, 2014 11:00 AM, "geovane barbosa" <<a rel="nofollow" shape="rect" ymailto="mailto:geovanecb@yahoo.com.br" target="_blank" href="mailto:geovanecb@yahoo.com.br">geovanecb@yahoo.com.br</a>> wrote:<br clear="none"><blockquote class="yiv8772519275gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="yiv8772519275yqt8760453433" id="yiv8772519275yqt59794"><div><div style="font-size: 10pt; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><div><span><br clear="none"></span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span>Olá pessoal bom dia.</span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none">
</span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span>Estou com uma questão que não consigo soluciona-la.</span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span><br clear="none"></span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div>
<div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span>Realize um regressão linear múltipla para comprar um grau de risco por idade e por escolaridade.</span></div>
<div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span>Quero verificar se a inclinação proporcionada por essas retas é estatisticamente significativa, ou seja comparando a inclinação nos três cenários. bem como tambem seu intercepto. Como eu faço isso? Seria o test de Brant? Não consigo encontrar tal ferramenta no r.</span></div>
<div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span>abraços</span></div><div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div>
<div style="font-style: normal; font-size: 13px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div><div></div><div> </div>
</div></div></div><br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div></div></div></div><br clear="none"><div class="yiv8772519275yqt8760453433" id="yiv8772519275yqt25841">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo
reproduzível.</div><br clear="none"><br clear="none"></div> </div> </div> </div> </div></div></div><br><br></div> </div> </div> </div> </div></body></html>