Function to calculate the equivalent time of the recovery tests
recovery_equivalent_time(t_recovery, s_recovery, pump_history)
t_recovery | Vector with the times since recovery started |
---|---|
s_recovery | Vector with the drawdowns since recovery started |
pump_history | Vector with the pump history of the test |
A list with
ta equivalent time
sa drawdown corresponding to equivalent time
Agarwal, R. (1980). A New Method To Account For Producing Time Effects When Drawdown Type Curves Are Used To Analyze Pressure Buildup And Other Test Data. SPE Paper 9289.
Other equivalent_time functions: variable_rate_equivalent_time
data(agarwal_recovery) pump_history <- 14400 agarwal_corr <- recovery_equivalent_time(agarwal_recovery$t, agarwal_recovery$s, pump_history)