r programming homework