<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><BR><BR>
<P align=left>Paz</DIV>
<P align=left>     e  Bem !!</DIV>
<P align=left> </DIV>
<P align=left>  </DIV>
<P align=left> </DIV>
<P align=left> </DIV>
<P align=left>Att</DIV>
<P align=left>Edson<BR> </DIV><BR><BR>--- Em <B>qui, 28/6/12, Edson Ferreira <I><edsonlontra@yahoo.com.br></I></B> escreveu:<BR>
<BLOCKQUOTE style="BORDER-LEFT: rgb(16,16,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px"><BR>De: Edson Ferreira <edsonlontra@yahoo.com.br><BR>Assunto: Enc: legenda em gráficos<BR>Para: "ajuda R ajuda R" <r-br@listas.c3sl.ufpr.br><BR>Data: Quinta-feira, 28 de Junho de 2012, 12:11<BR><BR>
<DIV id=yiv1749797395>
<TABLE border=0 cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD vAlign=top><BR><BR>
<P align=left>Paz 
<P align=left>     e  Bem !! 
<P align=left>  
<P align=left>   
<P align=left>  
<P align=left>  
<P align=left>Att 
<P align=left>Edson<BR> <BR><BR>--- Em <B>ter, 26/6/12, Edson Ferreira <I><edsonlontra@yahoo.com.br></I></B> escreveu:<BR>
<BLOCKQUOTE style="BORDER-LEFT: rgb(16,16,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px"><BR>De: Edson Ferreira <edsonlontra@yahoo.com.br><BR>Assunto: legenda em gráficos<BR>Para: r-br@listas.c3sl.ufpr.br<BR>Data: Terça-feira, 26 de Junho de 2012, 12:54<BR><BR>
<DIV id=yiv1749797395>
<TABLE border=0 cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD vAlign=top>
<P align=left>olá amigos do R 
<P align=left>  
<P align=left>estou tentando fazer uma legenda e não estou conseguindo 
<P align=left>segue o código que estou usando e as modificações que quero fazer 
<P align=left>  
<P align=left> <BR>f<-function(x,alfa,beta){(beta/(sqrt(2*pi)*x^2*pnorm(alfa)))*exp(-0.5*(alfa-beta/x)^2)} 
<P align=left>BA<-function(x,alfa,beta,a,b){(beta/x^2)*(1/beta(a,b))*(dnorm(alfa-beta/x)/pnorm(alfa))*(pnorm(alfa-beta/x)/pnorm(alfa))^(a-1)*(1-pnorm(alfa-beta/x)/pnorm(alfa))^(b-1)} 
<P align=left>##gráfico 1<BR>curve(f(x,alfa=1,beta=1),ylab = "f(x)",lty=1,ylim=c(0,2.5),xlim=c(0,2),main="alfa=1 e beta=1",lwd=2,col=1)<BR>curve(BA(x,alfa=1,beta=1,a=0.5,b=0.5),add = T,lty=2,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=2)<BR>curve(BA(x,alfa=1,beta=1,a=0.5,b=2),add = T,lty=3,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=3)<BR>curve(BA(x,alfa=1,beta=1,a=2,b=0.5),add = T,lty=4,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=4)<BR>legend("topright",cex=1,legend = c("alfa","a=0.5,b=0.5","a=0.5,b=2","a=2   ,b=0.5"),lty= 1:4,lwd=2,col=1:4) 
<P align=left>  
<P align=left>  
<P align=left>  
<P align=left>modificações que estou tentando fazer: 
<P align=left><BR>Estou precisando que no título do gráfico apareça as letras <BR>alpha e beta e não os nomes das letras.<BR>O mesmo com a legenda, onde aparece o nome alfa deve permanecer<BR>o nome alfa, mas onde aparece as letras a e b, quero que apareça<BR>as letras lambda e sigma.<BR>
<P align=left>  
<P align=left>  
<P align=left>  
<P align=left>  
<P align=left>Att 
<P align=left>Edson<BR> 
<DIV></DIV></TD></TR></TBODY></TABLE></DIV></BLOCKQUOTE></TD></TR></TBODY></TABLE></DIV></BLOCKQUOTE></td></tr></table>