> library(psych);

> library(semPlot)

> tolot <- c(
+ 
+ 
+ "TOLOT01",  "TOLOT02",
+ "TOLOT03", "TOLOT04", "TOLOT05", "TOLOT06", "TOLOT07" ,"TOLOT08"  ,
+ "TOLOT09" ,"TOLOT10" ,"TOLOT11",  .... [TRUNCATED] 

> ##
> efa1 <- fa.poly(D[, tolot], nfactors=2, fm="minres", scores="regression", rotate="varimax" )


> summary(efa1);

Factor analysis with Call: fa.poly(x = D[, tolot], nfactors = 2, rotate = "varimax", fm = "minres", 
    scores = "regression")

> efa1$fa
Factor Analysis using method =  minres
Call: fa.poly(x = D[, tolot], nfactors = 2, rotate = "varimax", fm = "minres", 
    scores = "regression")
Standardized loadings (pattern matrix) based upon correlation matrix
          MR1   MR2   h2   u2 com
TOLOT01  0.74 -0.15 0.56 0.44 1.1
TOLOT02  0.78 -0.11 0.62 0.38 1.0
TOLOT03  0.81 -0.06 0.66 0.34 1.0
TOLOT04  0.73 -0.07 0.54 0.46 1.0
TOLOT05 -0.45  0.43 0.38 0.62 2.0
TOLOT06  0.38 -0.07 0.15 0.85 1.1
TOLOT07 -0.03  0.76 0.58 0.42 1.0
TOLOT08  0.73  0.00 0.53 0.47 1.0
TOLOT09 -0.67  0.00 0.45 0.55 1.0
TOLOT10  0.52  0.04 0.27 0.73 1.0
TOLOT11 -0.03  0.57 0.32 0.68 1.0
TOLOT12  0.07  0.75 0.57 0.43 1.0
TOLOT13 -0.18  0.64 0.44 0.56 1.2
TOLOT14 -0.03  0.55 0.30 0.70 1.0
TOLOT15 -0.03  0.22 0.05 0.95 1.0
TOLOT16 -0.06  0.49 0.25 0.75 1.0

                       MR1  MR2
SS loadings           3.96 2.70
Proportion Var        0.25 0.17
Cumulative Var        0.25 0.42
Proportion Explained  0.60 0.40
Cumulative Proportion 0.60 1.00

Mean item complexity =  1.1
Test of the hypothesis that 2 factors are sufficient.

The degrees of freedom for the null model are  120  and the objective function was  36.05 with Chi Square of  120861.7
The degrees of freedom for the model are 89  and the objective function was  32.38 

The root mean square of the residuals (RMSR) is  0.12 
The df corrected root mean square of the residuals is  0.14 

The harmonic number of observations is  3360 with the empirical chi square  10982.09  with prob <  0 
The total number of observations was  3360  with MLE Chi Square =  108527.5  with prob <  0 

Tucker Lewis Index of factoring reliability =  -0.211
RMSEA index =  0.603  and the 90 % confidence intervals are  0.599 0.605
BIC =  107804.8
Fit based upon off diagonal values = 0.81
Measures of factor score adequacy             
                                               MR1 MR2
Correlation of scores with factors               1   1
Multiple R square of scores with factors         1   1
Minimum correlation of possible factor scores    1   1

> names(efa1)
[1] "fa"     "rho"    "tau"    "n.obs"  "Call"   "scores"

> summary(efa1);

Factor analysis with Call: fa.poly(x = D[, tolot], nfactors = 2, rotate = "varimax", fm = "minres", 
    scores = "regression")

> efa1$loadings
NULL

> Lat <- as.matrix(efa1$fa$loadings)

> class(Lat) <- "matrix"

> Lat <- as.data.frame(Lat)

> names(Lat) <- paste("LAHTO", 1:ncol(Lat), sep="");

> ##dimnames(Lat)
> Lat
             LAHTO1       LAHTO2
TOLOT01  0.73522872 -0.147845463
TOLOT02  0.78223680 -0.107025051
TOLOT03  0.80892880 -0.061420872
TOLOT04  0.72868052 -0.067811333
TOLOT05 -0.44680012  0.429658338
TOLOT06  0.37506056 -0.070326269
TOLOT07 -0.03139874  0.763473924
TOLOT08  0.72572917 -0.004761264
TOLOT09 -0.66921885  0.001133206
TOLOT10  0.51545160  0.039576390
TOLOT11 -0.03421308  0.566756216
TOLOT12  0.07415417  0.748516315
TOLOT13 -0.18015285  0.638934626
TOLOT14 -0.03110444  0.549977217
TOLOT15 -0.02548489  0.221289812
TOLOT16 -0.06410341  0.490911729

> Lat_olot <- f_addselite2data(data=Lat, key=rownames(Lat),
+ selitelista=Ylst, listname="ni1", Selite="Sel");

> ##
> KM_olot <- f_karkimuutt_fa(d=Lat_olot, max=maxKM,  crit=.3, selitys="Sel");

> KM_olot
$LAHTO1
[1] "Lähtiessäni sai paljon kiitosta tekemästäni työstä ja -työurasta (TOLOT03,0.81)"       
[2] "Sai itse valita itselle sopivimman eläkkeelle siirtymisajankohdan (TOLOT02,0.78)"      
[3] "Siirtyi eläkkeelle vapaasta tahdosta-nlr-(eläkkeelle siirt. olosuhteet) (TOLOT01,0.74)"
[4] "Viimeisen työpaikan olosuhteet erittäin työntekijäystävälliset (TOLOT04,0.73)"         
[5] "Siirsi omaa kokemusta ja osaamista työpaikan muille työntekijöille (TOLOT08,0.73)"     
[6] "Irtisanottiin henkilöstövähennysten yhteydessä (TOLOT09,-0.67)"                        
[7] "Antoi itse tilaa nuoremmille työntekijöilleni (TOLOT10,0.52)"                          
[8] "Painostettiin jättämään työ (TOLOT05,-0.45)"                                           
[9] "Työnantaja oli kustantanut lisäeläkkeitä (TOLOT06,0.38)"                               

$LAHTO2
[1] "Henkinen työkyky oli huono (TOLOT07,0.76)"                                        
[2] "Tietotaidot olivat vanhentuneet (TOLOT12,0.75)"                                   
[3] "Harkitsi vakavasti siirtymistä toiselle alalle tai ammattiin (TOLOT13,0.64)"      
[4] "Fyysinen työkyky oli huono (TOLOT11,0.57)"                                        
[5] "Viimeisen työpaikan olosuhteet ovat sittemmin selvästi parantuneet (TOLOT14,0.55)"
[6] "Etsittiin uusia työtehtäviä (TOLOT16,0.49)"                                       
[7] "Painostettiin jättämään työ (TOLOT05,0.43)"                                       

$HUONO_SOPIVUUS
[1] "Painostettiin jättämään työ (TOLOT05,0.007)"                                        
[2] "Työmotivaation puolesta olisi voinut jatkaa työuraa paljon pitempään (TOLOT15,0.01)"
[3] "Työnantaja oli kustantanut lisäeläkkeitä (TOLOT06,0.044)"                           


> ###
> S <- as.data.frame(efa1$scores$scores)

> names(S) <- paste("LAHTO", 1:ncol(S), sep="");

> D <- cbind(D,S);

> ##str(S)
> ##### END eläkkeellesiirtymisolosuhteet ####
> 
> f_abshist(D$LAHTO2)

> #source("C:/S/R/FUNC/MUSTE.R");
> 
> ###str(D[, ncol(D)]     )
> 
> #fa.poly(x,nfactors=1,n.obs = NA, n.iter=1, rotate="oblimin", SMC=TRUE, missing= .... [TRUNCATED] 

> vars
 [1] "TEHT01" "TEHT02" "TEHT03" "TEHT04" "TEHT05" "TEHT06" "TEHT07" "TEHT08"
 [9] "TEHT09" "TEHT10" "TEHT11" "TEHT12" "TEHT13" "TEHT14" "TEHT15" "TEHT16"
[17] "TEHT17"

> ##
> efa1 <- fa.poly(D[, vars], fm="minres", scores="regression",
+ nfactors=4, rotate="varimax")

> names(efa1)
[1] "fa"     "rho"    "tau"    "n.obs"  "Call"   "scores"

> summary(efa1);

Factor analysis with Call: fa.poly(x = D[, vars], nfactors = 4, rotate = "varimax", fm = "minres", 
    scores = "regression")

> efa1$loadings
NULL

> Lat <- as.matrix(efa1$fa$loadings)

> class(Lat) <- "matrix"

> Lat <- as.data.frame(Lat)

> names(Lat) <- paste("JOB", 1:ncol(Lat), sep="");

> ##dimnames(Lat)
> 
> 
> Lat2 <- f_addselite2data(data=Lat, key=rownames(Lat),
+ selitelista=Ylst, listname="ni1", Selite="Sel");

> ##
> KM_TEHT <- f_karkimuutt_fa(d=Lat2, max=maxKM,  crit=.3, selitys="Sel");

> KM_TEHT;
$JOB1
 [1] "Ura: asiakaskontaktien hoitaminen (TEHT09,0.74)"                                       
 [2] "Ura: taloudelliset tehtävät (TEHT10,0.72)"                                             
 [3] "Ura: myynti-, markkinointi-, esiintymis- tai neuvottelutehtävät (TEHT13,0.69)"         
 [4] "Ura: tiedonvälitys ja vastaavat viestintätehtävät (TEHT04,0.68)"                       
 [5] "Ura: toiminta hallitsevasti kansainvälisessä ympäristössä (TEHT15,0.66)"               
 [6] "Ura: henkilöstöhallinnolliset (TEHT16,0.66)"                                           
 [7] "Ura: yrittäjä tai muu itsenäinen ammatinharjoittaja (TEHT08,0.65)"                     
 [8] "Ura: kirjallinen sisällön tuottaminen (asiakirjat, raportit, kirjat ym.) (TEHT17,0.64)"
 [9] "Ura: asema ylemmässä johdossa (TEHT07,0.63)"                                           
[10] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.62)"     

