Error in fitting a hantush_jacob model

[khaors]

When I tried to fit the attached pumping test using the following code

library(pumpingtest)
D <- read.csv("Cuche.csv", h = T)
ptest <- pumping_test("Cuche", Q = .00349, r = 0.3, t = D$t, s = D$s)
additional.parameters(ptest) <- list(B=20)
ptest.fit <- fit(ptest,"hantush_jacob")

I get the following error:

Error in model.frame.default(formula = ~s + ptest + t, data = drawdown_curve) : 
  invalid type (list) for variable 'ptest'

Cuche.zip