## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.