R classwork