4.4 Heat Map:

corrMatBurt.list <- phi2Mat4BurtTable(bin_data)
corr4MCA.r <- corrplot(
                 as.matrix(sqrt(corrMatBurt.list$phi2.mat),
                 title = "Phi: Correlation Map for MCA"),
                 type = "upper")

Burt_heatmap1 <- recordPlot()

corrMatBurt.list <- phi2Mat4BurtTable(bin_data)
corr4MCA <- corrplot(
                     as.matrix(corrMatBurt.list$phi2.mat,
                     title = "Phi2: (squared) Correlation Map for MCA"),
                     type = "upper"
)

Burt_heatmap2 <- recordPlot()