$JOB2
 [1] "Ura: suunnittelu-, tutkimus- tai vastaavat asiantuntijatehtävät (TEHT12,0.58)"         
 [2] "Ura: erittäin vaativat ja vastuulliset ongelmanratkaisutehtävät (TEHT03,0.57)"         
 [3] "Ura: tekniset tehtävät (TEHT11,0.54)"                                                  
 [4] "Ura: tiedonvälitys ja vastaavat viestintätehtävät (TEHT04,0.43)"                       
 [5] "Ura: kirjallinen sisällön tuottaminen (asiakirjat, raportit, kirjat ym.) (TEHT17,0.42)"
 [6] "Ura: toiminta hallitsevasti kansainvälisessä ympäristössä (TEHT15,0.41)"               
 [7] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.38)"     
 [8] "Ura: asema ylemmässä johdossa (TEHT07,0.35)"                                           
 [9] "Ura: asema keskijohdossa (TEHT06,0.33)"                                                
[10] "Ura: yrittäjä tai muu itsenäinen ammatinharjoittaja (TEHT08,0.31)"                     

$JOB3
[1] "Ura: työnjohto tai vastaava alempi keskijohto (TEHT05,0.54)"                      
[2] "Ura: asema keskijohdossa (TEHT06,0.46)"                                           
[3] "Ura: tekniset tehtävät (TEHT11,0.39)"                                             
[4] "Ura: asema ylemmässä johdossa (TEHT07,0.39)"                                      
[5] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.34)"
[6] "Ura: yrittäjä tai muu itsenäinen ammatinharjoittaja (TEHT08,0.32)"                

