Create fitted.fittedlooplist2r.R