Update medfasp.R