Create wcs.R