R/utils.R

Defines functions unitvector

unitvector <- function(length, what, logical = FALSE) {
    vec <- numeric(length)
    vec[what] <- 1.
    if (logical) as.logical(vec) else vec
}
ikosmidis/brRasch documentation built on May 16, 2022, 10:12 a.m.