kulu=c(5,6,8,9,10,8,9,11,13,15)
katki=c(4,2,6,7,8,9,9,9,8,12)
kuup=c(1,1,5,5,6,7,6,8,7,9)
suur=c(3,2,3,2,1,2,3,4,3,2)
mune=c(100,90,85,88,67,50,45,40,30,20)
analüüs=prcomp(cbind(kulu,katki,kuup,suur))
summary(analüüs)
plot(analüüs)
biplot(analüüs)
analüüs$x #peakomponentide väärtused antud objektidel
plot(analüüs$x[,1],mune)