Confira se é isso que vc quer, se for, olhe a função expression. <br><br>f<-function(x,alfa,beta){(beta/(sqrt(2*pi)*x^2*pnorm(alfa)))*exp(-0.5*(alfa-beta/x)^2)}<br><br>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)}<br>
<br>##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=expression(alpha==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,lty= 1:4,lwd=2,col=1:4,<br>
legend =expression(alpha,alpha==0.5,beta==0.5,alpha==0.5,beta==2,alpha==2,beta==0.5))<br><br><br>?expression<br><br><div class="gmail_quote">Em 26 de junho de 2012 11:54, Edson Ferreira <span dir="ltr"><<a href="mailto:edsonlontra@yahoo.com.br" target="_blank">edsonlontra@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font:inherit" valign="top"><p align="left">olá amigos do R
</p><p align="left"> 
</p><p align="left">estou tentando fazer uma legenda e não estou conseguindo
</p><p align="left">segue o código que estou usando e as modificações que quero fazer
</p><p align="left"> 
</p><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><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><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><p align="left"> 
</p><p align="left"> 
</p><p align="left"> 
</p><p align="left">modificações que estou tentando fazer:
</p><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><p align="left"> 
</p><p align="left"> 
</p><p align="left"> 
</p><p align="left"> 
</p><p align="left">Att<span class="HOEnZb"><font color="#888888">
</font></span></p><p align="left"><font color="#888888">Edson<br> </font></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p><p></p></td></tr></tbody></table>
<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" 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><br><br clear="all"><br>-- <br><div>Grato<br>
Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div><br>