Create part6.R