# NOT RUN {
pvt_water_results_1 <- pvt_water(input_unit = "Field", output_unit = "Field",
fluid = "water", pvt_model = "McCain", visc_model = "McCain",
t = 300, p = 5000, salinity = 10, gas_saturated = "yes", warning = "no")
head(pvt_water_results_1)
pvt_water_results_2 <- pvt_water(input_unit = "SI", output_unit = "SI",
fluid = "water", pvt_model = "Spivey", visc_model = "Spivey",
t = 100, p = 15000, salinity = 0.0, gas_saturated = "no", warning = "no")
head(pvt_water_results_2)
# }
Run the code above in your browser using DataLab