week_6_demo.R