data(jennings)
dr_out <- extract(varname = jennings$variable,
date = jennings$date,
index = jennings$value,
ncases = jennings$n,
begindt = min(jennings$date),
enddt = max(jennings$date),
npass=1)
plot(dr_out)
Run the code above in your browser using DataLab