Create newplace.R