OdporúčameZaložiť web alebo e-shop

PCA and Factor Analysis

1. PCA, basic example, best for understanding 

 

x1=c(1:100)
y1=x1*(2+rnorm(100,0,0.3))+rnorm(100,0,10.6)
dat<-cbind(x1,y1)
pr2<-princomp(dat)
x2<-pr2$scores[,1]
y2<-pr2$scores[,2]
plot(x2,y2)
pr2$loadings
 

2. PCA, spiral example

z=c(1:100)*0.124 

x=cos(z)

y=sin(z)

spiral1<-cbind(x,y,z)
pr1<-princomp(spiral1)
x1<-pr1$scores[,1]
y1<-pr1$scores[,2]
plot(x1,y1)
plot(x1,z1)
plot(y1,z1)
 
3.  PCA, Life Cycle, applications

 

                     x1<-LifeCycleSavings[,1] - mean(LifeCycleSavings[,1])

                  x2<-LifeCycleSavings[,2] - mean(LifeCycleSavings[,2])    

                  x3<-LifeCycleSavings[,3] - mean(LifeCycleSavings[,3])

                  xall<-cbind(x1,x2,x3)

                  rownames(xall)<-rownames(LifeCycleSavings)

                  pr<-princomp(xall)

                  summary(pr)

            pr$scores  

            cor(pr$scores[,2],pr$scores[,3])

            which.max(pr$scores[,1])

            which.min(pr$scores[,1])

           rownames(xall)[39]

                         pr$loadings

 

4. Factor analysis, basic application 

             v1 <- c(1,1,1,1,1,1,1,1,1,1,3,3,3,3,3,4,5,6)

             v2 <- c(1,2,1,1,1,1,2,1,2,1,3,4,3,3,3,4,6,5)

             v3 <- c(3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,5,4,6)

             v4 <- c(3,3,4,3,3,1,1,2,1,1,1,1,2,1,1,5,6,4)

             v5 <- c(1,1,1,1,1,3,3,3,3,3,1,1,1,1,1,6,4,5)

             v6 <- c(1,1,1,2,1,3,3,3,4,3,1,1,1,2,1,6,5,4)

             m1 <- cbind(v1,v2,v3,v4,v5,v6)

             factanal(x = m1, factors=1)

              factanal(x=m1, factors=2)
             factanal(x=m1, factors=3)
 
Pre prehľadnejší úpravu sekcie ide obsah rozdeliť do textových "blokov". Bloky sa dajú ľubovoľne vytvárať, presúvať a mazať. Ich úpravu zahájite dvojitým kliknutím tlačítka myši. Textový editor sa vždy spustí iba pre vybraný blok. Ako editor pracuje nájdete vo videoukážke.

Základné tipy:

  • Používajte často nové bloky.
  • ENTER = nový odstavec.
  • SHIFT+ENTER = nový riadok.
  • Obrázok je najprv treba nahrať na server cez Vložiť obrázok a Správcu súborov.
  • Obsah z Wordu vždy prenášajte cez Vložiť z Wordu.
  • NEpoužívajte medzerník pre zarovnávanie objektov.
Listovanie umožňuje dynamicky zobrazovať a skrývať obsahy vybraných blokov:
  • Stlačte tlačítko listovanie.
  • U blokov, ktoré majú byť skryté, vyplňte novo zobrazené textové pole.
  • Všetky bloky s vyplneným listovaním budú na stránkach skryté, okrem prvého v poradí.
  • Tlačítko pridať odkazy vytvrí nový blok so zástupcom, ktorý bude na stránkach nahradený odkazmi. Tieto odkazy budú shodné s vyplnenými nadpismi u listovaní a budú prepínať príslušné bloky.
  • Zo všetkých blokov, ktoré majú vyplnené listovanie, bude zobrazený vždy len jeden. Bloky, ktoré nemajú vyplnené listovanie vôbec, budú zobrazené vždy.
  • Ak chcete skrývať aj prvý blok listovania, vytvorte na jeho miesto nový prázdný blok a použite pre jeho nadpis výraz: %empty%
  • Ak chcete pri prepnutí bloku rolovať okno na hornú časť bloku, tak pridajte za text bloku výraz: %top% (napr. Dovolenka%top%)

Webová stránka bola vytvorená pomocou on-line webgenerátora WebĽahko.sk