Create makedata1.R