Creates a more detailed plot using the PCA results from the selected dataset.
drawPCAExplained(explainedData = NULL)
explainedData,
selected data
explained plot
x <- drawPCAExplained()