Create week6assignment.r