# NOT RUN {
data('FundamentalData_Q1_2018')
Data=as.matrix(FundamentalData_Q1_2018$Data)
Data[!is.finite(Data)]=0
results=prcomp(Data)
main="Scree plot with Class A of the Most-Important Eigenvalues"
ABCbarplot(results$sdev,ylab='Eigenvalues',main=main)$ggobject
# }
Run the code above in your browser using DataLab