R/startingValuesReg.R

In noia: Implementation of the Natural and Orthogonal InterAction (NOIA) Model

startingValuesReg <-
function (reg, max.level = 2, max.dom = 2, e.unique = FALSE, 
    nloc = NULL) 
{
    if (is.null(reg)) {
        return(startingValuesNothing(nloc, max.level, max.dom, 
            e.unique))
    }
    else if (inherits(reg, "noia.linear")) {
        return(startingValuesLinear(reg, max.level, max.dom, 
            e.unique))
    }
    else if (inherits(reg, "noia.multilinear")) {
        return(startingValuesMultilinear(reg, max.level, max.dom, 
            e.unique))
    }
    else {
        stop("Object of class \"noia.linear\" or \"noia.multilinear\" expected\n")
    }
}