Update hist2.R