Create create_price.R