MODELO NZEB 2

R Markdown

library(GGally)

## Loading required package: ggplot2

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

library(fields)

## Loading required package: spam

## Loading required package: dotCall64

## Loading required package: grid

## Spam version 2.6-0 (2020-12-14) is loaded.
## Type 'help( Spam)' or 'demo( spam)' for a short introduction 
## and overview of this package.
## Help for individual functions is also obtained by adding the
## suffix '.spam' to the function name, e.g. 'help( chol.spam)'.

## 
## Attaching package: 'spam'

## The following objects are masked from 'package:base':
## 
##     backsolve, forwardsolve

## Loading required package: viridis

## Loading required package: viridisLite

## See https://github.com/NCAR/Fields for
##  an extensive vignette, other supplements and source code

library(CCA)

## Loading required package: fda

## Loading required package: splines

## Loading required package: Matrix

## 
## Attaching package: 'Matrix'

## The following object is masked from 'package:spam':
## 
##     det

## Loading required package: fds

## Loading required package: rainbow

## Loading required package: MASS

## Loading required package: pcaPP

## Loading required package: RCurl

## 
## Attaching package: 'fda'

## The following object is masked from 'package:graphics':
## 
##     matplot

library(vegan)

## Loading required package: permute

## Loading required package: lattice

## 
## Attaching package: 'lattice'

## The following object is masked from 'package:fda':
## 
##     melanoma

## This is vegan 2.5-7

clima2<-read.table("VIND-MODELO-2.csv",sep=";")
nzeb<-read.table("VDEP-DATABASE 1-NREL.csv",sep=";")
colnames(nzeb)<-c("Demanda total [kWh]","Energía Solar [kWh]")
colnames(clima2)<-c("Radiacion Solar Horizontal [kWh]","Humedad [%]","Temperatura [C]")

clima2

