Finished program 3 for R class