RcodeLecture13.R