Testing in R
Added output printout for testing
Changed model for first objective standard regression