Math392 HW8 R component