Update create_d.R