Create getRSquared.R