Create hist.R