library(oce)
data(pt)
# mess up a day
d <- pt
d$data$temperature[as.POSIXct("2008-06-27", tz="UTC")<=d$data$time & d$data$time <= as.POSIXct("2008-06-28", tz="UTC")] <- 20
plot(d, which=1)
# fix that day by linear interpolation
dd <- fill.gap(d, as.POSIXct("2008-06-27", tz="UTC"), as.POSIXct("2008-06-28", tz="UTC"), "time")
lines(dd$data$time, dd$data$temperature, col="red")
Run the code above in your browser using DataLab