ilm=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt", header=TRUE, sep=",")
ilmtervik=ilm[complete.cases(ilm), ]
ilmskaleeritud=scale(ilmtervik[, 4:11])
k=prcomp(ilmskaleeritud)
summary(k)
names(k)
k$rotation

#Andmestikuks
#http://www.tlu.ee/~jaagup/andmed/keel/korpus/doksonaliigid.txt

#Milliste sõnaliikide sagedustest moodustuvad tekstide erinevusi 
#iseloomustavad peakomponendid