R script for spatial modeling using 2D spline in sommer