Create goal.R

I have added two more solutions using R.