# NOT RUN {
decline_param_1 <- decline_param(input_unit = "Field", output_unit = "Field", fluid = "oil",
model = "exponential", qi = 1000, Di = 0.15, b = 0, q_abnd = NULL)
decline_param_1
decline_param_2 <- decline_param(input_unit = "Field", output_unit = "SI", fluid = "oil",
model = "hyperbolic", qi = 15000, Di = 0.1, b = 0.95, q_abnd = 200)
decline_param_2
decline_param_3 <- decline_param(input_unit = "Field", output_unit = "Field", fluid = "gas",
model = "modified_hyperbolic", qi = 100000, Di = 0.15, b = 0.85, Dt = 0.005, q_abnd = NULL)
decline_param_3
# }
Run the code above in your browser using DataLab