olá amigos do R

estou tentando fazer uma legenda e não estou conseguindo

segue o código que estou usando e as modificações que quero fazer

 
f<-function(x,alfa,beta){(beta/(sqrt(2*pi)*x^2*pnorm(alfa)))*exp(-0.5*(alfa-beta/x)^2)}

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)}

##gráfico 1
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)
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)
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)
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)
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)

modificações que estou tentando fazer:

Estou precisando que no título do gráfico apareça as letras
alpha e beta e não os nomes das letras.
O mesmo com a legenda, onde aparece o nome alfa deve permanecer
o nome alfa, mas onde aparece as letras a e b, quero que apareça
as letras lambda e sigma.

Att

Edson