R/mnlfa_compute_moderated_parameter.R

In mnlfa: Moderated Nonlinear Factor Analysis

## File Name: mnlfa_compute_moderated_parameter.R
## File Version: 0.03

mnlfa_compute_moderated_parameter <- function(Xdes, parm, value=0)
{
    if (ncol(Xdes)>0){
        res <- Xdes %*% parm
    } else {
        res <- matrix(value, nrow=nrow(Xdes),ncol=1)
    }
    return(res)
}