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