##     Radiacion Solar Horizontal [kWh] Humedad [%] Temperatura [C]
## 1                             227.35       87.04           26.35
## 2                             237.77       88.43           26.16
## 3                             147.38       89.64           25.86
## 4                             297.08       85.32           26.05
## 5                             301.77       76.88           25.60
## 6                             290.54       83.28           25.74
## 7                             288.81       87.45           25.79
## 8                             306.15       77.92           25.79
## 9                             314.13       78.07           25.47
## 10                            246.02       84.42           24.85
## 11                            287.54       85.49           25.43
## 12                            270.85       82.46           25.80
## 13                            307.75       79.81           26.30
## 14                            307.10       76.85           26.52
## 15                            327.17       73.27           25.83
## 16                            312.06       72.40           25.99
## 17                            284.46       76.64           25.85
## 18                            272.27       85.43           25.73
## 19                            219.73       92.53           24.85
## 20                            153.38       94.22           24.24
## 21                            313.96       88.55           25.26
## 22                            305.54       85.30           25.28
## 23                            264.92       87.31           24.63
## 24                            281.25       84.63           25.31
## 25                            223.00       88.73           25.31
## 26                            230.83       86.53           25.42
## 27                            240.69       81.19           25.33
## 28                            306.60       83.37           25.96
## 29                            259.29       81.52           25.82
## 30                            320.40       76.77           26.01
## 31                            267.15       82.12           25.90
## 32                            322.46       81.54           26.40
## 33                            230.90       80.13           25.89
## 34                            294.08       83.21           25.71
## 35                            236.60       85.88           25.62
## 36                            270.38       87.98           25.12
## 37                            302.08       79.59           25.45
## 38                            290.65       80.42           25.37
## 39                            285.54       76.60           25.48
## 40                            289.56       74.52           25.58
## 41                            293.42       78.97           25.62
## 42                            265.79       82.14           25.43
## 43                            280.65       83.12           25.70
## 44                            268.15       88.23           24.62
## 45                            244.83       89.08           25.43
## 46                            314.04       88.39           25.71
## 47                            245.90       91.62           25.30
## 48                            156.81       94.11           24.20
## 49                            194.06       90.17           25.00
## 50                            276.13       82.22           26.32
## 51                            299.69       81.28           26.45
## 52                            293.88       80.65           26.58
## 53                            187.94       91.46           24.86
## 54                            169.38       88.97           24.50
## 55                            115.83       93.90           23.54
## 56                             94.88       95.84           23.35
## 57                            226.35       90.09           23.56
## 58                            196.54       84.62           24.12
## 59                            216.63       88.26           24.90
## 60                            242.75       91.06           25.30
## 61                            276.27       88.07           25.43
## 62                            213.60       90.47           25.11
## 63                            292.13       90.93           25.38
## 64                            291.88       89.91           25.39
## 65                            278.17       85.76           25.69
## 66                            260.19       84.66           25.57
## 67                            321.04       76.00           25.47
## 68                            293.48       82.52           25.20
## 69                            247.25       90.63           24.69
## 70                            263.17       88.06           25.14
## 71                            275.77       90.84           24.96
## 72                            265.21       90.98           24.85
## 73                            257.98       88.73           25.03
## 74                            218.42       93.16           24.28
## 75                            264.17       88.89           25.02
## 76                            255.10       84.78           25.71
## 77                            257.06       87.48           25.41
## 78                            290.58       89.87           25.03
## 79                            223.04       88.85           25.11
## 80                            229.15       87.31           24.40
## 81                            162.67       90.62           24.13
## 82                            279.38       91.60           24.66
## 83                            265.60       87.11           24.77
## 84                            250.79       91.44           24.22
## 85                            155.98       96.47           23.23
## 86                            167.15       92.52           23.70
## 87                            184.83       93.37           24.00
## 88                            175.46       93.29           23.76
## 89                            108.65       97.68           23.70
## 90                            196.23       96.54           23.15
## 91                            135.04       98.81           23.12
## 92                            111.02       96.56           22.66
## 93                            192.79       90.41           24.14
## 94                            293.17       91.11           24.84
## 95                            116.00       95.74           23.04
## 96                            133.17       94.90           23.09
## 97                            176.92       94.10           23.53
## 98                            185.29       94.09           23.56
## 99                            215.42       93.23           24.22
## 100                           198.35       92.40           24.02
## 101                           192.46       95.52           23.36
## 102                           153.21       95.00           23.48
## 103                           186.58       95.32           23.64
## 104                           251.85       91.98           24.49
## 105                           255.81       89.60           24.35
## 106                           286.31       86.41           24.10
## 107                           256.63       93.34           23.41
## 108                           160.40       93.08           23.12
## 109                            52.29       99.45           22.76
## 110                           146.31       95.92           23.23
## 111                           216.38       94.58           23.81
## 112                           184.38       95.55           23.77
## 113                           179.31       96.79           23.91
## 114                           191.92       94.32           23.94
## 115                           124.04       92.77           23.60
## 116                           184.94       97.24           22.93
## 117                           187.81       94.67           23.29
## 118                           187.25       92.50           23.70
## 119                           161.42       95.40           23.28
## 120                           214.90       93.72           23.52
## 121                           245.65       92.89           23.96
## 122                           168.19       94.67           23.29
## 123                           256.23       89.52           24.09
## 124                           244.23       92.13           23.66
## 125                           252.71       92.17           23.68
## 126                           252.92       89.11           24.23
## 127                           256.98       89.32           23.96
## 128                           258.06       88.42           23.71
## 129                           269.17       85.62           23.97
## 130                           269.85       86.50           24.14
## 131                           244.15       86.42           23.83
## 132                           262.98       87.26           24.41
## 133                           221.85       88.01           24.49
## 134                           261.08       85.76           23.69
## 135                           240.42       86.55           23.88
## 136                           255.19       84.36           24.20
## 137                           250.40       86.30           24.04
## 138                           248.50       87.01           23.86
## 139                           184.90       88.79           23.78
## 140                           169.33       89.44           23.94
## 141                           218.08       88.32           23.25
## 142                           257.46       82.80           23.01
## 143                           258.42       81.53           22.55
## 144                           229.77       82.43           22.63
## 145                           252.44       81.65           22.84
## 146                           249.19       82.92           23.64
## 147                           248.21       86.50           23.90
## 148                           238.92       87.81           23.99
## 149                           206.06       89.02           23.71
## 150                           252.94       81.39           23.82
## 151                           246.31       81.37           24.19
## 152                           248.38       82.76           25.19
## 153                           211.92       87.38           25.20
## 154                           249.63       83.77           24.33
## 155                           244.15       79.31           23.45
## 156                           252.10       77.39           23.49
## 157                           249.75       81.11           23.72
## 158                           234.58       81.02           22.97
## 159                           245.25       80.67           23.17
## 160                           246.48       80.34           23.80
## 161                           247.81       78.04           23.79
## 162                           245.90       80.57           23.67
## 163                           241.02       80.66           23.25
## 164                           243.29       79.06           23.75
## 165                           243.00       80.17           24.19
## 166                           224.54       82.27           24.56
## 167                           241.17       83.78           24.20
## 168                           245.35       78.14           23.73
## 169                           228.85       79.83           23.90
## 170                           241.35       78.84           24.12
## 171                           243.10       71.87           24.13
## 172                           205.04       78.12           23.76
## 173                           161.23       85.18           23.60
## 174                           228.81       77.77           24.45
## 175                           253.96       73.35           22.24
## 176                           250.15       74.62           22.73
## 177                           250.60       74.24           23.66
## 178                           253.02       73.89           23.63
## 179                           252.94       71.98           24.26
## 180                           255.13       69.90           24.98
## 181                           254.27       72.47           25.45
## 182                           247.60       70.87           25.60
## 183                           254.25       68.94           25.68
## 184                           236.58       69.60           25.63
## 185                           260.92       67.50           25.23
## 186                           255.50       69.46           25.11
## 187                           252.60       69.19           25.92
## 188                           255.38       68.13           26.06
## 189                           241.33       69.28           25.58
## 190                           252.83       72.07           24.05
## 191                           245.85       70.79           22.96
## 192                           256.35       65.31           22.77
## 193                           234.79       72.07           22.83
## 194                           248.67       75.24           23.78
## 195                           252.33       68.35           24.21
## 196                           252.58       75.38           23.66
## 197                           193.75       78.02           24.00
## 198                           236.75       80.51           23.60
## 199                           234.13       76.50           23.73
## 200                           243.94       75.60           24.55
## 201                           231.42       77.89           25.08
## 202                           225.88       70.78           25.80
## 203                           269.77       69.60           24.98
## 204                           274.38       68.13           24.58
## 205                           269.25       68.24           25.35
## 206                           197.00       75.34           24.58
## 207                           259.88       78.07           24.24
## 208                           262.31       71.91           25.18
## 209                           261.35       68.97           26.28
## 210                           279.94       59.62           26.15
## 211                           284.04       62.57           25.68
## 212                           271.02       62.16           26.11
## 213                           287.79       62.86           25.63
## 214                           281.38       64.97           25.62
## 215                           284.67       60.58           26.28
## 216                           264.17       65.36           26.07
## 217                           296.10       59.03           25.78
## 218                           294.79       59.50           25.81
## 219                           296.08       58.14           26.70
## 220                           285.77       62.80           27.50
## 221                           298.73       61.43           26.96
## 222                           257.94       62.72           26.07
## 223                           287.79       63.17           25.38
## 224                           298.38       65.67           25.09
## 225                           245.06       71.29           23.99
## 226                           260.40       77.44           24.36
## 227                           228.73       74.69           24.81
## 228                           290.56       68.73           24.80
## 229                           299.48       66.07           23.07
## 230                           303.94       62.05           25.19
## 231                           304.29       62.56           25.80
## 232                           263.63       70.45           25.23
## 233                           276.54       73.23           25.01
## 234                           309.69       64.35           26.80
## 235                           307.19       62.26           26.86
## 236                           286.38       65.86           24.79
## 237                           305.44       67.55           25.44
## 238                           302.75       64.96           26.36
## 239                           293.90       65.72           26.40
## 240                           314.10       61.72           25.84
## 241                           309.27       59.65           26.05
## 242                           282.06       64.71           26.15
## 243                           240.83       64.62           26.63
## 244                           299.71       61.45           27.07
## 245                           302.25       59.90           26.88
## 246                           294.88       61.81           26.61
## 247                           289.23       62.63           26.81
## 248                           315.88       61.50           26.95
## 249                           301.35       66.09           26.49
## 250                           291.77       59.69           27.33
## 251                           280.06       56.03           27.66
## 252                           323.56       54.92           27.65
## 253                           298.60       62.50           26.85
## 254                           281.35       69.10           26.20
## 255                           310.46       67.39           26.74
## 256                           303.77       71.67           26.53
## 257                           293.96       74.20           26.21
## 258                           240.46       70.79           26.30
## 259                           279.75       67.17           26.55
## 260                           298.77       69.80           26.72
## 261                           293.17       72.52           26.91
## 262                           300.63       79.22           25.78
## 263                           247.21       77.71           25.80
## 264                           265.77       74.67           26.83
## 265                           219.42       76.02           26.98
## 266                           290.52       72.31           27.57
## 267                           297.54       61.67           28.77
## 268                           312.88       63.15           28.79
## 269                           311.56       67.19           28.44
## 270                           303.60       75.16           27.56
## 271                           278.48       75.53           27.25
## 272                           283.33       75.63           26.97
## 273                           214.75       70.65           27.35
## 274                           206.10       73.67           26.84
## 275                           214.63       77.80           26.38
## 276                           292.63       75.23           26.76
## 277                           263.60       70.28           27.31
## 278                           307.21       67.62           26.93
## 279                           237.31       71.90           26.13
## 280                           305.65       70.02           25.89
## 281                           246.33       69.05           26.91
## 282                           221.81       75.38           26.95
## 283                           242.54       74.31           27.18
## 284                           261.02       74.86           26.71
## 285                           241.15       73.80           26.81
## 286                           224.46       72.16           27.00
## 287                           249.52       62.75           28.16
## 288                           253.29       65.48           27.83
## 289                           218.15       81.13           26.11
## 290                           261.19       74.66           26.50
## 291                           268.48       66.78           27.15
## 292                           289.27       62.97           27.78
## 293                           289.81       65.80           27.40
## 294                           241.54       72.52           27.11
## 295                           170.21       84.63           25.72
## 296                           234.25       72.43           27.13
## 297                           206.35       74.64           26.56
## 298                           214.48       71.78           27.15

nzeb