$JOB4
[1] "Ura: työntekijä, puhtaasti suorittava työ (TEHT01,0.99)"                         
[2] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.3)"

$HUONO_SOPIVUUS
[1] " (,)"


> ###
> S <- as.data.frame(efa1$scores$scores)

> names(S) <- paste("JOB", 1:ncol(S), sep="");

> D <- cbind(D,S);

> str(S)
'data.frame':	3360 obs. of  4 variables:
 $ JOB1: num  -0.283 -0.349 -0.509 0.518 -0.332 ...
 $ JOB2: num  0.672 -0.407 -0.425 0.544 -0.566 ...
 $ JOB3: num  1.049 -0.285 0.41 -2.46 0.518 ...
 $ JOB4: num  0.233 -0.91 -0.943 2.339 0.318 ...

> ################ end työtehtävät uralla #############
> 
> 
> 
> #### Toiminta arjessa ##############
> Proc <- "fa.poly";

> Nimi <- "ACT";

> vars <- names(D)[grep("TOIM[012][0-9]$", names(D))]

> nF <- 6;

> vars
 [1] "TOIM01" "TOIM02" "TOIM03" "TOIM04" "TOIM05" "TOIM06" "TOIM07" "TOIM08"
 [9] "TOIM09" "TOIM10" "TOIM11" "TOIM12" "TOIM13" "TOIM14" "TOIM15" "TOIM16"
[17] "TOIM17" "TOIM18" "TOIM19" "TOIM20" "TOIM21" "TOIM22" "TOIM23" "TOIM24"
[25] "TOIM25" "TOIM26" "TOIM27" "TOIM28"

