R/linking_haberman_vcov_transformation.R

Defines functions linking_haberman_vcov_transformation

## File Name: linking_haberman_vcov_transformation.R
## File Version: 0.12

linking_haberman_vcov_transformation <- function( H1, aj_vcov )
{
    if (is.null(aj_vcov)){
        aj_se <- NA
    } else {
        aj_vcov <- H1 %*% aj_vcov %*% t(H1)
        aj_se <- c( sqrt( diag( aj_vcov ) ) )
    }
    res <- list( vcov=aj_vcov, se=aj_se )
    return(res)
}

Try the sirt package in your browser

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

sirt documentation built on May 29, 2024, 8:43 a.m.