##     Demanda total [kWh] Energía Solar [kWh]
## 1                -25.69               42.99
## 2                -66.55               45.00
## 3                 -4.83               31.41
## 4                 -4.73               23.18
## 5                -18.12               58.19
## 6                -17.22               49.50
## 7                -17.72               58.63
## 8                -23.04               57.75
## 9                -32.39               61.70
## 10               -35.44               49.87
## 11                -4.94               24.98
## 12               -26.11               52.57
## 13               -22.84               60.82
## 14               -32.99               61.71
## 15               -32.49               62.38
## 16               -60.47               60.82
## 17               -24.19               41.56
## 18                -7.60               32.17
## 19               -32.70               48.99
## 20               -29.27               29.24
## 21               -51.67               53.64
## 22               -24.31               51.17
## 23               -43.24               12.89
## 24                -9.77                0.00
## 25               -23.53                0.00
## 26               -42.58                0.33
## 27               -31.61               41.42
## 28               -27.53               54.82
## 29               -22.11               48.82
## 30               -29.71               63.93
## 31                -2.77                3.13
## 32               -18.17               27.17
## 33               -26.27               50.98
## 34                -9.72               13.66
## 35               -17.27               40.91
## 36               -18.16               54.14
## 37               -27.11               64.29
## 38               -21.79               52.13
## 39                -5.78               31.85
## 40               -27.73               57.68
## 41               -18.09               58.42
## 42                -5.86               57.08
## 43                -5.68               59.76
## 44                -3.21               40.10
## 45                -0.89               -0.44
## 46                -8.53               25.13
## 47               -16.52               38.46
## 48               -14.40               39.56
## 49               -20.09               48.96
## 50               -15.30               58.00
## 51                -5.82               23.12
## 52               -18.42               54.92
## 53                -6.13                5.15
## 54               -32.70               42.65
## 55               -24.35               16.69
## 56               -12.12               10.12
## 57               -16.98               37.29
## 58               -21.72               38.07
## 59               -20.91               37.12
## 60               -15.87               53.90
## 61               -22.96               62.70
## 62               -25.12               33.29
## 63                -5.87               26.60
## 64                -9.42               57.20
## 65               -32.68               57.19
## 66               -38.52               58.95
## 67               -18.57               63.99
## 68               -21.21               49.58
## 69               -19.78               43.45
## 70                -6.75               20.74
## 71               -27.28               58.76
## 72               -22.88               53.16
## 73                -2.25               -0.24
## 74                -1.80               74.70
## 75                -4.80              199.20
## 76                -6.13              178.20
## 77               -24.72               55.51
## 78               -16.23               52.03
## 79                -8.16                5.42
## 80               -15.43               44.02
## 81               -28.07               41.07
## 82               -22.55               61.05
## 83               -16.83               51.59
## 84               -20.80               46.21
## 85                -5.53               36.98
## 86               -10.91               18.12
## 87               -40.58               43.37
## 88               -21.04               59.80
## 89               -19.87               19.86
## 90               -22.31               37.82
## 91               -20.07               24.15
## 92                -8.16               24.08
## 93               -10.55               28.63
## 94               -21.23               62.83
## 95               -18.94               27.66
## 96               -30.31               26.32
## 97               -29.00               28.81
## 98               -22.97               27.25
## 99               -19.60               49.82
## 100              -17.40               33.58
## 101              -28.02               46.82
## 102              -25.80               25.37
## 103              -27.46               47.64
## 104              -25.07               52.25
## 105              -29.86               48.73
## 106              -15.09               40.86
## 107              -14.34               43.40
## 108              -21.55               26.80
## 109              -15.66                7.36
## 110              -13.17               35.68
## 111              -23.97               51.67
## 112              -44.68               37.20
## 113              -20.40               35.07
## 114               -4.80               16.40
## 115              -25.94               23.08
## 116              -22.87               33.48
## 117              -24.35               39.07
## 118              -22.71               42.13
## 119              -21.92               42.02
## 120              -14.86               36.72
## 121               -4.80               52.08
## 122              -23.75               37.96
## 123              -28.17               40.32
## 124              -32.07               41.33
## 125              -24.91               45.00
## 126              -24.19               40.33
## 127              -15.18               22.48
## 128              -15.53               39.77
## 129              -22.45               54.41
## 130              -40.93               60.35
## 131              -30.69               56.27
## 132              -31.77               57.78
## 133              -30.72               50.73
## 134              -26.42               28.53
## 135              -26.37               24.48
## 136              -26.46               51.31
## 137              -29.67               49.40
## 138              -26.62               48.81
## 139              -24.14               34.25
## 140              -26.49               39.07
## 141              -19.17               45.82
## 142              -16.68               23.53
## 143              -21.33               50.47
## 144              -22.48               36.94
## 145              -25.92               47.62
## 146              -24.55               43.78
## 147              -23.00               50.37
## 148              -18.31               43.33
## 149               -2.39               -0.67
## 150              -18.77               33.17
## 151              -22.77               50.41
## 152              -25.62               53.01
## 153              -23.74               43.04
## 154              -25.39               53.42
## 155              -13.24               36.78
## 156              -13.23               22.96
## 157              -21.48               50.47
## 158              -19.09               49.44
## 159              -27.23               46.61
## 160              -25.89               53.10
## 161              -24.21               51.70
## 162              -14.06               32.95
## 163              -13.97               46.97
## 164              -25.43               45.79
## 165              -20.37               49.76
## 166              -23.47               46.82
## 167              -20.95               57.91
## 168              -19.02               38.50
## 169               -4.80               37.23
## 170               -0.78               -0.39
## 171               -4.48                5.21
## 172               -8.35               40.90
## 173              -16.89               30.70
## 174              -10.87               44.44
## 175               -9.45               25.82
## 176              -17.09               53.32
## 177              -24.80               42.47
## 178              -32.37               43.37
## 179              -24.66               41.64
## 180              -21.58               42.46
## 181              -16.67               41.09
## 182              -15.60               35.94
## 183              -25.28               42.98
## 184              -22.74               38.48
## 185              -24.42               42.27
## 186              -23.02               42.23
## 187              -23.41               41.08
## 188              -14.10               31.51
## 189              -13.57               25.35
## 190              -19.59               42.41
## 191              -29.42               42.01
## 192              -18.84               38.40
## 193              -17.24               39.34
## 194              -22.09               39.01
## 195              -28.82               38.38
## 196               -8.59               17.05
## 197              -19.23               26.78
## 198              -20.04               37.92
## 199              -24.88               33.19
## 200              -30.75               33.07
## 201              -21.64               30.68
## 202              -14.23               23.22
## 203              -12.08               26.96
## 204              -25.04               42.86
## 205              -19.77               46.51
## 206              -23.81               43.78
## 207              -19.82               47.79
## 208              -20.90               45.63
## 209              -13.17               38.67
## 210              -13.33               14.77
## 211              -23.31               52.00
## 212              -23.52               46.13
## 213              -23.18               50.75
## 214              -20.94               43.90
## 215              -24.28               53.18
## 216              -13.57               45.82
## 217              -13.39               30.86
## 218              -33.09               53.17
## 219              -20.91               52.13
## 220              -19.57               51.42
## 221              -19.73               52.63
## 222              -20.07               46.57
## 223              -14.26               53.62
## 224              -13.84               46.83
## 225              -19.12               42.70
## 226              -19.02               46.67
## 227              -17.95               41.55
## 228              -17.62               47.93
## 229              -16.20               57.69
## 230              -10.89               19.53
## 231              -36.82               51.09
## 232              -35.55               38.87
## 233              -20.84               52.47
## 234              -19.32               52.89
## 235              -18.77               52.07
## 236              -11.55               38.41
## 237               -8.34               16.38
## 238              -20.60               55.09
## 239              -13.11               46.22
## 240              -19.77               56.36
## 241              -19.65               56.77
## 242              -17.43               50.08
## 243              -11.40               37.08
## 244              -10.72               32.99
## 245              -16.13               52.44
## 246              -12.55               47.99
## 247              -13.79               47.08
## 248              -15.52               47.47
## 249               -9.20               33.97
## 250               -4.80               26.62
## 251               -4.80               13.39
## 252               -4.80               19.74
## 253               -4.80               19.88
## 254               -4.80               12.18
## 255               -4.80               26.25
## 256               -4.81               33.56
## 257               -4.80               27.75
## 258               -3.93                9.54
## 259               -2.40               11.13
## 260               -2.40               30.37
## 261               -2.40               32.44
## 262               -2.40               25.14
## 263               -2.40               33.57
## 264               -2.40               12.39
## 265               -2.40               15.58
## 266               -2.40               32.49
## 267               -2.40               31.02
## 268               -2.40               31.60
## 269               -2.40               37.87
## 270               -2.40               13.76
## 271               -2.40               31.05
## 272               -2.40               20.31
## 273               -2.29               19.03
## 274               -2.40               28.08
## 275               -2.40               30.22
## 276               -2.40               11.68
## 277               -2.40               10.27
## 278               -2.40               13.01
## 279               -2.40                8.28
## 280               -2.40               14.56
## 281               -2.40               14.73
## 282               -2.40               18.57
## 283               -2.40               15.95
## 284               -2.40               10.49
## 285               -2.40                8.95
## 286               -2.40                8.50
## 287               -2.40               17.73
## 288               -2.40               14.63
## 289               -2.40               18.98
## 290               -2.40               10.53
## 291               -2.40               11.01
## 292               -2.40               12.78
## 293               -2.40               32.57
## 294               -2.40               26.84
## 295               -2.40               15.19
## 296               -2.40               21.03
## 297               -2.40                7.78
## 298               -2.38                7.25

