E = 9/(8 R^2) + 1/(2 r) - (2/R)*(3/2 - (1/2)*(r/R)^2)

FindMinimum[E, {R, 1.0}, {r, 0.9}]