Update dzim.R