When r<R, g = GMr/R^3.

Solve[g 4 π r^2 == 4 π G Mr^3/R^3, g]

{{g→ (G M r)/R^3}}

Created by Mathematica  (February 13, 2007) Valid XHTML 1.1!