fitdist.R