R/gdm_est_a_constraints.R

Defines functions gdm_est_a_constraints

## File Name: gdm_est_a_constraints.R
## File Version: 0.02

gdm_est_a_constraints <- function(a, se.a, a.constraint, increment )
{
    if ( ! is.null( a.constraint) ){
        a[ a.constraint[,1:3,drop=FALSE] ] <- a.constraint[,4,drop=FALSE]
        se.a[ a.constraint[,1:3,drop=FALSE] ] <- 0
        increment[ a.constraint[,1:2,drop=FALSE] ] <- 0
    }
    #--- output
    res <- list( a=a, se.a=se.a, increment=increment )
    return(res)
}

Try the CDM package in your browser

Any scripts or data that you put into this service are public.

CDM documentation built on Aug. 25, 2022, 5:08 p.m.