Create createspatial.R