Create stat545a-2013-hw06_wang-ton-script01.R