Create fitting.R