# NOT RUN {
#perform Delta Tmax calculations
raw <- is.trex(example.data(type = "doy"),
tz = "GMT", time.format = "%H:%M", solar.time = TRUE,
long.deg = 7.7459, ref.add = FALSE)
input <- dt.steps(input = raw, start = "2014-05-08 00:00",
end = "2014-07-25 00:50", time.int = 15, max.gap = 60,
decimals = 6, df = FALSE)
input[which(input<0.2)]<- NA
output.max <- tdm_dt.max(input, methods = c("pd", "mw", "dr"),
det.pd = TRUE, interpolate = FALSE,
max.days = 10, df = FALSE)
str(output.max)
plot(output.max$input, ylab = expression(Delta*italic("V")))
lines(output.max$max.pd, col = "green")
lines(output.max$max.mw, col = "blue")
lines(output.max$max.dr, col = "orange")
points(output.max$all.pd, col = "green", pch = 16)
legend("bottomright", c("raw", "max.pd", "max.mw", "max.dr"),
lty = 1, col = c("black", "green", "blue", "orange") )
# }
Run the code above in your browser using DataLab