Update M156PatelSpecht-longscript.R

Added some scripting for finding all the possible linear regressions