Update scfp.R