parameter_fitting.R