Create maptool_sample2.R