install.packages("factoextra") # pro hezke graficke vystupy
library("factoextra")

data_ukazka<-data.frame(matrix(c(101,105,103,98,93,16,18,42,23,6),byrow=F,ncol=2))
names(data_ukazka)<-c("vyska","vaha")
data_ukazka
var(data_ukazka) # kovariancni matice 
pca_ukazka<-prcomp(data_ukazka, scale=F)

get_eigenvalue(pca_ukazka) 
screeplot(pca_ukazka,type="lines",main="Scree plot")

fviz_pca_var(pca_ukazka,axes=c(1,2))
var <- get_pca_var(pca_ukazka)   
var
var$coord   # kovariance promenne s osou (souradnice v biplotu)
var$cos2    # cos2 promenne
var$contrib # prispevek promenne k definici nove osy

fviz_pca_ind(pca_ukazka,axes=c(1,2))
ind <- get_pca_ind(pca_ukazka)   
ind
ind$coord   #souradnice objektu na novych osach
ind$cos2    # cos2 objektu
ind$contrib # prispevek k definici novych os