Create cbd_cost.R