Create CallPrice.R