test_models.R -- replaced EstimateRapopModel with RapopModelEstimate function