Can someone help me in solving this equation in R-studio or How I can solve it in other programs and call it in R-studio?

Find the Value of z

```
x = 20
y =20
beta1= 2
beta2= 4
alpha2= 2
alpha1= 2
lambda = 4
q = 0.1831563889e-1
((alpha1*beta1)^(alpha1/(alpha1+alpha2))*(alpha2*beta2*x/(lambda^(1/alpha2)*y))^(alpha2/(alpha1+alpha2))*z^((alpha1+alpha2+1)/(alpha1+alpha2))-x)*exp(z)+x*q*exp(lambda) = 0
```