library(oce)
data(tdr)
d <- subset(tdr, as.POSIXct("2008-06-26") <= t & t <= as.POSIXct("2008-06-27"))
plot(d$data$t, d$data$temperature, type="l", lwd=2, xlab="t", ylab="Temperature [degC]")
dd <- fill.gap(d, as.POSIXct("2008-06-26 09:00:00"), as.POSIXct("2008-06-26 20:00:00"), "t")
lines(dd$data$t, dd$data$temperature, col="red")
abline(v=as.POSIXct("2008-06-26 09:00:00"), col="pink")
abline(v=as.POSIXct("2008-06-26 20:00:00"), col="pink")
Run the code above in your browser using DataLab