Update spEMsymloc.R

fixed mean