Changed hard coded values to be the ones from R