> ##
> if(Proc=="fa") {
+ efa1 <- fa(D[, vars], fm="minres", scores="regression",
+ nfactors=nF, rotate="varimax")
+ Lat <- as.matrix(efa1$loadings)
+ .... [TRUNCATED] 

> #
> if(Proc=="fa.poly") {
+ 
+ efa1 <- fa.poly(D[, vars], fm="minres", scores="regression",
+ nfactors=nF, rotate="varimax")
+ Lat <- as.matrix(efa1 .... [TRUNCATED] 

Factor analysis with Call: fa.poly(x = D[, vars], nfactors = nF, rotate = "varimax", fm = "minres", 
    scores = "regression")

Test of the hypothesis that 6 factors are sufficient.
The degrees of freedom for the model is 225  and the objective function was  0.63 
The number of observations was  3360  with Chi Square =  2099.17  with prob <  6.2e-301 

The root mean square of the residuals (RMSA) is  0.02 
The df corrected root mean square of the residuals is  0.03 

Tucker Lewis Index of factoring reliability =  0.916
RMSEA index =  0.05  and the 90 % confidence intervals are  0.048 0.052
BIC =  272.24
Loadings:
       MR1    MR3    MR2    MR5    MR6    MR4   
TOIM01         0.110  0.340  0.151  0.337       
TOIM02  0.202  0.302  0.177         0.146       
TOIM03  0.155  0.529                            
TOIM04         0.618         0.355              
TOIM05  0.246  0.584         0.147  0.147       
TOIM06  0.134  0.367  0.136  0.587  0.111       
TOIM07  0.388  0.309  0.211         0.135       
TOIM08  0.501  0.315                0.138       
TOIM09  0.260  0.180                0.457       
TOIM10                0.621         0.150       
TOIM11                0.599                     
TOIM12  0.192         0.200  0.206  0.586  0.279
TOIM13  0.174  0.126  0.323  0.185  0.339  0.110
TOIM14  0.616  0.171                       0.302
TOIM15  0.323        -0.107  0.129  0.147  0.672
TOIM16  0.100         0.470  0.219              
TOIM17  0.558  0.164                0.147  0.467
TOIM18  0.421         0.167  0.351  0.224       
TOIM19  0.691                0.129  0.173       
TOIM20                0.106  0.543  0.127       
TOIM21  0.668  0.108         0.215              
TOIM22  0.686         0.232  0.195  0.256       
TOIM23  0.738  0.160         0.136              
TOIM24  0.832  0.148                0.127       
TOIM25  0.746  0.174                0.121  0.180
TOIM26  0.792  0.130  0.116                     
TOIM27  0.468  0.147  0.208  0.164  0.219       
TOIM28  0.736  0.203                       0.332

                 MR1   MR3   MR2   MR5   MR6   MR4
SS loadings    6.251 1.743 1.530 1.256 1.203 1.076
Proportion Var 0.223 0.062 0.055 0.045 0.043 0.038
Cumulative Var 0.223 0.285 0.340 0.385 0.428 0.466

> ###
> class(Lat) <- "matrix"

> Lat <- as.data.frame(Lat)

> names(Lat) <- paste(Nimi, 1:ncol(Lat), sep="");

> ##dimnames(Lat)
> 
> 
> Lat2 <- f_addselite2data(data=Lat, key=rownames(Lat),
+ selitelista=Ylst, listname="ni1", Selite="Sel");

> Lat2
              ACT1         ACT2        ACT3         ACT4         ACT5
TOIM01 -0.01519152  0.109935921  0.33961106  0.151419784  0.336659784
TOIM02  0.20232645  0.302111935  0.17666290 -0.012541664  0.145672502
TOIM03  0.15455328  0.529111292 -0.05540487  0.003063263 -0.012850893
TOIM04  0.07330516  0.618103692  0.06162611  0.354942647  0.045023113
TOIM05  0.24648718  0.584074324  0.08833307  0.146836052  0.146673300
TOIM06  0.13352129  0.367049069  0.13577800  0.587481921  0.110868394
TOIM07  0.38757410  0.309205895  0.21108761 -0.050302741  0.135454643
TOIM08  0.50148562  0.315462485 -0.02810433 -0.095641720  0.138380119
TOIM09  0.25994395  0.179573679  0.08881639  0.069026492  0.456631902
TOIM10  0.01921680  0.090847551  0.62087315  0.001849025  0.149751559
TOIM11  0.05343628  0.045277137  0.59902164  0.034874585  0.001382623
TOIM12  0.19221420  0.005397968  0.20015859  0.205697764  0.586339290
TOIM13  0.17390174  0.126036885  0.32285940  0.185108753  0.339027914
TOIM14  0.61606905  0.170902846  0.03623120 -0.049221045 -0.012682420
TOIM15  0.32257146 -0.007263573 -0.10665397  0.129067694  0.146826206
TOIM16  0.10040874 -0.089643166  0.46993269  0.219468145  0.092757364
TOIM17  0.55837538  0.164194646  0.02862319  0.078734519  0.146625249
TOIM18  0.42135427 -0.058135489  0.16678912  0.350722900  0.224345908
TOIM19  0.69094373  0.057309534  0.09485149  0.129392031  0.172938479
TOIM20  0.07019660  0.064650362  0.10590674  0.543431194  0.127463654
TOIM21  0.66764827  0.108170953  0.01110225  0.214718122  0.076454043
TOIM22  0.68576608  0.058735840  0.23163847  0.195294465  0.256057084
TOIM23  0.73764374  0.160344157  0.05890656  0.135583535 -0.015796409
TOIM24  0.83248263  0.147697066  0.05897099  0.046760371  0.127196231
TOIM25  0.74556687  0.173702063 -0.08978600  0.014203177  0.120981692
TOIM26  0.79183686  0.129922076  0.11587769  0.075571119  0.052357724
TOIM27  0.46807497  0.146989102  0.20752480  0.163770457  0.219137255
TOIM28  0.73586446  0.203212640  0.03379408 -0.017294561  0.062657219
               ACT6
TOIM01 -0.085871858
TOIM02  0.025234317
TOIM03 -0.008583407
TOIM04  0.099662714
TOIM05  0.015304367
TOIM06  0.010961555
TOIM07  0.008866949
TOIM08  0.081723277
TOIM09  0.044109336
TOIM10  0.044584247
TOIM11 -0.011299238
TOIM12  0.278861738
TOIM13  0.110077157
TOIM14  0.302085563
TOIM15  0.672268629
TOIM16 -0.093738725
TOIM17  0.467057688
TOIM18  0.007606152
TOIM19  0.087781971
TOIM20  0.092952515
TOIM21  0.046178345
TOIM22 -0.030541377
TOIM23 -0.065554748
TOIM24  0.092109121
TOIM25  0.180048271
TOIM26  0.081264519
TOIM27  0.070001850
TOIM28  0.331926730
                                                                                  Sel
TOIM01                            Kotitalouden hoitaminen (ruuanlaitto, siivous jne.)
TOIM02           Taloudellisten asioiden hoitaminen (velat, lainat, sijoitukset jne.)
TOIM03      Rakentaminen ja korjaus (tavarat, asunnot, välineet jne. , myös hankinta)
TOIM04                               Kalastus, metsästys, marjanpoiminta, viljely ym.
TOIM05                                   Luonnonhoito (maa, metsä/kasvit, vesi, ilma)
TOIM06                                          Retkeily ja muu luonnossa liikkuminen
TOIM07                                             Eläinten kasvattaminen, hoitaminen
TOIM08                    Rahallisia tuloja/palkkioita tuottava toiminta tai työnteko
TOIM09                                              Ihmisten auttaminen ja hoitaminen
TOIM10                                                         Lepääminen, nukkuminen
TOIM11 Suunnittelematon toiminta/oleskelu (ilman aikatauluja ja selkeitä tavoitteita)
TOIM12                  Ihmissuhteiden, sosiaalisten verkostojen ylläpito ja luominen
TOIM13                                        Nautiskelu, juhliminen, huvitilaisuudet
TOIM14                                                   Ammattiyhdistystoiminta (ay)
TOIM15         Kerho-, seura-, joukkue-, järjestö-, yhdistystoiminta (ei ay-toiminta)
TOIM16                 Kirjojen lukeminen, radion, television, internetin seuraaminen
TOIM17                                                           Paikallinen toiminta
TOIM18       Taiteet ja kulttuuri (musiikki, näytelmät, valokuvaus, kuvataiteet jne.)
TOIM19                                          Kirjoittaminen, muu luova itseilmaisu
TOIM20                                                            Urheilu ja liikunta
TOIM21                                                     Opiskelu, kouluttautuminen
TOIM22                                                          Estetiikka ja kauneus
TOIM23                                                     Tieteet ja uusi teknologia
TOIM24                                                        Kansainvälinen toiminta
TOIM25                          Muiden opettaminen, kouluttaminen, valmentaminen jne.
TOIM26     Filosofiset, yhteiskunnalliset ja elämäntarkoitukseen liittyvät kysymykset
TOIM27                                            Pelit, leikit ja vastaava ajanviete
TOIM28                                           Poliittinen ja aatteellinen toiminta

> ##
> KM_ACT <- f_karkimuutt_fa(d=Lat2, max=maxKM,  crit=.3, selitys="Sel");

> KM_ACT;
$ACT1
 [1] "Kansainvälinen toiminta (TOIM24,0.83)"                                                   
 [2] "Filosofiset, yhteiskunnalliset ja elämäntarkoitukseen liittyvät kysymykset (TOIM26,0.79)"
 [3] "Muiden opettaminen, kouluttaminen, valmentaminen jne. (TOIM25,0.75)"                     
 [4] "Tieteet ja uusi teknologia (TOIM23,0.74)"                                                
 [5] "Poliittinen ja aatteellinen toiminta (TOIM28,0.74)"                                      
 [6] "Kirjoittaminen, muu luova itseilmaisu (TOIM19,0.69)"                                     
 [7] "Estetiikka ja kauneus (TOIM22,0.69)"                                                     
 [8] "Opiskelu, kouluttautuminen (TOIM21,0.67)"                                                
 [9] "Ammattiyhdistystoiminta (ay) (TOIM14,0.62)"                                              
[10] "Paikallinen toiminta (TOIM17,0.56)"                                                      

$ACT2
[1] "Kalastus, metsästys, marjanpoiminta, viljely ym. (TOIM04,0.62)"                         
[2] "Luonnonhoito (maa, metsä/kasvit, vesi, ilma) (TOIM05,0.58)"                             
[3] "Rakentaminen ja korjaus (tavarat, asunnot, välineet jne. , myös hankinta) (TOIM03,0.53)"
[4] "Retkeily ja muu luonnossa liikkuminen (TOIM06,0.37)"                                    
[5] "Rahallisia tuloja/palkkioita tuottava toiminta tai työnteko (TOIM08,0.32)"              
[6] "Eläinten kasvattaminen, hoitaminen (TOIM07,0.31)"                                       
[7] "Taloudellisten asioiden hoitaminen (velat, lainat, sijoitukset jne.) (TOIM02,0.3)"      

$ACT3
[1] "Lepääminen, nukkuminen (TOIM10,0.62)"                                                       
[2] "Suunnittelematon toiminta/oleskelu (ilman aikatauluja ja selkeitä tavoitteita) (TOIM11,0.6)"
[3] "Kirjojen lukeminen, radion, television, internetin seuraaminen (TOIM16,0.47)"               
[4] "Kotitalouden hoitaminen (ruuanlaitto, siivous jne.) (TOIM01,0.34)"                          
[5] "Nautiskelu, juhliminen, huvitilaisuudet (TOIM13,0.32)"                                      

$ACT4
[1] "Retkeily ja muu luonnossa liikkuminen (TOIM06,0.59)"                                   
[2] "Urheilu ja liikunta (TOIM20,0.54)"                                                     
[3] "Kalastus, metsästys, marjanpoiminta, viljely ym. (TOIM04,0.35)"                        
[4] "Taiteet ja kulttuuri (musiikki, näytelmät, valokuvaus, kuvataiteet jne.) (TOIM18,0.35)"

$ACT5
[1] "Ihmissuhteiden, sosiaalisten verkostojen ylläpito ja luominen (TOIM12,0.59)"
[2] "Ihmisten auttaminen ja hoitaminen (TOIM09,0.46)"                            
[3] "Nautiskelu, juhliminen, huvitilaisuudet (TOIM13,0.34)"                      
[4] "Kotitalouden hoitaminen (ruuanlaitto, siivous jne.) (TOIM01,0.34)"          

$ACT6
[1] "Kerho-, seura-, joukkue-, järjestö-, yhdistystoiminta (ei ay-toiminta) (TOIM15,0.67)"
[2] "Paikallinen toiminta (TOIM17,0.47)"                                                  
[3] "Poliittinen ja aatteellinen toiminta (TOIM28,0.33)"                                  
[4] "Ammattiyhdistystoiminta (ay) (TOIM14,0.3)"                                           

$HUONO_SOPIVUUS
[1] "Taloudellisten asioiden hoitaminen (velat, lainat, sijoitukset jne.) (TOIM02,0.054)"
[2] "Nautiskelu, juhliminen, huvitilaisuudet (TOIM13,0.071)"                             
[3] "Kotitalouden hoitaminen (ruuanlaitto, siivous jne.) (TOIM01,0.088)"                 


> ###
> 
> S  <- as.data.frame(efa1$scores$scores)

> str(S)
'data.frame':	3360 obs. of  6 variables:
 $ MR1: num  -0.701 -0.771 0.261 -1.465 -1.163 ...
 $ MR3: num  0.593 -0.575 -0.433 1.385 -0.364 ...
 $ MR2: num  -0.547 0.256 -0.243 0.968 1.33 ...
 $ MR5: num  0.0626 0.5726 -1.2096 0.6176 1.0193 ...
 $ MR6: num  0.0283 -0.8811 0.8519 0.9081 -0.1538 ...
 $ MR4: num  1.9931 -0.3202 1.4383 2.088 0.0137 ...

> names(S) <- paste(Nimi, 1:ncol(S), sep="");

> D <- cbind(D,S);

> str(S)
'data.frame':	3360 obs. of  6 variables:
 $ ACT1: num  -0.701 -0.771 0.261 -1.465 -1.163 ...
 $ ACT2: num  0.593 -0.575 -0.433 1.385 -0.364 ...
 $ ACT3: num  -0.547 0.256 -0.243 0.968 1.33 ...
 $ ACT4: num  0.0626 0.5726 -1.2096 0.6176 1.0193 ...
 $ ACT5: num  0.0283 -0.8811 0.8519 0.9081 -0.1538 ...
 $ ACT6: num  1.9931 -0.3202 1.4383 2.088 0.0137 ...

> ################ end työtehtävät uralla #############
> 
> #### Taloudelliset mahdollisuudet ##############
> Proc <- "fa";

> Nimi <- "ECOCAB";

> vars <- names(D)[grep("TALMAH[01][0-9]$", names(D))]

> nF <- 1;

> vars
[1] "TALMAH01" "TALMAH02" "TALMAH03" "TALMAH04" "TALMAH05" "TALMAH06" "TALMAH07"
[8] "TALMAH08" "TALMAH09"

> ##
> if(Proc=="fa") {
+ efa1 <- fa(D[, vars], fm="minres", scores="regression",
+ nfactors=nF, rotate="varimax")
+ Lat <- as.matrix(efa1$loadings)
+ .... [TRUNCATED] 

Factor analysis with Call: fa(r = D[, vars], nfactors = nF, rotate = "varimax", scores = "regression", 
    fm = "minres")

Test of the hypothesis that 1 factor is sufficient.
The degrees of freedom for the model is 27  and the objective function was  0.92 
The number of observations was  3360  with Chi Square =  3099.55  with prob <  0 

The root mean square of the residuals (RMSA) is  0.07 
The df corrected root mean square of the residuals is  0.08 

Tucker Lewis Index of factoring reliability =  0.828
RMSEA index =  0.184  and the 90 % confidence intervals are  0.179 0.19
BIC =  2880.32
Loadings:
         MR1  
TALMAH01 0.799
TALMAH02 0.814
TALMAH03 0.815
TALMAH04 0.786
TALMAH05 0.832
TALMAH06 0.807
TALMAH07 0.763
TALMAH08 0.776
TALMAH09 0.743

                 MR1
SS loadings    5.663
Proportion Var 0.629

> #
> if(Proc=="fa.poly") {
+ 
+ efa1 <- fa.poly(D[, vars], fm="minres", scores="regression",
+ nfactors=nF, rotate="varimax")
+ Lat <- as.matrix(efa1 .... [TRUNCATED] 

> ###
> class(Lat) <- "matrix"

> Lat <- as.data.frame(Lat)

> names(Lat) <- paste(Nimi, 1:ncol(Lat), sep="");

> ##dimnames(Lat)
> 
> 
> Lat2 <- f_addselite2data(data=Lat, key=rownames(Lat),
+ selitelista=Ylst, listname="ni1", Selite="Sel");

> Lat2
           ECOCAB1
TALMAH01 0.7990534
TALMAH02 0.8141824
TALMAH03 0.8146418
TALMAH04 0.7862648
TALMAH05 0.8323348
TALMAH06 0.8070301
TALMAH07 0.7628885
TALMAH08 0.7756179
TALMAH09 0.7428539
                                                                                                     Sel
TALMAH01                        Tal. mahd. Ravinto, vaatteet, vaatetus, puhtaus ym. fysiologiset tarpeet
TALMAH02           Tal. mahd. Kodin ja kotitalouden ylläpito (asunto, kalusteet, tarvikkeet, huolto ym.)
TALMAH03 Tal. mahd. Liikkuminen pitempien välimatkojen kohteiden välillä (kulkuneuvot, liikennevälineet)
TALMAH04                                              Tal. mahd. Terveyden ylläpito ja sairauksien hoito
TALMAH05                                 Tal. mahd. Virkistystoiminta, harrastukset ja muut aktiviteetit
TALMAH06                                   Tal. mahd. Huvittelu, juhliminen, tilaisuuksien järjestäminen
TALMAH07                       Tal. mahd. Yhteydenpito ihmisiin, osallistuminen yhteisöihin/verkostoihin
TALMAH08                                                           Tal. mahd. Opiskelu, kouluttautuminen
TALMAH09                              Tal. mahd. Tiedonkulku ajankohtaisista, yhteiskunnallista asioista

> ##
> KM_ECOCAB <- NULL;

> if(nF>1) {
+ KM_ECOCAB <- f_karkimuutt_fa(d=Lat2, max=maxKM,  crit=.45, selitys="Sel");
+ KM_ECOCAB};

> ###
> 
> if(Proc=="fa"){S  <- as.data.frame(efa1$scores)};

> if(Proc=="fa.poly"){S  <- as.data.frame(efa1$scores$scores)};

> str(S)
'data.frame':	3360 obs. of  1 variable:
 $ MR1: num  NA NA 0.856 NA -0.404 ...

> names(S) <- paste(Nimi, 1:ncol(S), sep="");

> D <- cbind(D,S);

> str(S)
'data.frame':	3360 obs. of  1 variable:
 $ ECOCAB1: num  NA NA 0.856 NA -0.404 ...

> ################ end työtehtävät uralla #############
> 
> 
> 
> ALL_KMsel <- list(El_lahtolot= KM_olot,Tyouran_teht=KM_TEHT,
+ El_toiminta= KM_ACT, .... [TRUNCATED] 

> ALL_KMsel
$El_lahtolot
$El_lahtolot$LAHTO1
[1] "Lähtiessäni sai paljon kiitosta tekemästäni työstä ja -työurasta (TOLOT03,0.81)"       
[2] "Sai itse valita itselle sopivimman eläkkeelle siirtymisajankohdan (TOLOT02,0.78)"      
[3] "Siirtyi eläkkeelle vapaasta tahdosta-nlr-(eläkkeelle siirt. olosuhteet) (TOLOT01,0.74)"
[4] "Viimeisen työpaikan olosuhteet erittäin työntekijäystävälliset (TOLOT04,0.73)"         
[5] "Siirsi omaa kokemusta ja osaamista työpaikan muille työntekijöille (TOLOT08,0.73)"     
[6] "Irtisanottiin henkilöstövähennysten yhteydessä (TOLOT09,-0.67)"                        
[7] "Antoi itse tilaa nuoremmille työntekijöilleni (TOLOT10,0.52)"                          
[8] "Painostettiin jättämään työ (TOLOT05,-0.45)"                                           
[9] "Työnantaja oli kustantanut lisäeläkkeitä (TOLOT06,0.38)"                               

$El_lahtolot$LAHTO2
[1] "Henkinen työkyky oli huono (TOLOT07,0.76)"                                        
[2] "Tietotaidot olivat vanhentuneet (TOLOT12,0.75)"                                   
[3] "Harkitsi vakavasti siirtymistä toiselle alalle tai ammattiin (TOLOT13,0.64)"      
[4] "Fyysinen työkyky oli huono (TOLOT11,0.57)"                                        
[5] "Viimeisen työpaikan olosuhteet ovat sittemmin selvästi parantuneet (TOLOT14,0.55)"
[6] "Etsittiin uusia työtehtäviä (TOLOT16,0.49)"                                       
[7] "Painostettiin jättämään työ (TOLOT05,0.43)"                                       

$El_lahtolot$HUONO_SOPIVUUS
[1] "Painostettiin jättämään työ (TOLOT05,0.007)"                                        
[2] "Työmotivaation puolesta olisi voinut jatkaa työuraa paljon pitempään (TOLOT15,0.01)"
[3] "Työnantaja oli kustantanut lisäeläkkeitä (TOLOT06,0.044)"                           


$Tyouran_teht
$Tyouran_teht$JOB1
 [1] "Ura: asiakaskontaktien hoitaminen (TEHT09,0.74)"                                       
 [2] "Ura: taloudelliset tehtävät (TEHT10,0.72)"                                             
 [3] "Ura: myynti-, markkinointi-, esiintymis- tai neuvottelutehtävät (TEHT13,0.69)"         
 [4] "Ura: tiedonvälitys ja vastaavat viestintätehtävät (TEHT04,0.68)"                       
 [5] "Ura: toiminta hallitsevasti kansainvälisessä ympäristössä (TEHT15,0.66)"               
 [6] "Ura: henkilöstöhallinnolliset (TEHT16,0.66)"                                           
 [7] "Ura: yrittäjä tai muu itsenäinen ammatinharjoittaja (TEHT08,0.65)"                     
 [8] "Ura: kirjallinen sisällön tuottaminen (asiakirjat, raportit, kirjat ym.) (TEHT17,0.64)"
 [9] "Ura: asema ylemmässä johdossa (TEHT07,0.63)"                                           
[10] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.62)"     

$Tyouran_teht$JOB2
 [1] "Ura: suunnittelu-, tutkimus- tai vastaavat asiantuntijatehtävät (TEHT12,0.58)"         
 [2] "Ura: erittäin vaativat ja vastuulliset ongelmanratkaisutehtävät (TEHT03,0.57)"         
 [3] "Ura: tekniset tehtävät (TEHT11,0.54)"                                                  
 [4] "Ura: tiedonvälitys ja vastaavat viestintätehtävät (TEHT04,0.43)"                       
 [5] "Ura: kirjallinen sisällön tuottaminen (asiakirjat, raportit, kirjat ym.) (TEHT17,0.42)"
 [6] "Ura: toiminta hallitsevasti kansainvälisessä ympäristössä (TEHT15,0.41)"               
 [7] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.38)"     
 [8] "Ura: asema ylemmässä johdossa (TEHT07,0.35)"                                           
 [9] "Ura: asema keskijohdossa (TEHT06,0.33)"                                                
[10] "Ura: yrittäjä tai muu itsenäinen ammatinharjoittaja (TEHT08,0.31)"                     

$Tyouran_teht$JOB3
[1] "Ura: työnjohto tai vastaava alempi keskijohto (TEHT05,0.54)"                      
[2] "Ura: asema keskijohdossa (TEHT06,0.46)"                                           
[3] "Ura: tekniset tehtävät (TEHT11,0.39)"                                             
[4] "Ura: asema ylemmässä johdossa (TEHT07,0.39)"                                      
[5] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.34)"
[6] "Ura: yrittäjä tai muu itsenäinen ammatinharjoittaja (TEHT08,0.32)"                

$Tyouran_teht$JOB4
[1] "Ura: työntekijä, puhtaasti suorittava työ (TEHT01,0.99)"                         
[2] "Ura: suurempaa ruumillista voimaa tai kestävyyttä vaativat tehtävät (TEHT14,0.3)"

$Tyouran_teht$HUONO_SOPIVUUS
[1] " (,)"


$El_toiminta
$El_toiminta$ACT1
 [1] "Kansainvälinen toiminta (TOIM24,0.83)"                                                   
 [2] "Filosofiset, yhteiskunnalliset ja elämäntarkoitukseen liittyvät kysymykset (TOIM26,0.79)"
 [3] "Muiden opettaminen, kouluttaminen, valmentaminen jne. (TOIM25,0.75)"                     
 [4] "Tieteet ja uusi teknologia (TOIM23,0.74)"                                                
 [5] "Poliittinen ja aatteellinen toiminta (TOIM28,0.74)"                                      
 [6] "Kirjoittaminen, muu luova itseilmaisu (TOIM19,0.69)"                                     
 [7] "Estetiikka ja kauneus (TOIM22,0.69)"                                                     
 [8] "Opiskelu, kouluttautuminen (TOIM21,0.67)"                                                
 [9] "Ammattiyhdistystoiminta (ay) (TOIM14,0.62)"                                              
[10] "Paikallinen toiminta (TOIM17,0.56)"                                                      

$El_toiminta$ACT2
[1] "Kalastus, metsästys, marjanpoiminta, viljely ym. (TOIM04,0.62)"                         
[2] "Luonnonhoito (maa, metsä/kasvit, vesi, ilma) (TOIM05,0.58)"                             
[3] "Rakentaminen ja korjaus (tavarat, asunnot, välineet jne. , myös hankinta) (TOIM03,0.53)"
[4] "Retkeily ja muu luonnossa liikkuminen (TOIM06,0.37)"                                    
[5] "Rahallisia tuloja/palkkioita tuottava toiminta tai työnteko (TOIM08,0.32)"              
[6] "Eläinten kasvattaminen, hoitaminen (TOIM07,0.31)"                                       
[7] "Taloudellisten asioiden hoitaminen (velat, lainat, sijoitukset jne.) (TOIM02,0.3)"      

$El_toiminta$ACT3
[1] "Lepääminen, nukkuminen (TOIM10,0.62)"                                                       
[2] "Suunnittelematon toiminta/oleskelu (ilman aikatauluja ja selkeitä tavoitteita) (TOIM11,0.6)"
[3] "Kirjojen lukeminen, radion, television, internetin seuraaminen (TOIM16,0.47)"               
[4] "Kotitalouden hoitaminen (ruuanlaitto, siivous jne.) (TOIM01,0.34)"                          
[5] "Nautiskelu, juhliminen, huvitilaisuudet (TOIM13,0.32)"                                      

$El_toiminta$ACT4
[1] "Retkeily ja muu luonnossa liikkuminen (TOIM06,0.59)"                                   
[2] "Urheilu ja liikunta (TOIM20,0.54)"                                                     
[3] "Kalastus, metsästys, marjanpoiminta, viljely ym. (TOIM04,0.35)"                        
[4] "Taiteet ja kulttuuri (musiikki, näytelmät, valokuvaus, kuvataiteet jne.) (TOIM18,0.35)"

$El_toiminta$ACT5
[1] "Ihmissuhteiden, sosiaalisten verkostojen ylläpito ja luominen (TOIM12,0.59)"
[2] "Ihmisten auttaminen ja hoitaminen (TOIM09,0.46)"                            
[3] "Nautiskelu, juhliminen, huvitilaisuudet (TOIM13,0.34)"                      
[4] "Kotitalouden hoitaminen (ruuanlaitto, siivous jne.) (TOIM01,0.34)"          

$El_toiminta$ACT6
[1] "Kerho-, seura-, joukkue-, järjestö-, yhdistystoiminta (ei ay-toiminta) (TOIM15,0.67)"
[2] "Paikallinen toiminta (TOIM17,0.47)"                                                  
[3] "Poliittinen ja aatteellinen toiminta (TOIM28,0.33)"                                  
[4] "Ammattiyhdistystoiminta (ay) (TOIM14,0.3)"                                           

$El_toiminta$HUONO_SOPIVUUS
[1] "Taloudellisten asioiden hoitaminen (velat, lainat, sijoitukset jne.) (TOIM02,0.054)"
[2] "Nautiskelu, juhliminen, huvitilaisuudet (TOIM13,0.071)"                             
[3] "Kotitalouden hoitaminen (ruuanlaitto, siivous jne.) (TOIM01,0.088)"                 


$Tal_toimintamahd
NULL


> sink();