#gráficas la correlación dentro de cada conjunto de variables

ggpairs(nzeb, title = "Desempeño del edificio")

ggpairs(clima2, title = "Variables climaticas")

#Para ambas variables

desemp <-cbind(nzeb,clima2)
ggduo(desemp,columnsX = 1:2,columnsY = 3:5,
      types = list(continuous = "smooth_lm"),
      title = "Correlación entre variables Desempeño y  climaticas",
      xlab = "Desempeño del edificio",
      ylab = "Clima"
)

#Correlacion canónica

mat_cor  <-matcor(clima2,nzeb)
mat_cor

## $Xcor
##                                  Radiacion Solar Horizontal [kWh] Humedad [%]
## Radiacion Solar Horizontal [kWh]                        1.0000000  -0.6127456
## Humedad [%]                                            -0.6127456   1.0000000
## Temperatura [C]                                         0.5529199  -0.6167721
##                                  Temperatura [C]
## Radiacion Solar Horizontal [kWh]       0.5529199
## Humedad [%]                           -0.6167721
## Temperatura [C]                        1.0000000
## 
## $Ycor
##                     Demanda total [kWh] Energía Solar [kWh]
## Demanda total [kWh]           1.0000000          -0.3770752
## Energía Solar [kWh]          -0.3770752           1.0000000
## 
## $XYcor
##                                  Radiacion Solar Horizontal [kWh] Humedad [%]
## Radiacion Solar Horizontal [kWh]                       1.00000000 -0.61274564
## Humedad [%]                                           -0.61274564  1.00000000
## Temperatura [C]                                        0.55291993 -0.61677209
## Demanda total [kWh]                                    0.08656888 -0.25580951
## Energía Solar [kWh]                                    0.22426395  0.06389632
##                                  Temperatura [C] Demanda total [kWh]
## Radiacion Solar Horizontal [kWh]       0.5529199          0.08656888
## Humedad [%]                           -0.6167721         -0.25580951
## Temperatura [C]                        1.0000000          0.39594130
## Demanda total [kWh]                    0.3959413          1.00000000
## Energía Solar [kWh]                   -0.1219749         -0.37707521
##                                  Energía Solar [kWh]
## Radiacion Solar Horizontal [kWh]          0.22426395
## Humedad [%]                               0.06389632
## Temperatura [C]                          -0.12197491
## Demanda total [kWh]                      -0.37707521
## Energía Solar [kWh]                       1.00000000

cca1<- cc(clima2,nzeb)
cca1

