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

FindMinimum[E, {R, 1.243472}, {r, 0.783338}]