improving fitdist.R