R/mvregmed.grid.update.R

Defines functions mvregmed.grid.update

Documented in mvregmed.grid.update

mvregmed.grid.update <- function(fit.obj, inits){

    inits$alpha <- fit.obj$alpha
    inits$beta  <- fit.obj$beta
    inits$delta <- fit.obj$delta
    inits$varx  <- fit.obj$varx
    inits$varm  <- fit.obj$varm
    inits$vary  <- fit.obj$vary

    ## avoid very small vary along diag
    dv <- diag(inits$vary)
    dv <- ifelse(dv < .5, .5, dv)
    diag(inits$vary) <- dv
    
   return(inits)

}

Try the regmed package in your browser

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

regmed documentation built on Jan. 22, 2023, 1:30 a.m.