# NOT RUN {
#correct for dampening of the signal
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,
time.int = 15,
max.gap = 60,
decimals = 6,
df = FALSE
)
input[which(input < 0.2)] <- NA
input <-
tdm_dt.max(
input,
methods = c("pd", "mw", "dr"),
det.pd = TRUE,
interpolate = FALSE,
max.days = 10,
df = FALSE
)
output.data <- tdm_damp(input,
k.threshold = 0.05,
make.plot = TRUE,
df = FALSE)
str(output.data)
head(output.data[["k.dr"]])
plot(output.data[["k.dr"]], ylab = expression(italic("K")))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab