Adding fastFSR.R