## Load data
data(dt_noisy)
time <- dt_noisy$time[12097:14400]
target <- dt_noisy$dt[12097:14400]
time_err <- seq(as.POSIXct("2013/06/27 18:00", tz = "Etc/GMT-8"),
as.POSIXct("2013/06/27 22:30", tz = "Etc/GMT-8"),
by = "30 min")
## Remove error values
result <-
remove_manually(vctr_time = time, vctr_target = target,
vctr_time_err = time_err)
Run the code above in your browser using DataLab