# NOT RUN {
sobj <- bisimrel(p = 12)
sigma_df <- sobj %>%
cov_mat(which = "zy") %>%
tidy_sigma() %>%
abs_sigma()
lambda_df <- sobj %>%
tidy_lambda()
plot_covariance(
sigma_df,
lambda_df,
base_theme = ggplot2::theme_bw,
lab_list = list(
title = "Covariance between Response and Predictor Components",
subtitle = "The bar represents the eigenvalues predictor covariance",
y = "Absolute covariance",
x = "Predictor Component",
color = "Response Component"
),
theme_list = list(
legend.position = "bottom"
)
)
# }
Run the code above in your browser using DataLab