if (params$tipo=="pca"){
  source("PCA.R")
  df<-read.csv(file=params$data, header=TRUE, sep=",")
  PCA(df)
} else if (params$tipo=="fa"){
  source("FA.R")
  df<-read.csv(file=params$data, header=TRUE, sep=",")
  FA(df,params$factores)
}
## Loading required package: dplyr
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## Loading required package: ggplot2
## Loading required package: lmtest
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## Loading required package: corrplot
## corrplot 0.84 loaded
## Loading required package: ggcorrplot
## Loading required package: DataExplorer
## Loading required package: Amelia
## Loading required package: Rcpp
## ## 
## ## Amelia II: Multiple Imputation
## ## (Version 1.7.5, built: 2018-05-07)
## ## Copyright (C) 2005-2019 James Honaker, Gary King and Matthew Blackwell
## ## Refer to http://gking.harvard.edu/amelia/ for more information
## ##
## Loading required package: naniar
## Loading required package: GPArotation

## $Importance
##                             PC1      PC2      PC3       PC4       PC5
## Standard deviation     2.317668 1.451801 1.193455 0.8228989 0.6554041
## Proportion of Variance 0.488330 0.191610 0.129480 0.0615600 0.0390500
## Cumulative Proportion  0.488330 0.679940 0.809420 0.8709800 0.9100300
##                              PC6       PC7       PC8       PC9      PC10
## Standard deviation     0.5091761 0.4880598 0.4271943 0.3856141 0.3126846
## Proportion of Variance 0.0235700 0.0216500 0.0165900 0.0135200 0.0088900
## Cumulative Proportion  0.9336000 0.9552600 0.9718500 0.9853700 0.9942500
##                             PC11
## Standard deviation     0.2514102
## Proportion of Variance 0.0057500
## Cumulative Proportion  1.0000000
## 
## $Components
##                PC1         PC2          PC3         PC4         PC5
## X0.48    0.3828017 -0.12670267  0.014814238 -0.01659580  0.45534745
## X5.234   0.3840070  0.03414927 -0.018907388  0.12421263  0.49798539
## X2.62   -0.1104791  0.07562008 -0.747423170 -0.27720934  0.14887064
## X2.857  -0.3154218 -0.37696772  0.031215076 -0.28744588  0.19542277
## X0.803  -0.2522924 -0.30795991 -0.464006528  0.03791647  0.17315452
## X13.897  0.2991748 -0.44365930  0.015065989 -0.06191874  0.01564676
## X0.326   0.2983227 -0.35523786 -0.005408489 -0.32668683 -0.47919433
## X0.902  -0.1951335 -0.57215510  0.167160253  0.04445242 -0.02918783
## X0.164   0.2294520 -0.23857627 -0.332964726  0.74706395 -0.21921127
## X0.183   0.3428061  0.16561657 -0.288869323 -0.26114955 -0.37789250
## X4.155   0.3793551 -0.07335835  0.044670282 -0.29077503  0.18098054
##                 PC6         PC7         PC8          PC9        PC10
## X0.48   -0.14023648  0.01614663  0.07233625 -0.690757215  0.35486068
## X5.234   0.39147661  0.09986979 -0.20985462  0.129737539 -0.59737990
## X2.62    0.07346313  0.45344434 -0.18936449  0.118928950  0.24664817
## X2.857  -0.43867505  0.17595013 -0.05295181 -0.136091977 -0.45044926
## X0.803   0.14392505 -0.73072015  0.13404705 -0.048901492 -0.08294699
## X13.897  0.31605757  0.09297374  0.44155931  0.343301414  0.24354310
## X0.326   0.21705220 -0.13477063 -0.58583221 -0.196716193 -0.01720446
## X0.902   0.08413003  0.34978154  0.15803101  0.009342654 -0.02707277
## X0.164  -0.35845402  0.11403176 -0.13383272  0.026980354 -0.05943208
## X0.183  -0.11372540  0.05623636  0.55150096 -0.211725645 -0.41401039
## X4.155  -0.55948912 -0.23221330 -0.09425910  0.518430389  0.10635860
##                PC11
## X0.48   -0.03663325
## X5.234  -0.08145749
## X2.62   -0.05079530
## X2.857   0.43473113
## X0.803  -0.11349242
## X13.897  0.47819965
## X0.326   0.03100766
## X0.902  -0.66975516
## X0.164   0.09872011
## X0.183  -0.15532593
## X4.155  -0.27475567
## 
## $x
##               PC1         PC2         PC3         PC4          PC5
##  [1,] -5.41826453 -2.11447020  3.05348635 -0.71553675  0.009562641
##  [2,] -1.03485753 -1.57412962  0.90571835 -0.58574982 -0.618094074
##  [3,]  2.12397019 -0.16717305  0.59666033  1.06992496  1.533220300
##  [4,]  1.70349238  1.44037285 -0.02233305  0.68664987 -0.310314422
##  [5,] -1.69818269  2.02978270 -0.47993423  1.02914955  0.983477387
##  [6,] -0.04612204 -3.76145097  1.34539359  0.62588636 -0.836951106
##  [7,]  1.77587147  1.35207910  0.90671114  0.55302528 -1.068640641
##  [8,]  1.36108486  0.33388590  1.68325776 -0.30708749  1.072136316
##  [9,] -0.64518809  1.06308320  1.51150113 -0.25073730  0.264527139
## [10,]  3.09775439 -0.65408073 -1.82206527 -2.42424208 -1.385242068
## [11,]  1.76807693  0.79169800 -0.71138004  0.26581997 -0.261552976
## [12,]  0.21925870 -0.78862554 -0.51612345  0.54058532 -0.532359781
## [13,] -1.71425956  1.80999345  0.96436094  0.30507004 -0.439399545
## [14,]  0.31953695 -1.50140072 -0.37049944  0.33122247  0.387135553
## [15,] -0.06929641  1.04432790 -1.26786259 -0.91786313 -0.305499978
## [16,]  2.18826402  1.29104589 -0.19558777  0.51291710 -0.131478759
## [17,] -2.52303064  0.79149758 -1.22106771 -1.05317261  0.012173817
## [18,]  2.37262785  0.13135027  3.20531603 -1.43346768  0.888641571
## [19,] -3.13076237 -0.78100973 -0.00367178 -1.18264482 -0.532051861
## [20,] -2.01785115 -0.64862729 -1.29534712  0.51714149 -0.191822198
## [21,] -0.52450610 -1.37872553 -1.89453432  0.06993125  1.203772401
## [22,]  1.28749887 -0.08527518  0.18110236  1.16977562 -0.430413754
## [23,] -1.32981515  2.33068587  0.57114187  0.42308654 -0.267765726
## [24,]  0.85792027 -2.13745796 -0.70142074  1.04000234 -0.133319691
## [25,] -3.42932993 -0.48363979 -1.30948051  0.01613377  0.585723576
## [26,]  4.48512017  1.51348350 -1.38519843 -1.46173396  1.211811429
## [27,]  1.05264803  0.38883892  0.77418524 -0.64229197  0.418012596
## [28,] -0.53107866 -0.76879245  0.34203453  1.35309303  0.544600630
## [29,] -1.99288944  1.26752594  1.28425444 -0.63869373 -0.001672606
## [30,]  3.72685065 -1.67455261 -0.07258202  0.19804910  0.931337916
## [31,]  0.36319821 -0.78712402  0.27742970  0.12670171 -0.494739764
## [32,]  0.93991467 -1.52856687  0.65742595 -0.66064645 -0.324551956
## [33,] -0.48136047  1.28285165 -0.60396077  1.13820758 -0.544121077
## [34,]  0.31024392  0.68971446 -2.22930230 -0.58569823  0.467500141
## [35,] -5.61945563 -0.87627398 -1.58506086 -0.01213578 -0.021438053
## [36,]  1.72708759  1.73126750 -1.04825847  1.15930797 -0.738892671
## [37,] -0.98181839  1.28783980 -1.39992246 -0.79977715 -0.653550502
## [38,]  1.70887607 -2.07099439 -1.24163452 -0.34092741  0.373041426
## [39,]  2.83671240  0.08580623 -0.58120243 -0.25399475 -0.028663063
## [40,]  4.42014044 -0.54888484  1.10491051  0.93398094 -0.797950642
## [41,]  1.43799157 -1.52947040  0.42019201  0.73235082 -0.839883539
## [42,]  0.18217866  0.30105159  0.69915251 -0.64152583  0.472335080
## [43,] -2.72726614 -1.43548375 -1.17766985  0.41624741 -0.184827443
## [44,] -3.94256301  1.82339595  0.31385803  0.85981467  0.362642439
## [45,] -0.97443954  0.38633409  0.73081894 -0.85152684 -0.401856632
## [46,] -0.42444130 -2.66819202 -0.34826504 -0.18351112  0.802920598
## [47,] -0.31478394  0.76019836  0.06053622  0.54710033  0.492679058
## [48,]  2.45638179  1.44821911  1.13931398 -0.37475837 -0.542355805
## [49,] -3.15113830  2.58807180  0.75560327 -0.30345224  0.002158319
##                PC6         PC7         PC8         PC9        PC10
##  [1,] -0.078745528 -0.02600373 -0.31382210 -0.63908002  0.06318665
##  [2,]  0.273715930 -0.08892525  0.54780415  0.59920505 -0.27144017
##  [3,] -0.455118877  1.06216134 -0.54613539 -0.25221479 -0.82242553
##  [4,] -1.148757104 -0.87193926 -0.13209515  0.06343729  0.25748562
##  [5,]  0.104694110  0.05018377 -0.26052457 -0.32759720  0.17698841
##  [6,]  0.212494405 -0.22071655  0.05659519 -0.25162974  0.10770089
##  [7,]  0.295329453 -0.03359194  0.54727917 -0.42576976 -0.46870890
##  [8,]  0.737540386 -0.40263059  0.75771683  0.61038843 -0.17318540
##  [9,] -0.657068433  0.36373650  0.84081057  0.38263247 -0.10191015
## [10,] -0.643354408 -0.82041951 -0.25313517  0.03436644 -0.37040256
## [11,] -0.348485916  0.09848312  0.39235378  0.39304866 -0.32839310
## [12,] -0.297110092  0.78321487 -0.22960138  0.45338584  0.45757035
## [13,]  0.159004737 -1.17367779  0.48602549 -0.33592842 -0.02490451
## [14,]  0.180060924 -0.63127691  0.30296134  0.53012400  0.26855026
## [15,]  0.078290601  0.74248488  0.64029612 -0.29577672  0.10646066
## [16,]  0.332359602 -0.15760206 -0.51977622 -0.24168154  0.30550973
## [17,] -0.601652551 -0.08274011 -0.28106537  0.04583308 -0.15776135
## [18,]  0.534154047 -0.26611512 -0.46812978  0.67913106 -0.06695803
## [19,] -0.231663509  0.22405899 -0.11604002  0.04783985  0.02770857
## [20,]  0.001712943  0.26036477 -0.79803409 -0.10685136 -0.07170577
## [21,]  0.697265967 -0.55542714  0.12735141 -0.35246009 -0.08351892
## [22,]  0.125230006  0.38417163  0.59547350  0.13640608  0.18544126
## [23,] -0.287015092  0.14713047  0.12854654  0.11136239  0.07720524
## [24,] -0.903474476 -0.08729086  0.26804003  0.31240946  0.69266409
## [25,] -0.370931081 -1.21749749 -0.21553366  0.43639643 -0.23129188
## [26,] -0.124100848 -0.14016655 -0.25931286 -0.09931553  0.05299708
## [27,] -0.271531592  0.08858621  0.35812976  0.38912703  0.53836129
## [28,] -0.508149153 -0.22207720  0.31994957 -0.34903121 -0.37701931
## [29,] -1.023418258  0.62227653 -0.43298916 -0.03747542 -0.05354096
## [30,] -0.323315598 -0.37366256 -0.01370490 -0.97390642  0.05460553
## [31,]  0.437835702  0.62472162 -0.82634067  0.41073353  0.46673881
## [32,]  0.673855748 -0.11300651 -0.83242109 -0.22446796  0.31906894
## [33,] -0.053363237  0.21170311 -0.66116057  0.75061342 -0.42772137
## [34,]  0.266102215  0.47622835  0.57830483 -0.27934588  0.58566677
## [35,]  0.502700346 -0.17355441  0.05064724  0.24314176 -0.09018900
## [36,]  1.353148256 -0.44052327 -0.36074609 -0.05070275  0.16048292
## [37,]  0.245257019  0.41856080  0.25969783 -0.19245476 -0.16367604
## [38,]  0.450665841  0.77561350  0.43924516 -0.02631428 -0.03437335
## [39,]  0.248056935  0.13932932 -0.20992176  0.11460240 -0.56260633
## [40,] -0.606428358  0.17882523 -0.04237822 -0.03582528  0.17486046
## [41,]  0.591785224 -0.06644972  0.22563577 -0.30813643 -0.48323014
## [42,]  0.858948009  0.57187760  0.05472461  0.32326695  0.14526132
## [43,] -0.062163204  0.48926095  0.14055100  0.24648937 -0.50533531
## [44,]  0.323377799 -0.30622421 -0.12689726 -0.05895014  0.12630134
## [45,] -0.185976755  0.27770851  0.46542547 -0.96014410  0.16769397
## [46,] -0.430109198 -0.11079827 -0.17328446 -0.12803402  0.05664579
## [47,] -0.433622970 -0.37034625  0.09262748  0.19903182  0.22427297
## [48,]  0.091415941 -0.29798806 -0.47778494 -0.23236635 -0.05600785
## [49,]  0.270554092  0.25996927 -0.12535796 -0.32751266  0.12687703
##              PC11
##  [1,] -0.13050764
##  [2,] -0.97633311
##  [3,] -0.14636718
##  [4,] -0.07578902
##  [5,]  0.23331996
##  [6,]  0.23557677
##  [7,]  0.15547163
##  [8,]  0.01732488
##  [9,] -0.36330275
## [10,]  0.11006993
## [11,]  0.28782496
## [12,]  0.03399956
## [13,]  0.34253176
## [14,]  0.03580663
## [15,] -0.20760762
## [16,] -0.37208185
## [17,]  0.14910875
## [18,]  0.07603229
## [19,]  0.14097249
## [20,] -0.54278713
## [21,]  0.01788219
## [22,] -0.05346199
## [23,] -0.11872640
## [24,] -0.10492947
## [25,] -0.05622448
## [26,] -0.14238006
## [27,]  0.08733622
## [28,]  0.09556559
## [29,]  0.06211678
## [30,] -0.14264947
## [31,]  0.28742483
## [32,] -0.02527154
## [33,]  0.13176630
## [34,] -0.25125387
## [35,] -0.05948787
## [36,] -0.26475832
## [37,]  0.35001594
## [38,]  0.35094172
## [39,] -0.12588372
## [40,]  0.06676863
## [41,] -0.03770306
## [42,]  0.44423726
## [43,]  0.17187341
## [44,]  0.19252575
## [45,]  0.08987215
## [46,]  0.11514545
## [47,]  0.20352908
## [48,]  0.03765831
## [49,] -0.32519269
## 
## $Screeplot

## 
## $CStructure

## 
## $Correlations