<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV><FONT face=Calibri><FONT
style="FONT-SIZE: 12pt">Geovane</FONT></FONT></DIV>
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV>Assumindo que as regressões propostas nos gráficos (p8) fazem sentido e
satisfazem os pressupostos do modelo de regressão linear poderia fazer o
seguinte:</DIV>
<DIV> </DIV>
<DIV>library(car)</DIV>
<DIV>escol='Superior/Pós graduação'</DIV>
<DIV> </DIV>
<DIV>model2=lm(Risco~0+(Idade*Quintis),subset(dados,Escolaridade3cat==escol))</DIV>
<DIV>summary(model2) # o teste para ‘Idade:Quintis5‘ na verdade está testando se
os coeficientes angulares são iguais ( ou a diferença deles é zero)</DIV>
<DIV> </DIV>
<DIV>#para testar a diferença dos interceptos</DIV>
<DIV>linearHypothesis(model2, "Quintis1 - Quintis5 =0")</DIV>
<DIV>linearHypothesis(model2, "Idade:Quintis5 =0")</DIV>
<DIV> </DIV>
<DIV>Aqui mostrei os testes para uma escolaridade (escol), na verdade vc tem
mais informação, teria que rodar um só modelo com todas as informações e fazer
os testes nele:</DIV>
<DIV>model1=lm(Risco~0+Idade*Escolaridade3cat*Quintis,data=dados)</DIV>
<DIV>summary(model1)</DIV>
<DIV> </DIV>
<DIV>Boa sorte</DIV>
<DIV> </DIV>
<DIV>Robert</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=beniltoncarvalho@gmail.com
href="mailto:beniltoncarvalho@gmail.com">Benilton Carvalho</A> </DIV>
<DIV><B>Sent:</B> Thursday, March 06, 2014 2:15 PM</DIV>
<DIV><B>To:</B> <A title=r-br@listas.c3sl.ufpr.br
href="mailto:r-br@listas.c3sl.ufpr.br">r-br</A> ; <A
title=geovanecb@yahoo.com.br href="mailto:geovanecb@yahoo.com.br">geovane
barbosa</A> </DIV>
<DIV><B>Subject:</B> Re: [R-br] Teste Paralelismo no r</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>Geovane,<BR><BR></DIV>Para realizar uma analise de dados, o estatistico
precisa entender a (hi/e)storia dos dados. Por exemplo, sem saber do que se
tratam os dados, e' dificil acreditar que a regressao linear simples que voce
apresenta no seu exemplo seja adequada. A outra coisa: como/onde entra o fator
"Quintis" existente no seu conjunto de dados?<BR><BR></DIV>Enfim, supondo
adequacidade em todos os sentidos (cabera' a vc verificar os pressupostos), se o
interesse e' averiguar a identidade das regressoes nos tres grupos escolares
(vou ignorar Quintis aqui, pois realmente nao sei o que e', nem como entra na
sua analise), eu ajustaria os modelos com interacao (vis-a-vis Escolaridade) e
compararia com o modelo simplificado (que contem apenas
Idade):<BR><BR></DIV>fit1 = lm(Risco ~ Idade*Escolaridade3cat,
data=dados)<BR></DIV>fit0 = lm(Risco ~ Idade, data=dados)<BR></DIV>anova(fit0,
fit1)<BR>
<DIV>
<DIV>
<DIV class=gmail_extra><BR><BR></DIV>
<DIV class=gmail_extra>benilton<BR></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>Em 6 de março de 2014 10:43, geovane barbosa <SPAN
dir=ltr><<A href="mailto:geovanecb@yahoo.com.br"
target=_blank>geovanecb@yahoo.com.br</A>></SPAN> escreveu:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: helveticaneue,helvetica neue,helvetica,arial,lucida grande,sans-serif">
<DIV><SPAN><BR></SPAN></DIV>
<DIV></DIV>
<DIV> </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> </DIV>
<DIV> </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>
<DIV> </DIV>
<DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>dados<-read.csv("bancoteste.csv",sep=";",dec=",",header=T)</DIV>
<DIV> </DIV>
<DIV>dados$Escolaridade3cat<-factor(dados$Escolaridade3cat,label=c("Fundamental","Médio","Superior/Pós
graduação"),levels=1:3) </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>dados$Quintis<-factor(dados$Quintis)</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>c <- ggplot(dados, aes(y=Risco, x=Idade, linetype=Quintis))</DIV>
<DIV> </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> </DIV></DIV></DIV></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><A href="https://www.dropbox.com/s/ymyzh7p0xhmumda/bancoteste.csv"
target=_blank>https://www.dropbox.com/s/ymyzh7p0xhmumda/bancoteste.csv</A><BR></DIV>
<DIV style="DISPLAY: block"><BR><BR>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif">
<DIV dir=ltr><FONT face=Arial>Em Quinta-feira, 6 de Março de 2014 10:12,
geovane barbosa <<A href="mailto:geovanecb@yahoo.com.br"
target=_blank>geovanecb@yahoo.com.br</A>> escreveu:<BR></FONT></DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<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></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> </DIV>
<DIV> </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> </DIV>
<DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>dados<-read.csv("bancoteste.csv",sep=";",dec=",",header=T)</DIV>
<DIV> </DIV>
<DIV>dados$Escolaridade3cat<-factor(dados$Escolaridade3cat,label=c("Fundamental","Médio","Superior/Pós
graduação"),levels=1:3) </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>dados$Quintis<-factor(dados$Quintis)</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>c <- ggplot(dados, aes(y=Risco, x=Idade, linetype=Quintis))</DIV>
<DIV> </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> </DIV></DIV>
<DIV> </DIV>
<DIV style="DISPLAY: block"><BR clear=none><BR clear=none>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif">
<DIV dir=ltr><FONT face=Arial>Em Quarta-feira, 5 de Março de 2014 16:54,
Benilton Carvalho <<A href="mailto:beniltoncarvalho@gmail.com"
target=_blank>beniltoncarvalho@gmail.com</A>> escreveu:<BR
clear=none></FONT></DIV>
<DIV>
<DIV>
<DIV>
<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>On Mar 5, 2014 11:00 AM, "geovane barbosa" <<A
href="mailto:geovanecb@yahoo.com.br" shape=rect rel=nofollow
target=_blank>geovanecb@yahoo.com.br</A>> wrote:<BR clear=none>
<BLOCKQUOTE
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV>
<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-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN>Olá
pessoal bom dia.</SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN>Estou
com uma questão que não consigo soluciona-la.</SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN>Realize
um regressão linear múltipla para comprar um grau de risco por idade e por
escolaridade.</SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><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-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN>abraços</SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR
clear=none></SPAN></DIV>
<DIV
style="FONT-SIZE: 13px; FONT-FAMILY: helveticaneue,'Helvetica Neue',helvetica,arial,'Lucida Grande',sans-serif; FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><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
href="mailto:R-br@listas.c3sl.ufpr.br" shape=rect rel=nofollow
target=_blank>R-br@listas.c3sl.ufpr.br</A><BR clear=none><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" shape=rect
rel=nofollow
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR
clear=none>Leia o guia de postagem (<A
href="http://www.leg.ufpr.br/r-br-guia" shape=rect rel=nofollow
target=_blank>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>
<DIV> </DIV>
<DIV>_______________________________________________<BR clear=none>R-br
mailing list<BR clear=none><A href="mailto:R-br@listas.c3sl.ufpr.br"
shape=rect rel=nofollow target=_blank>R-br@listas.c3sl.ufpr.br</A><BR
clear=none><A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
shape=rect rel=nofollow
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR
clear=none>Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
shape=rect rel=nofollow target=_blank>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></DIV></DIV></DIV><BR>_______________________________________________<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"
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"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo
reproduzível.<BR></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV></DIV></DIV></DIV>
<P>
<HR>
_______________________________________________<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.</DIV></DIV></DIV></BODY></HTML>