R/almost.equal.R

Defines functions almost.equal

almost.equal <- function(x, value) {
    vapply(Map(all.equal, x, rep.int(value, length(x))), isTRUE, logical(1L))
}

Try the sdprisk package in your browser

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

sdprisk documentation built on May 1, 2019, 7:50 p.m.