Create makedata2.R