Create smoothmat.R