R Course Assignment