## $cor
## [1] 0.4619680 0.2993451
## 
## $names
## $names$Xnames
## [1] "Radiacion Solar Horizontal [kWh]" "Humedad [%]"                     
## [3] "Temperatura [C]"                 
## 
## $names$Ynames
## [1] "Demanda total [kWh]" "Energía Solar [kWh]"
## 
## $names$ind.names
##   [1] "1"   "2"   "3"   "4"   "5"   "6"   "7"   "8"   "9"   "10"  "11"  "12" 
##  [13] "13"  "14"  "15"  "16"  "17"  "18"  "19"  "20"  "21"  "22"  "23"  "24" 
##  [25] "25"  "26"  "27"  "28"  "29"  "30"  "31"  "32"  "33"  "34"  "35"  "36" 
##  [37] "37"  "38"  "39"  "40"  "41"  "42"  "43"  "44"  "45"  "46"  "47"  "48" 
##  [49] "49"  "50"  "51"  "52"  "53"  "54"  "55"  "56"  "57"  "58"  "59"  "60" 
##  [61] "61"  "62"  "63"  "64"  "65"  "66"  "67"  "68"  "69"  "70"  "71"  "72" 
##  [73] "73"  "74"  "75"  "76"  "77"  "78"  "79"  "80"  "81"  "82"  "83"  "84" 
##  [85] "85"  "86"  "87"  "88"  "89"  "90"  "91"  "92"  "93"  "94"  "95"  "96" 
##  [97] "97"  "98"  "99"  "100" "101" "102" "103" "104" "105" "106" "107" "108"
## [109] "109" "110" "111" "112" "113" "114" "115" "116" "117" "118" "119" "120"
## [121] "121" "122" "123" "124" "125" "126" "127" "128" "129" "130" "131" "132"
## [133] "133" "134" "135" "136" "137" "138" "139" "140" "141" "142" "143" "144"
## [145] "145" "146" "147" "148" "149" "150" "151" "152" "153" "154" "155" "156"
## [157] "157" "158" "159" "160" "161" "162" "163" "164" "165" "166" "167" "168"
## [169] "169" "170" "171" "172" "173" "174" "175" "176" "177" "178" "179" "180"
## [181] "181" "182" "183" "184" "185" "186" "187" "188" "189" "190" "191" "192"
## [193] "193" "194" "195" "196" "197" "198" "199" "200" "201" "202" "203" "204"
## [205] "205" "206" "207" "208" "209" "210" "211" "212" "213" "214" "215" "216"
## [217] "217" "218" "219" "220" "221" "222" "223" "224" "225" "226" "227" "228"
## [229] "229" "230" "231" "232" "233" "234" "235" "236" "237" "238" "239" "240"
## [241] "241" "242" "243" "244" "245" "246" "247" "248" "249" "250" "251" "252"
## [253] "253" "254" "255" "256" "257" "258" "259" "260" "261" "262" "263" "264"
## [265] "265" "266" "267" "268" "269" "270" "271" "272" "273" "274" "275" "276"
## [277] "277" "278" "279" "280" "281" "282" "283" "284" "285" "286" "287" "288"
## [289] "289" "290" "291" "292" "293" "294" "295" "296" "297" "298"
## 
## 
## $xcoef
##                                         [,1]        [,2]
## Radiacion Solar Horizontal [kWh]  0.01885766 -0.02088965
## Humedad [%]                       0.03726668 -0.02990414
## Temperatura [C]                  -0.73123599 -0.23910306
## 
## $ycoef
##                            [,1]        [,2]
## Demanda total [kWh] -0.06678279 -0.07424377
## Energía Solar [kWh]  0.02331324 -0.04806345
## 
## $scores
## $scores$xscores
##                [,1]         [,2]
##   [1,] -1.053121069 -0.066087986
##   [2,] -0.665888749 -0.279895309
##   [3,] -2.105968998  1.643866974
##   [4,]  0.417095545 -1.399557171
##   [5,]  0.520063385 -1.137542273
##   [6,]  0.444425591 -1.127812464
##   [7,]  0.530642095 -1.228328805
##   [8,]  0.502482437 -1.305568827
##   [9,]  0.892552066 -1.400240869
##  [10,]  0.298166689 -0.019094290
##  [11,]  0.696895132 -1.057109727
##  [12,] -0.001314535 -0.706320059
##  [13,]  0.230158361 -1.517453657
##  [14,] -0.053280404 -1.467961792
##  [15,]  0.696330915 -1.615179103
##  [16,]  0.261971931 -1.311776389
##  [17,]  0.001884322 -0.828541217
##  [18,]  0.187331895 -0.808061454
##  [19,]  0.104631621  0.287571976
##  [20,] -0.637539362  1.768915054
##  [21,]  1.433460618 -1.659873416
##  [22,]  1.138937709 -1.391576164
##  [23,]  0.923149048 -0.447728961
##  [24,]  0.633979437 -0.871303903
##  [25,] -0.311685770  0.222911164
##  [26,] -0.326452958  0.098832993
##  [27,] -0.273709276  0.074068457
##  [28,]  0.589761666 -1.518594274
##  [29,] -0.268964462 -0.441507882
##  [30,]  0.567475468 -1.621459233
##  [31,] -0.156882140 -0.642771254
##  [32,]  0.498902269 -1.900384870
##  [33,] -0.907320581  0.176378802
##  [34,]  0.530510113 -1.192495440
##  [35,] -0.388114809 -0.050083201
##  [36,]  0.692774904 -0.698982720
##  [37,]  0.736587357 -1.189192836
##  [38,]  0.610474546 -0.956116342
##  [39,]  0.291317240 -0.761437741
##  [40,]  0.216486735 -0.807123817
##  [41,]  0.425864578 -1.030395425
##  [42,]  0.161897692 -0.502580977
##  [43,]  0.281210122 -0.906865049
##  [44,]  1.025656989 -0.540323309
##  [45,]  0.025271928 -0.272268692
##  [46,]  1.099950368 -1.764356301
##  [47,]  0.235167665 -0.339493745
##  [48,] -0.547707490  1.710117136
##  [49,] -0.577079225  0.858517589
##  [50,] -0.290932815 -0.933774002
##  [51,]  0.023262256 -1.428907636
##  [52,] -0.204839424 -1.319782562
##  [53,] -0.542041039  0.981260324
##  [54,] -0.721588252  1.529510630
##  [55,] -0.845704575  2.730262843
##  [56,] -1.029540320  3.155316533
##  [57,]  1.081833043  0.530691556
##  [58,] -0.093654634  1.183089950
##  [59,] -0.149517638  0.468065430
##  [60,]  0.154896702 -0.256945030
##  [61,]  0.580517356 -0.898836074
##  [62,] -0.277856538  0.415061267
##  [63,]  1.022744317 -1.303716607
##  [64,]  0.972705530 -1.270382998
##  [65,]  0.340139522 -0.931614629
##  [66,]  0.047833799 -0.494431813
##  [67,]  0.945716459 -1.482686766
##  [68,]  0.866411862 -1.037385231
##  [69,]  0.669785443 -0.192236803
##  [70,]  0.545167803 -0.555542742
##  [71,]  1.017998141 -0.858847291
##  [72,]  0.904514564 -0.616137840
##  [73,]  0.552701190 -0.440859904
##  [74,]  0.520210609  0.432386549
##  [75,]  0.682705123 -0.572560464
##  [76,] -0.146052718 -0.425166425
##  [77,]  0.210899121 -0.475120409
##  [78,]  1.209944862 -1.155953188
##  [79,] -0.160212265  0.266307693
##  [80,]  0.416794891  0.354487490
##  [81,] -0.516075803  1.708806469
##  [82,]  1.333767759 -0.885255156
##  [83,]  0.826145882 -0.489427521
##  [84,]  1.110408476 -0.178030080
##  [85,]  0.233888922  1.888811731
##  [86,] -0.046355331  1.661217283
##  [87,]  0.099353948  1.194738847
##  [88,]  0.095172993  1.450251924
##  [89,] -0.957232272  2.728956370
##  [90,]  1.054017212  1.065038310
##  [91,]  0.006649547  2.282566622
##  [92,] -0.193792878  2.961607723
##  [93,]  0.036778499  1.083499079
##  [94,]  1.443931716 -1.201708936
##  [95,] -0.408310091  2.791239507
##  [96,] -0.152389909  2.445728561
##  [97,]  0.321075460  1.450524383
##  [98,]  0.456604313  1.268803970
##  [99,]  0.510120461  0.507308389
## [100,]  0.303536089  0.936535750
## [101,]  0.791352271  1.124082872
## [102,] -0.055937805  1.930859386
## [103,]  0.468269829  1.185945981
## [104,]  0.953087884 -0.280879172
## [105,]  1.041442553 -0.258955891
## [106,]  1.680529418 -0.740920204
## [107,]  1.883645038 -0.163170027
## [108,]  0.271341688  1.924155867
## [109,] -1.266726040  4.078123531
## [110,]  0.031038694  2.107261917
## [111,]  0.878340583  0.544915986
## [112,]  0.340293639  1.193941859
## [113,]  0.188522956  1.229296813
## [114,]  0.312332249  1.032568482
## [115,] -0.776868708  2.578204324
## [116,]  1.028072843  1.332552220
## [117,]  0.723174002  1.263375477
## [118,]  0.331938266  1.241933419
## [119,]  0.260037437  1.795214321
## [120,]  1.030440341  0.670890117
## [121,]  1.257638154 -0.051851498
## [122,]  0.353186748  1.673230392
## [123,]  1.236502791 -0.203170417
## [124,]  1.421908398  0.072269871
## [125,]  1.568687288 -0.110852580
## [126,]  1.056431566 -0.155239408
## [127,]  1.338253377 -0.181773428
## [128,]  1.507888633 -0.117644754
## [129,]  1.422929158 -0.328163947
## [130,]  1.344236926 -0.409332075
## [131,]  1.083296931  0.204046185
## [132,]  1.045573774 -0.353105161
## [133,]  0.239409422  0.464529752
## [134,]  1.480334114 -0.096404410
## [135,]  0.981240735  0.266121885
## [136,]  0.944158804 -0.053441135
## [137,]  1.043125736  0.026862734
## [138,]  1.165378005  0.088359675
## [139,]  0.090864511  1.382840224
## [140,] -0.295523644  1.650397877
## [141,]  1.086601343  0.830501237
## [142,]  1.799000492  0.230322465
## [143,]  2.106143714  0.358234072
## [144,]  1.540912939  0.910680543
## [145,]  1.785788484  0.410225789
## [146,]  1.186840989  0.248856439
## [147,]  1.111653839  0.100104664
## [148,]  0.919474305  0.233475800
## [149,]  0.549650414  0.950674511
## [150,]  1.068916711  0.173235045
## [151,]  0.672587789  0.223863370
## [152,]  0.032187840 -0.100048022
## [153,] -0.490502681  0.521040407
## [154,]  0.722262206  0.049265361
## [155,]  1.096200517  0.507523812
## [156,]  1.145317437  0.389302936
## [157,]  1.071449710  0.272156492
## [158,]  1.330452023  0.771071135
## [159,]  1.372372701  0.510824418
## [160,]  0.922590946  0.344363591
## [161,]  0.869270629  0.387750919
## [162,]  1.015285518  0.380685031
## [163,]  1.233733261  0.580358430
## [164,]  0.851295466  0.461234028
## [165,]  0.565448925  0.328893081
## [166,]  0.025039266  0.563249169
## [167,]  0.658159762  0.256776148
## [168,]  0.870481617  0.450495225
## [169,]  0.498000827  0.703988911
## [170,]  0.535955625  0.419870728
## [171,]  0.301895414  0.589354695
## [172,]  0.087647001  1.285981970
## [173,] -0.358406493  2.028290728
## [174,]  0.018297369  0.634920352
## [175,]  1.943880280  0.770139753
## [176,]  1.561055651  0.694590555
## [177,]  0.875330793  0.474187943
## [178,]  0.929860068  0.441274535
## [179,]  0.396493428  0.349427695
## [180,] -0.166212903  0.193725781
## [181,] -0.430336037  0.022458792
## [182,] -0.725428701  0.173773923
## [183,] -0.730448844  0.073444510
## [184,] -1.002505857  0.434783027
## [185,] -0.329276088  0.084768894
## [186,] -0.270693586  0.168071037
## [187,] -0.927743946  0.043051661
## [188,] -1.017195374 -0.016797599
## [189,] -0.888295518  0.357081673
## [190,]  0.551332643  0.399245826
## [191,]  1.169052064  0.843955214
## [192,]  1.301770911  0.833918189
## [193,]  1.103248391  1.067800826
## [194,]  0.788453874  0.455908455
## [195,]  0.286274010  0.482677577
## [196,]  0.955152971  0.398735714
## [197,] -0.304479264  1.467431789
## [198,]  0.891688464  0.590356783
## [199,]  0.597781338  0.733919884
## [200,]  0.149621446  0.359841648
## [201,] -0.388690812  0.426174944
## [202,] -1.284618236  0.582367862
## [203,]  0.098683210 -0.103127438
## [204,]  0.423329390 -0.059828405
## [205,] -0.232362771 -0.140063316
## [206,] -0.767183446  1.341003761
## [207,]  0.768944371  0.027119354
## [208,] -0.102156089 -0.064189840
## [209,] -1.034183061 -0.219230958
## [210,] -0.937001966 -0.296882389
## [211,] -0.406067951 -0.358368738
## [212,] -0.981305473 -0.176939123
## [213,] -0.287982597 -0.433421971
## [214,] -0.322915133 -0.360226034
## [215,] -0.907089909 -0.455481805
## [216,] -0.961977620 -0.119974166
## [217,] -0.383692236 -0.528347542
## [218,] -0.412817508 -0.522210141
## [219,] -1.089973840 -0.721289874
## [220,] -1.695722360 -0.836553350
## [221,] -1.107515028 -0.937198873
## [222,] -1.177844863  0.089115288
## [223,] -0.093620930 -0.382916491
## [224,]  0.411306804 -0.609558348
## [225,]  0.419614788  0.599229815
## [226,]  0.667524027  0.006403981
## [227,] -0.361237569  0.642619187
## [228,]  0.589934390 -0.468368086
## [229,]  1.924053590 -0.161510442
## [230,]  0.308126407 -0.641362101
## [231,] -0.112321358 -0.809777457
## [232,] -0.168235131 -0.060059280
## [233,]  0.339690521 -0.360275497
## [234,] -0.675018633 -1.215213038
## [235,] -0.843924297 -1.114835438
## [236,]  0.411466370 -0.292833429
## [237,]  0.358570633 -0.896945132
## [238,] -0.461414273 -0.983275056
## [239,] -0.629231312 -0.830692934
## [240,]  0.012118820 -0.999149556
## [241,] -0.309665252 -0.886562615
## [242,] -0.707336334 -0.493380539
## [243,] -1.839184856  0.255821598
## [244,] -1.168725147 -0.984570149
## [245,] -1.039655211 -0.945848853
## [246,] -0.910023079 -0.784451229
## [247,] -1.132257368 -0.738766721
## [248,] -0.774185162 -1.295158614
## [249,] -0.540764326 -1.018904628
## [250,] -1.574165665 -0.828241837
## [251,] -2.172692763 -0.553078888
## [252,] -1.386438285 -1.426193992
## [253,] -0.989655218 -0.940179317
## [254,] -0.593686350 -0.621783233
## [255,] -0.503333373 -1.307860483
## [256,] -0.316430163 -1.245886825
## [257,] -0.173143577 -1.040103873
## [258,] -1.374918905  0.157946208
## [259,] -0.951715889 -0.614330867
## [260,] -0.619341981 -1.130947411
## [261,] -0.762514337 -1.140734229
## [262,]  0.454147206 -1.226742320
## [263,] -0.624126301 -0.070444071
## [264,] -1.140591933 -0.613523510
## [265,] -2.074019772  0.278475672
## [266,] -1.302928885 -1.236904807
## [267,] -2.444548771 -1.352293721
## [268,] -2.114742329 -1.721781132
## [269,] -1.733144460 -1.731333467
## [270,] -0.942748320 -1.592977197
## [271,] -1.175980868 -1.005171798
## [272,] -0.876048481 -1.042528154
## [273,] -2.632764417  0.448147455
## [274,] -2.310407438  0.660474964
## [275,] -1.659271675  0.468769549
## [276,] -0.562019375 -1.174628590
## [277,] -1.696107046 -0.551683247
## [278,] -0.694984263 -1.292276657
## [279,] -1.268644397  0.231202523
## [280,]  0.125523245 -1.082791570
## [281,] -1.775122424 -0.058495687
## [282,] -2.030863564  0.254861154
## [283,] -1.848003933 -0.201177540
## [284,] -1.135336823 -0.491287097
## [285,] -1.622664770 -0.068421683
## [286,] -2.137451276  0.283839775
## [287,] -2.863791554 -0.235616382
## [288,] -2.449652274 -0.317104664
## [289,] -1.271360961  0.360215010
## [290,] -0.986024800 -0.438645866
## [291,] -1.617517293 -0.510703741
## [292,] -1.828131296 -0.981699683
## [293,] -1.434613785 -0.986749659
## [294,] -1.882382428 -0.110022259
## [295,] -1.759781685  1.350250475
## [296,] -2.037833477  0.040172594
## [297,] -2.064798268  0.693194388
## [298,] -2.449497441  0.467816589
## 
## $scores$yscores
##                [,1]         [,2]
##   [1,]  0.663314494  0.394057712
##   [2,]  3.438918964  3.331050661
##   [3,] -0.999741834 -0.598092634
##   [4,] -1.198288062 -0.209954844
##   [5,]  0.512129980 -0.898532026
##   [6,]  0.249433429 -0.547680066
##   [7,]  0.495674688 -0.949377451
##   [8,]  0.830443489 -0.512104756
##   [9,]  1.546949880 -0.007776114
##  [10,]  1.474841789  0.787257964
##  [11,] -1.142299847 -0.280877856
##  [12,]  0.914704087 -0.035207725
##  [13,]  0.888658572 -0.674508292
##  [14,]  1.587252688  0.036289514
##  [15,]  1.569481161 -0.033034880
##  [16,]  3.401695017  2.119284806
##  [17,]  0.529802376  0.351422785
##  [18,] -0.797035440 -0.428965608
##  [19,]  1.271341291  0.626125865
##  [20,]  0.581839865  1.320722806
##  [21,]  2.646617403  1.811035170
##  [22,]  0.761856529 -0.101557687
##  [23,]  1.133624021  3.143745641
##  [24,] -1.402103650  1.278344459
##  [25,] -0.483172438  2.299938746
##  [26,]  0.796733109  3.698421644
##  [27,]  1.022066836  0.909040447
##  [28,]  1.061990436 -0.037924326
##  [29,]  0.560148278 -0.151944883
##  [30,]  1.419960520 -0.313930906
##  [31,] -1.796612755  0.608199475
##  [32,] -0.207707524  0.596108284
##  [33,]  0.888321285  0.053092159
##  [34,] -1.086983958  0.618085587
##  [35,]  0.052511854 -0.131102869
##  [36,]  0.420382678 -0.700905315
##  [37,]  1.254718028 -0.524267551
##  [38,]  0.615944602 -0.334792899
##  [39,] -0.926040357 -0.548708968
##  [40,]  1.142022855 -0.160537030
##  [41,]  0.515488541 -0.911813931
##  [42,] -0.332504738 -1.755410230
##  [43,] -0.282046163 -1.897584147
##  [44,] -0.905337918 -1.136038896
##  [45,] -2.005392663  0.640207691
##  [46,] -0.899052640 -0.021552236
##  [47,] -0.054692673 -0.069030253
##  [48,] -0.170627629 -0.279296839
##  [49,]  0.428510892 -0.308646183
##  [50,]  0.319372993 -1.098767405
##  [51,] -1.126893613 -0.126145327
##  [52,]  0.455930529 -0.719091423
##  [53,] -1.525129835  0.760570382
##  [54,]  1.123535362  0.930848118
##  [55,] -0.039312607  1.558639711
##  [56,] -1.009234121  0.966415239
##  [57,] -0.051249077  0.021356115
##  [58,]  0.283485680  0.335782100
##  [59,]  0.207244043  0.321304920
##  [60,]  0.261854908 -0.859388323
##  [61,]  0.940501394 -0.755958320
##  [62,]  0.399109894  0.817954197
##  [63,] -1.042424405 -0.289693933
##  [64,] -0.091960412 -1.496870020
##  [65,]  1.461174187  0.230520725
##  [66,]  1.892216988  0.579512681
##  [67,]  0.677399017 -1.143890320
##  [68,]  0.517761826 -0.255292496
##  [69,]  0.279352285 -0.066832160
##  [70,] -1.120271124  0.057292384
##  [71,]  1.137148896 -0.245855249
##  [72,]  0.712750480 -0.303372539
##  [73,] -1.909905419  0.731566530
##  [74,] -0.192863618 -2.903717874
##  [75,]  2.909982890 -8.664885693
##  [76,]  2.509226004 -7.556809094
##  [77,]  0.890416926 -0.279713100
##  [78,]  0.242300958 -0.742781920
##  [79,] -1.383266194  0.898308106
##  [80,]  0.002135688 -0.417188727
##  [81,]  0.777496121  0.663039704
##  [82,]  0.874653607 -0.707093579
##  [83,]  0.272112808 -0.677087741
##  [84,]  0.411815270 -0.123758627
##  [85,] -0.823139144 -0.813835393
##  [86,] -0.903535394  0.492072701
##  [87,]  1.666569290  1.481283350
##  [88,]  0.744670044 -0.759122364
##  [89,] -0.264596548  1.073666491
##  [90,]  0.317059218  0.391601787
##  [91,] -0.151226199  0.882323058
##  [92,] -0.948241173  0.001444188
##  [93,] -0.682555068 -0.039801882
##  [94,]  0.827997886 -0.890648292
##  [95,] -0.144861288  0.629724899
##  [96,]  0.583219313  1.538281592
##  [97,]  0.553783819  1.321344270
##  [98,]  0.114714934  0.948633308
##  [99,]  0.415836709 -0.386360195
## [100,] -0.109692418  0.230853886
## [101,]  0.908208100  0.382962697
## [102,]  0.259881347  1.249102460
## [103,]  0.889926592  0.301974159
## [104,]  0.837789747 -0.097040944
## [105,]  1.075616721  0.427770052
## [106,] -0.094240293 -0.290551118
## [107,] -0.085111762 -0.468315101
## [108,]  0.009392413  0.864835705
## [109,] -0.837167576  1.361893301
## [110,] -0.343225826 -0.184130503
## [111,]  0.750806998 -0.150832293
## [112,]  1.796536057  2.082234278
## [113,]  0.125392682  0.381970663
## [114,] -1.351677020  0.121112390
## [115,]  0.215843623  1.369561881
## [116,]  0.253278128  0.641773657
## [117,]  0.482437660  0.482979771
## [118,]  0.444252390  0.214145839
## [119,]  0.388929529  0.160780239
## [120,] -0.206117141 -0.108644515
## [121,] -0.519860688 -1.593791393
## [122,]  0.416490291  0.491783934
## [123,]  0.766689471  0.706511667
## [124,]  1.050688729  0.947518292
## [125,]  0.658083525  0.239540042
## [126,]  0.501127093  0.410540824
## [127,] -0.516727157  0.599536975
## [128,] -0.090267294 -0.205494701
## [129,]  0.713175427 -0.395376669
## [130,]  2.085802049  0.691151343
## [131,]  1.306828252  0.126993992
## [132,]  1.414156657  0.134601460
## [133,]  1.179676398  0.395492801
## [134,]  0.374956510  1.143253106
## [135,]  0.277198756  1.334197877
## [136,]  0.908703384  0.051337538
## [137,]  1.078547860  0.381461226
## [138,]  0.861105535  0.183375158
## [139,]  0.356043467  0.699054392
## [140,]  0.625352834  0.641861440
## [141,]  0.293867157 -0.226031229
## [142,] -0.392074070  0.660436012
## [143,]  0.546524543 -0.289159711
## [144,]  0.307896643  0.446519061
## [145,]  0.786614828  0.188600020
## [146,]  0.605599570  0.271449690
## [147,]  0.655720481 -0.160366269
## [148,]  0.178383993 -0.170202889
## [149,] -1.910580521  0.762627940
## [150,] -0.027758421  0.352273865
## [151,]  0.641292969 -0.179364875
## [152,]  0.892238343 -0.092735089
## [153,]  0.534253712  0.246879186
## [154,]  0.886436729 -0.129517170
## [155,] -0.312906469 -0.231803231
## [156,] -0.635763246  0.431691167
## [157,]  0.556541962 -0.278023146
## [158,]  0.372918455 -0.405960408
## [159,]  0.850553914  0.334403441
## [160,]  0.912367889 -0.077014982
## [161,]  0.767534266 -0.134455691
## [162,] -0.347434281  0.013159663
## [163,] -0.026593136 -0.667371801
## [164,]  0.711228035  0.240176680
## [165,]  0.465860664 -0.326308684
## [166,]  0.604346398  0.045153539
## [167,]  0.694597573 -0.674964389
## [168,]  0.113196836  0.114656636
## [169,] -0.866062272 -0.880049208
## [170,] -2.011573108  0.629637703
## [171,] -1.633922647  0.635184353
## [172,] -0.543423779 -0.792876671
## [173,] -0.210893767  0.331412290
## [174,] -0.292602281 -0.775926970
## [175,] -0.821526337  0.013588255
## [176,]  0.329808235 -0.740934123
## [177,]  0.591754926  0.352973748
## [178,]  1.118282572  0.871741991
## [179,]  0.563055347  0.382472281
## [180,]  0.376481205  0.114389440
## [181,]  0.016638562 -0.184300552
## [182,] -0.174882201 -0.016214636
## [183,]  0.635700417  0.364098400
## [184,]  0.361162555  0.391804733
## [185,]  0.561714817  0.334373805
## [186,]  0.467286380  0.232355063
## [187,]  0.466521445  0.316583098
## [188,] -0.378334032  0.085340777
## [189,] -0.557338458  0.342062411
## [190,]  0.242417787 -0.030952491
## [191,]  0.889567333  0.718089155
## [192,]  0.098844609  0.106099102
## [193,]  0.013906587 -0.057870571
## [194,]  0.330109757  0.318072655
## [195,]  0.764870604  0.848013205
## [196,] -1.083416636  0.371255041
## [197,] -0.146009928  0.693551425
## [198,]  0.167793605  0.218262082
## [199,]  0.380750700  0.804942037
## [200,]  0.769968098  1.246520585
## [201,]  0.105858228  0.685031470
## [202,] -0.562919013  0.493438442
## [203,] -0.619310504  0.154057043
## [204,]  0.616874958  0.352047509
## [205,]  0.350022966 -0.214648745
## [206,]  0.556180304  0.216509300
## [207,]  0.383203050 -0.272457768
## [208,]  0.404971871 -0.088457450
## [209,] -0.273519244 -0.327840209
## [210,] -0.820020386  0.832755174
## [211,]  0.714423725 -0.215694119
## [212,]  0.591599404  0.082029506
## [213,]  0.676600414 -0.165266500
## [214,]  0.367311281 -0.002337936
## [215,]  0.806712653 -0.200392528
## [216,] -0.080116476 -0.641796346
## [217,] -0.440903419  0.063868940
## [218,]  1.394835914  0.454175727
## [219,]  0.557175746 -0.400127417
## [220,]  0.451134406 -0.465489023
## [221,]  0.490028671 -0.511766790
## [222,]  0.371456598 -0.195259420
## [223,]  0.147806907 -0.965463029
## [224,] -0.038538752 -0.670294609
## [225,]  0.217790714 -0.079785463
## [226,]  0.303665990 -0.278021724
## [227,]  0.112844625 -0.111377711
## [228,]  0.239544762 -0.442522946
## [229,]  0.372250401 -1.017048342
## [230,] -0.871999385  0.422818366
## [231,]  1.595444192  0.831076962
## [232,]  1.225742278  1.324122694
## [233,]  0.560427451 -0.421666053
## [234,]  0.468709168 -0.554703232
## [235,]  0.412861778 -0.556125280
## [236,] -0.387768808 -0.435618622
## [237,] -1.115732203  0.384896608
## [238,]  0.605480265 -0.565410789
## [239,] -0.101511265 -0.695173859
## [240,]  0.579658360 -0.688073696
## [241,]  0.581202853 -0.716688962
## [242,]  0.276979493 -0.559965674
## [243,] -0.428792834 -0.382830803
## [244,] -0.569556276 -0.236737070
## [245,]  0.245181106 -0.769912310
## [246,] -0.097645197 -0.821822672
## [247,] -0.036049582 -0.686022659
## [248,]  0.088576810 -0.576325680
## [249,] -0.648219145 -0.396689779
## [250,] -1.113415728 -0.370096037
## [251,] -1.421849867  0.265783365
## [252,] -1.273810805 -0.039419523
## [253,] -1.270546952 -0.046148405
## [254,] -1.450058885  0.323940136
## [255,] -1.122041626 -0.352312561
## [256,] -0.950954028 -0.702913920
## [257,] -1.087071769 -0.424407732
## [258,] -1.569706862  0.386235555
## [259,] -1.634816484  0.196221705
## [260,] -1.186269785 -0.728519013
## [261,] -1.138011382 -0.828010348
## [262,] -1.308198019 -0.477147186
## [263,] -1.111667423 -0.882322042
## [264,] -1.605441804  0.135661762
## [265,] -1.531072575 -0.017660634
## [266,] -1.136845720 -0.830413520
## [267,] -1.171116180 -0.759760253
## [268,] -1.157594502 -0.787637052
## [269,] -1.011420499 -1.088994864
## [270,] -1.573502668  0.069814839
## [271,] -1.170416783 -0.761202156
## [272,] -1.420800959 -0.245000737
## [273,] -1.457988011 -0.191646340
## [274,] -1.239657100 -0.618453719
## [275,] -1.189766770 -0.721309496
## [276,] -1.621994203  0.169786809
## [277,] -1.654865869  0.237556269
## [278,] -1.590987597  0.105862425
## [279,] -1.701259213  0.333202528
## [280,] -1.554852078  0.031364082
## [281,] -1.550888827  0.023193296
## [282,] -1.461365993 -0.161370340
## [283,] -1.522446677 -0.035444109
## [284,] -1.649736956  0.226982311
## [285,] -1.685639343  0.301000019
## [286,] -1.696130300  0.322628570
## [287,] -1.480949113 -0.120997044
## [288,] -1.553220151  0.027999641
## [289,] -1.451807566 -0.181076353
## [290,] -1.648804427  0.225059773
## [291,] -1.637614073  0.201989318
## [292,] -1.596349641  0.116917017
## [293,] -1.134980661 -0.834258596
## [294,] -1.268565515 -0.558855045
## [295,] -1.540164738  0.001084110
## [296,] -1.404015428 -0.279606419
## [297,] -1.712915832  0.357234252
## [298,] -1.726607504  0.381223003
## 
## $scores$corr.X.xscores
##                                         [,1]       [,2]
## Radiacion Solar Horizontal [kWh]  0.09343928 -0.9599402
## Humedad [%]                       0.46500801  0.4786256
## Temperatura [C]                  -0.74327592 -0.6659267
## 
## $scores$corr.Y.xscores
##                           [,1]       [,2]
## Demanda total [kWh] -0.4156522 -0.1306406
## Energía Solar [kWh]  0.3434623 -0.2001907
## 
## $scores$corr.X.yscores
##                                         [,1]       [,2]
## Radiacion Solar Horizontal [kWh]  0.04316596 -0.2873534
## Humedad [%]                       0.21481880  0.1432742
## Temperatura [C]                  -0.34336966 -0.1993419
## 
## $scores$corr.Y.yscores
##                           [,1]       [,2]
## Demanda total [kWh] -0.8997425 -0.4364213
## Energía Solar [kWh]  0.7434764 -0.6687622

#Gráficos de correspondencia canónica

img.matcor(mat_cor, type = 2)

plt.cc(cca1,var.label=T)

cca2<- cca(clima2,nzeb)
cca2

## Call: cca(X = clima2, Y = nzeb)
## 
##                Inertia Proportion Rank
## Total         0.017631   1.000000     
## Constrained   0.001075   0.060955    2
## Unconstrained 0.016557   0.939045    2
## Inertia is scaled Chi-square 
## 
## Eigenvalues for constrained axes:
##      CCA1      CCA2 
## 0.0009873 0.0000874 
## 
## Eigenvalues for unconstrained axes:
##      CA1      CA2 
## 0.016164 0.000393

plot(cca2)

estim.regul(clima2, nzeb, grid1 = NULL, grid2 = NULL, plt = TRUE)

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in xscore[i] <- t(X[i, ]) %*% res$xcoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

## Warning in yscore[i] <- t(Y[i, ]) %*% res$ycoef[, 1]: número de items para para
## sustituir no es un múltiplo de la longitud del reemplazo

##   lambda1 =  1 
##   lambda2 =  1 
##  CV-score =  -0.1217405