# NOT RUN {
data(NL_6min_2013)
MHW <- 0.9117 # New London MHW in 2013: 0.9117 m relative to MLLW
fld.depth(level = NL_6min_2013[, 2], elevation = MHW,
percentile = 0.5)
fld.depth(level = NL_6min_2013[, 2], elevation = MHW,
percentile = c(0.25, 0.5, 0.75))
fld.depth(level = NL_6min_2013[, 2], elevation = c(0, MHW, 1.5),
percentile = 0.75)
fld.depth(level = NL_6min_2013[, 2], elevation = c(0, MHW, 1.5),
percentile = c(0.25, 0.5, 0.75))
# }
Run the code above in your browser using DataLab