[R] solve the equation in R

[Pei-Ling Lin]

Hi all,

I need to solve this following equation which the unknown value (here is "a") is on the exponent place, could anybody please help me to figure it out? I tried to use lm.sol() or solve() function but it doesn't work...... 

Thanks for help,
Peiling 


  (x,   y) = (2.21, 1.01)

  y = 1 + x - ( 1 + (x)^a)^(1/a)