Create create_d.R