Cpp functions used in agarwal_skin model.

khaors · Apr 26, 2019 · ab24ce9 · ab24ce9
1 parent cdc6d84
commit ab24ce9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -29,6 +29,7 @@ export(agarwal_skin_solution)
 export(agarwal_skin_solution_dlogt)
 export(agarwal_skin_solution_initial)
 export(agarwal_skin_well_function)
+export(analytical_gui)
 export(aquifer)
 export(bandwidth_lpridge)
 export(blow_kernel)

diff --git a/R/agarwal_skin_utilities.R b/R/agarwal_skin_utilities.R
@@ -27,12 +27,13 @@ NULL
 #' @examples
 #' data(papadopulos_cooper)
 agarwal_skin_well_function <- function(td, par){
- coeffs <- par$coeffs
+ #coeffs <- par$coeffs
  arg1 <- par$cd
  arg2 <- par$rd
  arg3 <- par$sigma
- sd <- stehfest_inversion(td, coeffs, agarwal_skin_WF_LT, arg1 = arg1,
- arg2 = arg2, arg3 = arg3)
+ #sd <- stehfest_inversion(td, coeffs, agarwal_skin_WF_LT, arg1 = arg1,
+ # arg2 = arg2, arg3 = arg3)
+ sd <- agarwal_skin_well_function_cpp(td, arg1, arg2, arg3)
  return(sd)
 }
 #' @title