Do problem 4 in R.