if (FALSE) {
# Fit model
results <- run_abrm(...)
# Get variance-covariance matrices
vcov_mats <- vcov(results)
# Access specific matrices
vcov_mats$vcov_beta_x # Covariance for X-grid coefficients
vcov_mats$vcov_beta_y # Covariance for Y-grid coefficients
# Compute standard errors from diagonal
sqrt(diag(vcov_mats$vcov_beta_x))
# Compute correlation matrix
cov2cor(vcov_mats$vcov_beta_y)
}
Run the code above in your browser using DataLab