R/abs.optmatch.dlist.R

#' @keywords internal
abs.optmatch.dlist <- function (x)
{

     rn1 <- attr(x, "row.names")
     x <- x[unlist(as.logical(lapply(x, length)))]

    value <- lapply(x, abs)

    class(value) <- c('optmatch.dlist', 'list')
        attr(value, "row.names") <- rn1
    value
  }

Try the optmatch package in your browser

Any scripts or data that you put into this service are public.

optmatch documentation built on Sept. 19, 2024, 9:06 a.m.