R/expand.vec.R

In teachingApps: Apps for Teaching Statistics, R Programming, and Shiny App Development

expand.vec <-
function (a, nplan) 
{
    if (length(a) == 1) {
        a <- rep(a, length = nplan)
    }
    if (length(a) != nplan) 
        stop(paste(deparse(substitute(a)), "has length", length(a), 
            "for", nplan, "plans"))
    return(a)
}