Create fp_model.r