Create fit.r

fit simulated results to an exponential distribution