<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt;color:#000000;"><DIV></DIV>
<DIV>
<DIV>Boa tarde colegas, estou recorrendo ao grupo pois estou com problemas</DIV>
<DIV>para plotar um gráfico com dois tratamentos (Sol e Sombrite), e o tempo</DIV>
<DIV>em função do ócio. Gostaria de colocar legenda também.</DIV>
<DIV> </DIV>
<DIV>Abaixo tem o modelo usando e também a minha rotina do grafico:</DIV>
<DIV>mod.10<-glm(formula=ocio ~ tempo%in%trat + I(tempo^2)%in%trat+ I(tempo^3)%in%trat+ I(tempo^4)%in%trat, family=poisson(link=log), data = dados)<BR>summary(mod.10)<BR>pred.o4<-predict(mod.10)</DIV>
<DIV> </DIV>
<DIV># gráfico<BR>pred<-cbind(pred.o4)<BR>trat1<-pred[1:280,]<BR>trat2<-pred[281:560,]</DIV>
<DIV> </DIV>
<DIV>grafico<-predict(mod.10)<BR>ordenax<- tempo[order(tempo)]<BR>ordenat1<-trat1[order(tempo)]<BR>ordenat2<-trat2[order(tempo)]<BR>plot(ordenax,ordenat1,col="red", xlim=c(8,18),type="l", xlab="Horas do Dia", ylab="Ócio")<BR>line(ordenax,ordenat2, col="blue",xlim=c(8,18),type="l")<BR> <BR> </DIV></DIV>
<P align=center><FONT color=#0000bf face="times new roman, new york, times, serif">Daniele Portela de Oliveira</FONT></P>
<P align=center><FONT color=#0000bf face="times new roman, new york, times, serif">Mestranda Produção Animal - UEM</FONT></P>
<P align=center><FONT color=#0000bf>Cel: 44 9949 3525</FONT></P>
<P align=center><FONT color=#0000bf> 67 9617 0965</FONT></P>
<P align=center> </P>
<DIV></DIV></div></body></html>