Update sad_beta

Removed all functionality except for RAD calculation. Added lm() function to create slope for RAD. Need to have lm output explicit.