create.FM.model works! Also updates to SSLPM.R