R/pmle_data_proc.R

In LAM: Some Latent Variable Models

## File Name: pmle_data_proc.R
## File Version: 0.07

###############################################################
# pmle data processing
pmle_data_proc <- function( pars, pars_lower, pars_upper ){
    NP <- length(pars)
    if ( is.null( pars_lower) ){
        pars_lower <- rep( - Inf, NP )
    }
    if ( is.null( pars_upper) ){
        pars_upper <- rep(  Inf, NP )
    }
    res <- list( pars_lower=pars_lower,
                pars_upper=pars_upper )
    return(res)
}