R/abs.optmatch.dlist.R

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 Nov. 16, 2023, 5:06 p.m.