R/find_interval2.R

Defines functions find_interval2

find_interval2 <- function()
{
    warning("not implemented")
    # mpnts <- matrix(data = rep(pnts[, "depth"], nrow(ints)), nrow = nrow(pnts), ncol = nrow(ints), byrow = FALSE)
    # mints1 <- matrix(data = rep(ints[, "depth_from"], nrow(pnts)), nrow = nrow(pnts), ncol = nrow(ints), byrow = TRUE)
    # mints2 <- matrix(data = rep(ints[, "depth_to"], nrow(pnts)), nrow = nrow(pnts), ncol = nrow(ints), byrow = TRUE)
    # 
    # mlog <- mpnts >= mints1 & mpnts < mints2
    # 
    # apply(mlog, 1L, function(row) c(1:10)[na.omit(row)])
    # apply(mlog, 1L, function(row) c(1:10)[row])
}
rolandseubert/DHtools documentation built on Aug. 13, 2018, 12:56 a.m.