data(ngaruroro)
#Part of the ngaruroro series with missing data
hydrograph(ngaruroro,startdate = "1/7/1987", enddate = "1/9/1987",amin = FALSE)
ngaruroroint <- lfnainterpolate(ngaruroro)
#The completed hydrograph
hydrograph(ngaruroroint,startdate = "1/7/1987", enddate = "1/9/1987",amin = FALSE)
Run the code above in your browser using DataLab