sysuse auto
eststo: quietly regress price weight mpg
estadd scalar R = sqrt(e(r2))
eststo: quietly regress price weight mpg foreign
estadd scalar R = sqrt(e(r2))
estout, stats(r2 R)
eststo clear