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
clima<-read.table("VIND-DATABASE 2-NREL.csv",sep=";")
nzeb<-read.table("VDEP-DATABASE 1-NREL.csv",sep=";")
colnames(nzeb)<-c("Demanda total [kWh]","Energía Solar [kWh]")
colnames(clima)<-c("Radiacion Solar Horizontal [kWh]","Velocidad del viento [km/h]","Humedad [%]","Temperatura [C]","Cooling degree days")
clima
## Radiacion Solar Horizontal [kWh] Velocidad del viento [km/h] Humedad [%]
## 1 227.35 1.59 87.04
## 2 237.77 1.31 88.43
## 3 147.38 1.11 89.64
## 4 297.08 1.88 85.32
## 5 301.77 2.23 76.88
## 6 290.54 2.06 83.28
## 7 288.81 1.97 87.45
## 8 306.15 3.23 77.92
## 9 314.13 3.98 78.07
## 10 246.02 3.38 84.42
## 11 287.54 1.55 85.49
## 12 270.85 1.82 82.46
## 13 307.75 2.29 79.81
## 14 307.10 1.97 76.85
## 15 327.17 2.46 73.27
## 16 312.06 1.93 72.40
## 17 284.46 1.53 76.64
## 18 272.27 1.91 85.43
## 19 219.73 1.46 92.53
## 20 153.38 1.39 94.22
## 21 313.96 1.71 88.55
## 22 305.54 1.41 85.30
## 23 264.92 1.14 87.31
## 24 281.25 1.43 84.63
## 25 223.00 1.74 88.73
## 26 230.83 1.66 86.53
## 27 240.69 2.21 81.19
## 28 306.60 1.36 83.37
## 29 259.29 1.41 81.52
## 30 320.40 1.96 76.77
## 31 267.15 2.21 82.12
## 32 322.46 1.78 81.54
## 33 230.90 1.21 80.13
## 34 294.08 1.68 83.21
## 35 236.60 1.76 85.88
## 36 270.38 1.71 87.98
## 37 302.08 2.03 79.59
## 38 290.65 2.60 80.42
## 39 285.54 2.94 76.60
## 40 289.56 2.02 74.52
## 41 293.42 2.57 78.97
## 42 265.79 1.78 82.14
## 43 280.65 1.77 83.12
## 44 268.15 2.26 88.23
## 45 244.83 1.14 89.08
## 46 314.04 1.40 88.39
## 47 245.90 2.10 91.62
## 48 156.81 1.49 94.11
## 49 194.06 1.24 90.17
## 50 276.13 1.66 82.22
## 51 299.69 1.65 81.28
## 52 293.88 1.25 80.65
## 53 187.94 1.61 91.46
## 54 169.38 2.70 88.97
## 55 115.83 3.05 93.90
## 56 94.88 2.36 95.84
## 57 226.35 2.07 90.09
## 58 196.54 1.52 84.62
## 59 216.63 1.52 88.26
## 60 242.75 1.75 91.06
## 61 276.27 1.22 88.07
## 62 213.60 1.69 90.47
## 63 292.13 1.72 90.93
## 64 291.88 1.60 89.91
## 65 278.17 1.66 85.76
## 66 260.19 1.91 84.66
## 67 321.04 2.31 76.00
## 68 293.48 1.77 82.52
## 69 247.25 1.75 90.63
## 70 263.17 2.02 88.06
## 71 275.77 1.94 90.84
## 72 265.21 1.56 90.98
## 73 257.98 1.63 88.73
## 74 218.42 1.80 93.16
## 75 264.17 1.74 88.89
## 76 255.10 1.47 84.78
## 77 257.06 2.04 87.48
## 78 290.58 2.04 89.87
## 79 223.04 1.83 88.85
## 80 229.15 2.28 87.31
## 81 162.67 1.74 90.62
## 82 279.38 2.27 91.60
## 83 265.60 2.51 87.11
## 84 250.79 2.39 91.44
## 85 155.98 1.94 96.47
## 86 167.15 1.51 92.52
## 87 184.83 1.79 93.37
## 88 175.46 2.17 93.29
## 89 108.65 3.67 97.68
## 90 196.23 3.43 96.54
## 91 135.04 3.31 98.81
## 92 111.02 1.74 96.56
## 93 192.79 2.17 90.41
## 94 293.17 1.93 91.11
## 95 116.00 2.51 95.74
## 96 133.17 1.41 94.90
## 97 176.92 1.78 94.10
## 98 185.29 2.05 94.09
## 99 215.42 1.80 93.23
## 100 198.35 2.37 92.40
## 101 192.46 1.37 95.52
## 102 153.21 2.20 95.00
## 103 186.58 1.41 95.32
## 104 251.85 1.52 91.98
## 105 255.81 1.29 89.60
## 106 286.31 1.48 86.41
## 107 256.63 1.40 93.34
## 108 160.40 3.20 93.08
## 109 52.29 5.31 99.45
## 110 146.31 2.18 95.92
## 111 216.38 2.45 94.58
## 112 184.38 2.60 95.55
## 113 179.31 2.26 96.79
## 114 191.92 1.76 94.32
## 115 124.04 1.28 92.77
## 116 184.94 2.94 97.24
## 117 187.81 3.10 94.67
## 118 187.25 1.69 92.50
## 119 161.42 1.95 95.40
## 120 214.90 1.67 93.72
## 121 245.65 1.99 92.89
## 122 168.19 1.19 94.67
## 123 256.23 1.90 89.52
## 124 244.23 0.99 92.13
## 125 252.71 1.60 92.17
## 126 252.92 1.69 89.11
## 127 256.98 3.13 89.32
## 128 258.06 3.35 88.42
## 129 269.17 2.66 85.62
## 130 269.85 2.48 86.50
## 131 244.15 3.47 86.42
## 132 262.98 2.82 87.26
## 133 221.85 3.56 88.01
## 134 261.08 5.38 85.76
## 135 240.42 4.05 86.55
## 136 255.19 2.18 84.36
## 137 250.40 1.57 86.30
## 138 248.50 2.51 87.01
## 139 184.90 1.40 88.79
## 140 169.33 1.34 89.44
## 141 218.08 3.78 88.32
## 142 257.46 4.05 82.80
## 143 258.42 3.13 81.53
## 144 229.77 2.26 82.43
## 145 252.44 2.87 81.65
## 146 249.19 2.29 82.92
## 147 248.21 1.48 86.50
## 148 238.92 1.37 87.81
## 149 206.06 1.68 89.02
## 150 252.94 2.51 81.39
## 151 246.31 1.71 81.37
## 152 248.38 1.79 82.76
## 153 211.92 2.94 87.38
## 154 249.63 3.66 83.77
## 155 244.15 2.90 79.31
## 156 252.10 1.98 77.39
## 157 249.75 3.29 81.11
## 158 234.58 4.19 81.02
## 159 245.25 2.79 80.67
## 160 246.48 3.18 80.34
## 161 247.81 2.93 78.04
## 162 245.90 3.89 80.57
## 163 241.02 3.90 80.66
## 164 243.29 2.86 79.06
## 165 243.00 1.97 80.17
## 166 224.54 2.53 82.27
## 167 241.17 3.61 83.78
## 168 245.35 2.83 78.14
## 169 228.85 1.78 79.83
## 170 241.35 2.01 78.84
## 171 243.10 2.56 71.87
## 172 205.04 2.02 78.12
## 173 161.23 2.33 85.18
## 174 228.81 2.89 77.77
## 175 253.96 7.56 73.35
## 176 250.15 6.17 74.62
## 177 250.60 4.91 74.24
## 178 253.02 6.39 73.89
## 179 252.94 4.58 71.98
## 180 255.13 3.30 69.90
## 181 254.27 2.95 72.47
## 182 247.60 3.03 70.87
## 183 254.25 3.71 68.94
## 184 236.58 3.96 69.60
## 185 260.92 3.96 67.50
## 186 255.50 4.96 69.46
## 187 252.60 3.48 69.19
## 188 255.38 3.20 68.13
## 189 241.33 3.59 69.28
## 190 252.83 6.92 72.07
## 191 245.85 7.16 70.79
## 192 256.35 4.72 65.31
## 193 234.79 2.57 72.07
## 194 248.67 1.93 75.24
## 195 252.33 2.52 68.35
## 196 252.58 2.76 75.38
## 197 193.75 2.26 78.02
## 198 236.75 1.88 80.51
## 199 234.13 2.05 76.50
## 200 243.94 2.33 75.60
## 201 231.42 2.38 77.89
## 202 225.88 1.98 70.78
## 203 269.77 5.27 69.60
## 204 274.38 3.86 68.13
## 205 269.25 2.22 68.24
## 206 197.00 2.19 75.34
## 207 259.88 2.29 78.07
## 208 262.31 2.11 71.91
## 209 261.35 2.08 68.97
## 210 279.94 2.86 59.62
## 211 284.04 3.24 62.57
## 212 271.02 2.50 62.16
## 213 287.79 2.72 62.86
## 214 281.38 2.56 64.97
## 215 284.67 3.16 60.58
## 216 264.17 4.47 65.36
## 217 296.10 3.96 59.03
## 218 294.79 3.49 59.50
## 219 296.08 2.90 58.14
## 220 285.77 2.90 62.80
## 221 298.73 3.15 61.43
## 222 257.94 4.76 62.72
## 223 287.79 5.30 63.17
## 224 298.38 3.39 65.67
## 225 245.06 3.47 71.29
## 226 260.40 3.01 77.44
## 227 228.73 2.53 74.69
## 228 290.56 5.76 68.73
## 229 299.48 8.25 66.07
## 230 303.94 4.22 62.05
## 231 304.29 3.12 62.56
## 232 263.63 2.36 70.45
## 233 276.54 2.44 73.23
## 234 309.69 2.26 64.35
## 235 307.19 4.84 62.26
## 236 286.38 6.69 65.86
## 237 305.44 4.95 67.55
## 238 302.75 4.74 64.96
## 239 293.90 4.40 65.72
## 240 314.10 4.54 61.72
## 241 309.27 3.62 59.65
## 242 282.06 2.66 64.71
## 243 240.83 2.88 64.62
## 244 299.71 3.22 61.45
## 245 302.25 2.98 59.90
## 246 294.88 3.41 61.81
## 247 289.23 3.30 62.63
## 248 315.88 3.06 61.50
## 249 301.35 2.51 66.09
## 250 291.77 2.65 59.69
## 251 280.06 3.43 56.03
## 252 323.56 3.08 54.92
## 253 298.60 2.95 62.50
## 254 281.35 2.73 69.10
## 255 310.46 2.93 67.39
## 256 303.77 3.01 71.67
## 257 293.96 2.91 74.20
## 258 240.46 2.74 70.79
## 259 279.75 2.72 67.17
## 260 298.77 3.40 69.80
## 261 293.17 3.12 72.52
## 262 300.63 2.30 79.22
## 263 247.21 2.48 77.71
## 264 265.77 2.80 74.67
## 265 219.42 2.55 76.02
## 266 290.52 2.43 72.31
## 267 297.54 2.49 61.67
## 268 312.88 2.73 63.15
## 269 311.56 3.01 67.19
## 270 303.60 3.30 75.16
## 271 278.48 2.71 75.53
## 272 283.33 3.06 75.63
## 273 214.75 2.53 70.65
## 274 206.10 2.87 73.67
## 275 214.63 3.15 77.80
## 276 292.63 2.71 75.23
## 277 263.60 2.59 70.28
## 278 307.21 2.81 67.62
## 279 237.31 2.90 71.90
## 280 305.65 2.78 70.02
## 281 246.33 3.45 69.05
## 282 221.81 2.98 75.38
## 283 242.54 3.34 74.31
## 284 261.02 2.79 74.86
## 285 241.15 2.20 73.80
## 286 224.46 2.17 72.16
## 287 249.52 2.31 62.75
## 288 253.29 2.95 65.48
## 289 218.15 2.76 81.13
## 290 261.19 1.41 74.66
## 291 268.48 2.61 66.78
## 292 289.27 3.18 62.97
## 293 289.81 2.75 65.80
## 294 241.54 2.81 72.52
## 295 170.21 1.77 84.63
## 296 234.25 2.96 72.43
## 297 206.35 3.42 74.64
## 298 214.48 3.09 71.78
## Temperatura [C] Cooling degree days
## 1 26.35 8.62
## 2 26.16 8.02
## 3 25.86 7.52
## 4 26.05 8.02
## 5 25.60 7.42
## 6 25.74 7.62
## 7 25.79 7.57
## 8 25.79 7.82
## 9 25.47 7.27
## 10 24.85 6.97
## 11 25.43 7.32
## 12 25.80 7.77
## 13 26.30 8.17
## 14 26.52 8.52
## 15 25.83 7.57
## 16 25.99 7.72
## 17 25.85 7.67
## 18 25.73 7.77
## 19 24.85 7.07
## 20 24.24 6.07
## 21 25.26 7.47
## 22 25.28 7.27
## 23 24.63 6.32
## 24 25.31 7.42
## 25 25.31 7.27
## 26 25.42 7.17
## 27 25.33 7.22
## 28 25.96 7.72
## 29 25.82 7.87
## 30 26.01 7.77
## 31 25.90 7.77
## 32 26.40 8.27
## 33 25.89 7.87
## 34 25.71 7.67
## 35 25.62 7.57
## 36 25.12 7.12
## 37 25.45 7.27
## 38 25.37 7.67
## 39 25.48 7.27
## 40 25.58 7.37
## 41 25.62 7.37
## 42 25.43 7.22
## 43 25.70 7.62
## 44 24.62 6.52
## 45 25.43 7.32
## 46 25.71 7.77
## 47 25.30 7.42
## 48 24.20 6.27
## 49 25.00 6.72
## 50 26.32 8.22
## 51 26.45 8.37
## 52 26.58 8.52
## 53 24.86 7.02
## 54 24.50 6.67
## 55 23.54 5.52
## 56 23.35 5.27
## 57 23.56 5.47
## 58 24.12 5.77
## 59 24.90 6.67
## 60 25.30 7.12
## 61 25.43 7.57
## 62 25.11 6.72
## 63 25.38 7.37
## 64 25.39 7.62
## 65 25.69 7.57
## 66 25.57 7.62
## 67 25.47 7.42
## 68 25.20 6.77
## 69 24.69 6.62
## 70 25.14 7.42
## 71 24.96 6.97
## 72 24.85 6.87
## 73 25.03 6.97
## 74 24.28 6.37
## 75 25.02 7.22
## 76 25.71 7.47
## 77 25.41 7.22
## 78 25.03 6.92
## 79 25.11 7.37
## 80 24.40 6.42
## 81 24.13 6.22
## 82 24.66 6.47
## 83 24.77 6.72
## 84 24.22 6.02
## 85 23.23 5.27
## 86 23.70 5.82
## 87 24.00 6.02
## 88 23.76 5.77
## 89 23.70 5.47
## 90 23.15 5.02
## 91 23.12 5.12
## 92 22.66 4.57
## 93 24.14 6.07
## 94 24.84 6.82
## 95 23.04 4.97
## 96 23.09 4.92
## 97 23.53 5.77
## 98 23.56 5.47
## 99 24.22 6.57
## 100 24.02 6.32
## 101 23.36 5.67
## 102 23.48 5.62
## 103 23.64 5.72
## 104 24.49 6.82
## 105 24.35 6.52
## 106 24.10 5.82
## 107 23.41 5.52
## 108 23.12 5.12
## 109 22.76 4.72
## 110 23.23 5.22
## 111 23.81 5.87
## 112 23.77 5.77
## 113 23.91 6.02
## 114 23.94 6.12
## 115 23.60 5.67
## 116 22.93 4.92
## 117 23.29 5.52
## 118 23.70 6.02
## 119 23.28 5.42
## 120 23.52 5.57
## 121 23.96 5.97
## 122 23.29 5.37
## 123 24.09 6.12
## 124 23.66 5.77
## 125 23.68 5.62
## 126 24.23 6.32
## 127 23.96 6.07
## 128 23.71 5.97
## 129 23.97 5.82
## 130 24.14 6.07
## 131 23.83 5.77
## 132 24.41 6.32
## 133 24.49 6.77
## 134 23.69 5.97
## 135 23.88 6.02
## 136 24.20 6.07
## 137 24.04 6.07
## 138 23.86 5.87
## 139 23.78 5.67
## 140 23.94 6.02
## 141 23.25 5.47
## 142 23.01 5.32
## 143 22.55 4.72
## 144 22.63 4.62
## 145 22.84 4.72
## 146 23.64 5.42
## 147 23.90 5.97
## 148 23.99 5.97
## 149 23.71 5.97
## 150 23.82 5.87
## 151 24.19 6.22
## 152 25.19 7.12
## 153 25.20 7.52
## 154 24.33 6.62
## 155 23.45 5.72
## 156 23.49 5.37
## 157 23.72 5.97
## 158 22.97 5.27
## 159 23.17 5.07
## 160 23.80 5.97
## 161 23.79 5.72
## 162 23.67 5.92
## 163 23.25 5.47
## 164 23.75 5.47
## 165 24.19 6.07
## 166 24.56 6.62
## 167 24.20 6.52
## 168 23.73 5.62
## 169 23.90 5.87
## 170 24.12 6.07
## 171 24.13 6.22
## 172 23.76 6.17
## 173 23.60 5.97
## 174 24.45 6.67
## 175 22.24 4.62
## 176 22.73 5.07
## 177 23.66 5.92
## 178 23.63 6.27
## 179 24.26 6.42
## 180 24.98 7.17
## 181 25.45 7.57
## 182 25.60 7.72
## 183 25.68 7.67
## 184 25.63 7.82
## 185 25.23 7.52
## 186 25.11 7.32
## 187 25.92 7.92
## 188 26.06 8.52
## 189 25.58 7.87
## 190 24.05 6.47
## 191 22.96 4.97
## 192 22.77 5.07
## 193 22.83 4.87
## 194 23.78 6.02
## 195 24.21 6.32
## 196 23.66 6.07
## 197 24.00 6.47
## 198 23.60 6.07
## 199 23.73 6.17
## 200 24.55 6.82
## 201 25.08 7.77
## 202 25.80 7.82
## 203 24.98 7.27
## 204 24.58 6.62
## 205 25.35 7.67
## 206 24.58 7.07
## 207 24.24 6.82
## 208 25.18 7.22
## 209 26.28 8.52
## 210 26.15 8.57
## 211 25.68 7.67
## 212 26.11 8.02
## 213 25.63 8.27
## 214 25.62 8.27
## 215 26.28 8.42
## 216 26.07 8.17
## 217 25.78 8.02
## 218 25.81 7.97
## 219 26.70 8.97
## 220 27.50 9.82
## 221 26.96 9.42
## 222 26.07 8.42
## 223 25.38 7.67
## 224 25.09 7.27
## 225 23.99 5.97
## 226 24.36 6.92
## 227 24.81 7.32
## 228 24.80 6.82
## 229 23.07 5.77
## 230 25.19 7.32
## 231 25.80 8.17
## 232 25.23 8.07
## 233 25.01 7.57
## 234 26.80 8.57
## 235 26.86 9.32
## 236 24.79 7.17
## 237 25.44 7.72
## 238 26.36 8.52
## 239 26.40 8.82
## 240 25.84 8.02
## 241 26.05 8.07
## 242 26.15 8.12
## 243 26.63 8.97
## 244 27.07 9.12
## 245 26.88 9.12
## 246 26.61 8.77
## 247 26.81 8.87
## 248 26.95 9.02
## 249 26.49 8.57
## 250 27.33 9.37
## 251 27.66 9.77
## 252 27.65 10.12
## 253 26.85 9.32
## 254 26.20 8.57
## 255 26.74 8.87
## 256 26.53 8.72
## 257 26.21 8.67
## 258 26.30 8.67
## 259 26.55 8.87
## 260 26.72 9.17
## 261 26.91 9.52
## 262 25.78 8.22
## 263 25.80 8.32
## 264 26.83 9.17
## 265 26.98 9.37
## 266 27.57 10.22
## 267 28.77 10.97
## 268 28.79 11.12
## 269 28.44 10.77
## 270 27.56 10.02
## 271 27.25 9.82
## 272 26.97 9.22
## 273 27.35 9.87
## 274 26.84 9.17
## 275 26.38 8.92
## 276 26.76 9.17
## 277 27.31 9.97
## 278 26.93 9.77
## 279 26.13 8.47
## 280 25.89 7.82
## 281 26.91 9.47
## 282 26.95 9.47
## 283 27.18 9.57
## 284 26.71 9.12
## 285 26.81 9.12
## 286 27.00 8.77
## 287 28.16 10.42
## 288 27.83 10.27
## 289 26.11 8.47
## 290 26.50 8.57
## 291 27.15 9.32
## 292 27.78 10.02
## 293 27.40 9.62
## 294 27.11 9.47
## 295 25.72 7.72
## 296 27.13 9.32
## 297 26.56 8.72
## 298 27.15 9.52
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(clima, title = "Variables climaticas")
#Para ambas variables
desemp <-cbind(nzeb,clima)
ggduo(desemp,columnsX = 1:2,columnsY = 3:7,
types = list(continuous = "smooth_lm"),
title = "Correlación entre variables Desempeño del edificio y climaticas",
xlab = "Desempeño del edificio",
ylab = "Clima"
)
#Correlacion canónica
mat_cor <-matcor(clima,nzeb)
mat_cor
## $Xcor
## Radiacion Solar Horizontal [kWh]
## Radiacion Solar Horizontal [kWh] 1.0000000
## Velocidad del viento [km/h] 0.1644492
## Humedad [%] -0.6127456
## Temperatura [C] 0.5529199
## Cooling degree days 0.5417222
## Velocidad del viento [km/h] Humedad [%]
## Radiacion Solar Horizontal [kWh] 0.16444917 -0.6127456
## Velocidad del viento [km/h] 1.00000000 -0.4784269
## Humedad [%] -0.47842689 1.0000000
## Temperatura [C] -0.04808765 -0.6167721
## Cooling degree days 0.01779039 -0.6539814
## Temperatura [C] Cooling degree days
## Radiacion Solar Horizontal [kWh] 0.55291993 0.54172219
## Velocidad del viento [km/h] -0.04808765 0.01779039
## Humedad [%] -0.61677209 -0.65398141
## Temperatura [C] 1.00000000 0.98622007
## Cooling degree days 0.98622007 1.00000000
##
## $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]
## Radiacion Solar Horizontal [kWh] 1.00000000
## Velocidad del viento [km/h] 0.16444917
## Humedad [%] -0.61274564
## Temperatura [C] 0.55291993
## Cooling degree days 0.54172219
## Demanda total [kWh] 0.08656888
## Energía Solar [kWh] 0.22426395
## Velocidad del viento [km/h] Humedad [%]
## Radiacion Solar Horizontal [kWh] 0.16444917 -0.61274564
## Velocidad del viento [km/h] 1.00000000 -0.47842689
## Humedad [%] -0.47842689 1.00000000
## Temperatura [C] -0.04808765 -0.61677209
## Cooling degree days 0.01779039 -0.65398141
## Demanda total [kWh] 0.06434293 -0.25580951
## Energía Solar [kWh] -0.02765771 0.06389632
## Temperatura [C] Cooling degree days
## Radiacion Solar Horizontal [kWh] 0.55291993 0.54172219
## Velocidad del viento [km/h] -0.04808765 0.01779039
## Humedad [%] -0.61677209 -0.65398141
## Temperatura [C] 1.00000000 0.98622007
## Cooling degree days 0.98622007 1.00000000
## Demanda total [kWh] 0.39594130 0.42620459
## Energía Solar [kWh] -0.12197491 -0.14884930
## Demanda total [kWh] Energía Solar [kWh]
## Radiacion Solar Horizontal [kWh] 0.08656888 0.22426395
## Velocidad del viento [km/h] 0.06434293 -0.02765771
## Humedad [%] -0.25580951 0.06389632
## Temperatura [C] 0.39594130 -0.12197491
## Cooling degree days 0.42620459 -0.14884930
## Demanda total [kWh] 1.00000000 -0.37707521
## Energía Solar [kWh] -0.37707521 1.00000000
cca1<- cc(clima,nzeb)
cca1
## $cor
## [1] 0.5027552 0.3025758
##
## $names
## $names$Xnames
## [1] "Radiacion Solar Horizontal [kWh]" "Velocidad del viento [km/h]"
## [3] "Humedad [%]" "Temperatura [C]"
## [5] "Cooling degree days"
##
## $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.014329197 0.02286336
## Velocidad del viento [km/h] -0.088565892 0.09588748
## Humedad [%] 0.004100525 0.04610124
## Temperatura [C] 1.011359726 -0.16858235
## Cooling degree days -1.727278803 0.38485587
##
## $ycoef
## [,1] [,2]
## Demanda total [kWh] -0.07085658 0.07036635
## Energía Solar [kWh] 0.02057043 0.04929969
##
## $scores
## $scores$xscores
## [,1] [,2]
## [1,] -1.339549943 0.070196748
## [2,] -0.315532600 0.146782263
## [3,] -1.027842392 -2.025084662
## [4,] 0.359847295 1.432632942
## [5,] 0.942700142 1.029276773
## [6,] 0.619217424 1.104637996
## [7,] 0.756429958 1.221024774
## [8,] 0.422407504 1.395162742
## [9,] 1.097313382 1.498718737
## [10,] 0.091670273 0.165770276
## [11,] 0.835122724 1.025832821
## [12,] 0.156558688 0.641255956
## [13,] 0.447582028 1.477463776
## [14,] 0.072423142 1.393070371
## [15,] 1.245009605 1.484589088
## [16,] 0.974593646 1.078950549
## [17,] 0.576693977 0.609394937
## [18,] 0.110318594 0.831073239
## [19,] -0.254470420 -0.207044664
## [20,] -0.081733751 -1.934849964
## [21,] 0.781054189 1.872681841
## [22,] 1.039328371 1.421234295
## [23,] 1.472962287 0.303264118
## [24,] 0.458002485 0.889584221
## [25,] -0.128224677 -0.281194414
## [26,] 0.266014501 -0.268297711
## [27,] 0.159306022 -0.201892325
## [28,] 0.961480754 1.410248829
## [29,] -0.129129989 0.329420475
## [30,] 1.043224716 1.489841120
## [31,] 0.168741757 0.561525002
## [32,] 0.639035116 1.866263615
## [33,] -0.453127253 -0.414729169
## [34,] 0.586606050 1.170210209
## [35,] -0.151467541 -0.036527329
## [36,] 0.617207718 0.738921079
## [37,] 1.083355655 1.109680247
## [38,] 0.100673514 1.108700924
## [39,] 0.783836003 0.675877780
## [40,] 0.842798995 0.605308761
## [41,] 0.908100178 0.944706648
## [42,] 0.662083664 0.357684222
## [43,] 0.462075304 0.850079137
## [44,] 1.068254918 0.605576873
## [45,] 0.274155633 0.175528492
## [46,] 0.745928103 1.877004295
## [47,] -0.089324695 0.469542704
## [48,] -0.427802403 -1.768196575
## [49,] 0.143757899 -1.083828076
## [50,] -0.005965140 0.821090498
## [51,] 0.201046843 1.351269787
## [52,] 0.023022181 1.186847594
## [53,] -0.631190490 -0.989744554
## [54,] -0.763429430 -1.498373071
## [55,] -0.526075102 -2.742611222
## [56,] -0.517544937 -3.262507798
## [57,] 1.235350425 -0.507983074
## [58,] 0.882656249 -1.473400947
## [59,] 0.419765384 -0.631391575
## [60,] 0.412423744 0.222689061
## [61,] 0.281619075 0.951675101
## [62,] 0.496375478 -0.598642432
## [63,] 0.771212463 1.425539146
## [64,] 0.352369432 1.455821690
## [65,] 0.523356873 0.886980694
## [66,] 0.031338759 0.488630747
## [67,] 1.076653265 1.458871246
## [68,] 1.605965702 0.872918929
## [69,] 0.721851872 0.216157926
## [70,] -0.011189621 0.719574619
## [71,] 0.783073697 0.985303025
## [72,] 0.727464803 0.693941394
## [73,] 0.617755789 0.439764433
## [74,] 0.331849378 -0.348657306
## [75,] 0.255434054 0.697112216
## [76,] 0.398546385 0.254268015
## [77,] 0.515632252 0.432570139
## [78,] 1.139614123 1.257736306
## [79,] -0.510130202 -0.193915800
## [80,] 0.454101188 -0.327986849
## [81,] -0.364716855 -1.778580796
## [82,] 1.368923235 0.992666318
## [83,] 0.811229605 0.571297620
## [84,] 1.280244693 0.244124378
## [85,] 0.276386819 -1.856555860
## [86,] -0.016334063 -1.692066667
## [87,] 0.173645288 -1.195411526
## [88,] 0.194491000 -1.432646226
## [89,] -0.420188108 -2.719273162
## [90,] 1.072371765 -0.872933750
## [91,] 0.012435646 -2.135256096
## [92,] 0.282848480 -3.072827875
## [93,] 0.297139523 -1.117800378
## [94,] 1.172123174 1.357115370
## [95,] -0.023945113 -2.833056965
## [96,] 0.452997161 -2.612366334
## [97,] 0.020661013 -1.360545901
## [98,] 0.665167026 -1.264265240
## [99,] -0.116988520 -0.326934170
## [100,] -0.185926146 -0.763317309
## [101,] 0.286268217 -0.988926052
## [102,] -0.144067609 -1.870171464
## [103,] 0.394466583 -1.156707595
## [104,] 0.265944335 0.472199558
## [105,] 0.709892139 0.339108143
## [106,] 2.073279675 0.680342629
## [107,] 1.503836455 0.314433890
## [108,] 0.362070316 -1.830149126
## [109,] -1.020990808 -3.899171705
## [110,] 0.200676324 -2.099229987
## [111,] 0.639173062 -0.380702159
## [112,] 0.303604884 -1.084970502
## [113,] -0.024076428 -1.103711482
## [114,] 0.048382304 -0.943790255
## [115,] -0.454714598 -2.729104876
## [116,] 0.907091530 -1.147172501
## [117,] 0.251229653 -1.014468983
## [118,] -0.089796841 -1.139204327
## [119,] 0.140540594 -1.731249394
## [120,] 0.908410115 -0.595547106
## [121,] 1.071375151 0.179687153
## [122,] 0.398343488 -1.703921485
## [123,] 1.089515158 0.293403079
## [124,] 1.178525028 -0.010099703
## [125,] 1.525494457 0.183016936
## [126,] 0.855137740 0.232057139
## [127,] 0.945393079 0.421944861
## [128,] 0.857581592 0.429901416
## [129,] 1.588453313 0.387107671
## [130,] 1.357858941 0.493519065
## [131,] 1.106252437 -0.066024895
## [132,] 1.073668781 0.454783232
## [133,] -0.274521128 -0.220355357
## [134,] 0.689932415 0.574342686
## [135,] 0.620717670 -0.001912460
## [136,] 1.226269147 0.020804437
## [137,] 1.057794950 -0.030792818
## [138,] 1.113639920 0.002006567
## [139,] 0.572457068 -1.539962322
## [140,] -0.085399255 -1.764005831
## [141,] 0.644620850 -0.562434095
## [142,] 1.178722414 0.092067004
## [143,] 1.839893205 -0.186114872
## [144,] 1.763741177 -0.935053174
## [145,] 2.071018125 -0.391125216
## [146,] 1.681016738 -0.327964057
## [147,] 1.066342563 -0.095157250
## [148,] 1.039360637 -0.272885233
## [149,] 0.262828719 -0.891464416
## [150,] 1.113762216 -0.148825805
## [151,] 0.859185863 -0.305717776
## [152,] 0.344270562 -0.008850976
## [153,] -0.941876225 -0.366934061
## [154,] 0.194575406 0.198152946
## [155,] 0.829627510 -0.403642070
## [156,] 1.662154207 -0.540052105
## [157,] 0.723958683 -0.104532199
## [158,] 0.877081786 -0.512182026
## [159,] 1.700259086 -0.529295575
## [160,] 0.764595832 -0.238827536
## [161,] 1.218070033 -0.432952138
## [162,] 0.649233411 -0.170731974
## [163,] 0.931294696 -0.379577717
## [164,] 1.555049524 -0.585454038
## [165,] 1.042900281 -0.469514605
## [166,] 0.161597269 -0.591767295
## [167,] 0.119070818 -0.016174285
## [168,] 1.304133148 -0.522545263
## [169,] 0.907736929 -0.855006420
## [170,] 0.939465592 -0.552917526
## [171,] 0.638271566 -0.725451620
## [172,] -0.121482958 -1.316144745
## [173,] -0.564112583 -2.012586477
## [174,] -0.025166653 -0.629289999
## [175,] 1.209302159 -0.226637093
## [176,] 1.001312981 -0.297901711
## [177,] 0.590173507 -0.255603993
## [178,] -0.142550914 0.065260390
## [179,] 0.386839820 -0.246656886
## [180,] -0.044224087 -0.247950080
## [181,] -0.230583236 -0.107984355
## [182,] -0.447192950 -0.294132892
## [183,] -0.252769893 -0.198592865
## [184,] -0.835061732 -0.482032169
## [185,] -0.381260436 -0.070374521
## [186,] -0.315360952 -0.064789290
## [187,] -0.444111148 -0.191092008
## [188,] -1.278601007 0.004064305
## [189,] -0.872472762 -0.395990084
## [190,] -0.120361014 0.033999049
## [191,] 1.241652810 -0.555112808
## [192,] 1.220853049 -0.731131586
## [193,] 1.536189127 -1.205665351
## [194,] 0.779180328 -0.521118018
## [195,] 0.667819738 -0.655535711
## [196,] 0.554544762 -0.306208840
## [197,] -0.580382762 -1.480872160
## [198,] 0.366005672 -0.505902441
## [199,] 0.255712755 -0.717799649
## [200,] 0.074377006 -0.396233964
## [201,] -1.204956837 -0.295852530
## [202,] -0.636253897 -0.890786821
## [203,] -0.182877493 0.300322996
## [204,] 0.720217572 0.020029519
## [205,] -0.242487840 0.024846429
## [206,] -0.988381307 -1.403693940
## [207,] 0.002933818 0.130503012
## [208,] 0.288203016 -0.119707476
## [209,] -0.867918323 0.034801482
## [210,] -0.926800563 0.144735407
## [211,] 0.189602504 0.143774483
## [212,] -0.102768991 -0.181555504
## [213,] -0.796354861 0.432362576
## [214,] -0.875495959 0.369425909
## [215,] -0.491088142 0.246258426
## [216,] -0.661823326 0.062724489
## [217,] -0.219282292 0.443188469
## [218,] -0.077795592 0.365537676
## [219,] -0.839802412 0.510577685
## [220,] -1.627527187 0.681949875
## [221,] -1.324802720 0.876164255
## [222,] -1.219423416 -0.077400150
## [223,] -0.240056350 0.505275726
## [224,] 0.488719209 0.574453203
## [225,] 0.873612864 -0.692732993
## [226,] -0.107330486 0.200642868
## [227,] -0.765700604 -0.618163707
## [228,] 0.663292473 0.639688624
## [229,] 0.623662857 0.847309088
## [230,] 0.494807986 0.616658140
## [231,] -0.251920596 0.766987975
## [232,] -1.138629679 0.185834588
## [233,] -0.308185301 0.461493131
## [234,] 0.229411878 0.875868076
## [235,] -1.278258731 1.248274761
## [236,] -0.105399533 0.637369978
## [237,] 0.036129975 1.086304611
## [238,] -0.445809179 1.038052539
## [239,] -1.017123020 0.946860509
## [240,] 0.058987025 1.024240998
## [241,] 0.188791143 0.714005444
## [242,] -0.080562356 0.235498390
## [243,] -1.673942992 -0.444003658
## [244,] -0.687444499 0.772203671
## [245,] -0.828306686 0.767837325
## [246,] -0.632683742 0.639437059
## [247,] -0.670994960 0.542283611
## [248,] -0.390001106 1.110611489
## [249,] -0.218621698 0.841636247
## [250,] -0.926818857 0.507257141
## [251,] -1.535865878 0.243899121
## [252,] -1.500760520 1.290107467
## [253,] -1.243086466 0.883401320
## [254,] -0.805641869 0.593117996
## [255,] -0.385293418 1.223436942
## [256,] -0.423984492 1.253139309
## [257,] -0.782594167 1.170600739
## [258,] -1.457110402 -0.241267286
## [259,] -0.999804675 0.523055300
## [260,] -1.122956268 1.231163828
## [261,] -1.579637125 1.304344822
## [262,] -0.270017818 1.395341446
## [263,] -1.210117844 0.156741814
## [264,] -1.411461098 0.625109587
## [265,] -2.241693985 -0.344658313
## [266,] -2.098957884 1.326048067
## [267,] -2.129137890 1.088127967
## [268,] -2.163379676 1.584451403
## [269,] -1.939954869 1.691673543
## [270,] -1.641555659 1.764626045
## [271,] -1.915799764 1.126071756
## [272,] -1.123704611 1.091419307
## [273,] -2.818296136 -0.570859121
## [274,] -2.266670804 -0.780221771
## [275,] -2.185711813 -0.386616823
## [276,] -1.087106832 1.268206899
## [277,] -2.338328295 0.579940463
## [278,] -1.782684854 1.462567462
## [279,] -1.338341725 -0.295084658
## [280,] 0.523839385 0.959523672
## [281,] -2.207908323 0.085854029
## [282,] -2.451223546 -0.234745012
## [283,] -2.130565725 0.224115159
## [284,] -1.512859251 0.525296098
## [285,] -1.648537096 -0.051297937
## [286,] -1.095053343 -0.678100198
## [287,] -2.463781579 -0.086076264
## [288,] -2.529905135 0.185246752
## [289,] -1.582869260 -0.317684710
## [290,] -0.651404662 0.211369461
## [291,] -1.323611303 0.308893909
## [292,] -1.663751396 0.826425440
## [293,] -1.299730986 0.838125487
## [294,] -2.003362238 0.041225398
## [295,] -1.266750071 -1.570223025
## [296,] -1.842156998 -0.176314480
## [297,] -1.813727499 -0.803031699
## [298,] -2.464852690 -0.572223923
##
## $scores$yscores
## [,1] [,2]
## [1,] 0.684446807 -3.560901e-01
## [2,] 3.620993391 -3.132167e+00
## [3,] -1.031827159 5.408616e-01
## [4,] -1.208207492 1.421618e-01
## [5,] 0.460733070 9.259384e-01
## [6,] 0.218205070 5.608538e-01
## [7,] 0.441441427 9.757768e-01
## [8,] 0.800296470 5.580441e-01
## [9,] 1.544058744 9.485250e-02
## [10,] 1.516823086 -7.029802e-01
## [11,] -1.156300827 2.161243e-01
## [12,] 0.911271333 8.664703e-02
## [13,] 0.849276387 7.234674e-01
## [14,] 1.586778398 5.312569e-02
## [15,] 1.565132297 1.213397e-01
## [16,] 3.515609632 -1.924418e+00
## [17,] 0.548746210 -3.210391e-01
## [18,] -0.819920892 3.834145e-01
## [19,] 1.304574065 -5.535601e-01
## [20,] 0.655269905 -1.285872e+00
## [21,] 2.744375977 -1.659166e+00
## [22,] 0.754930874 1.442869e-01
## [23,] 1.308809778 -3.074940e+00
## [24,] -1.327912977 -1.355251e+00
## [25,] -0.352926385 -2.323492e+00
## [26,] 1.003679778 -3.647702e+00
## [27,] 1.071622201 -8.500594e-01
## [28,] 1.058171159 9.765111e-02
## [29,] 0.550705869 1.832386e-01
## [30,] 1.400035168 3.933726e-01
## [31,] -1.759523604 -7.083789e-01
## [32,] -0.173818974 -6.068562e-01
## [33,] 0.889901395 -2.998088e-03
## [34,] -1.050463674 -6.782993e-01
## [35,] 0.045047868 1.338512e-01
## [36,] 0.380257074 7.234600e-01
## [37,] 1.223213406 5.940730e-01
## [38,] 0.596119900 3.689378e-01
## [39,] -0.955462413 4.957054e-01
## [40,] 1.131173918 2.245749e-01
## [41,] 0.463338572 9.393883e-01
## [42,] -0.430801829 1.733907e+00
## [43,] -0.388427250 1.878696e+00
## [44,] -0.967857750 1.083269e+00
## [45,] -1.966170432 -7.520901e-01
## [46,] -0.898840127 -2.909596e-02
## [47,] -0.058492133 6.584174e-02
## [48,] -0.186080613 2.692481e-01
## [49,] 0.410455431 3.322806e-01
## [50,] 0.257009121 1.115005e+00
## [51,] -1.132208041 6.250448e-02
## [52,] 0.414724724 7.436185e-01
## [53,] -1.479893205 -8.452245e-01
## [54,] 1.174157511 -8.661201e-01
## [55,] 0.048496562 -1.558381e+00
## [56,] -0.953227210 -1.021699e+00
## [57,] -0.049965513 -2.420742e-02
## [58,] 0.301939633 -3.192902e-01
## [59,] 0.225003887 -3.091281e-01
## [60,] 0.213058593 8.727670e-01
## [61,] 0.896451593 8.077069e-01
## [62,] 0.444525341 -7.941883e-01
## [63,] -1.057080101 2.305491e-01
## [64,] -0.176083939 1.489319e+00
## [65,] 1.471834494 -1.478953e-01
## [66,] 1.921840907 -4.720674e-01
## [67,] 0.611927051 1.180212e+00
## [68,] 0.502568474 2.840361e-01
## [69,] 0.275146797 8.245288e-02
## [70,] -1.115269052 -1.202695e-01
## [71,] 1.121504524 3.094835e-01
## [72,] 0.694541123 3.430172e-01
## [73,] -1.865691391 -8.379284e-01
## [74,] -0.356028506 2.888255e+00
## [75,] 2.417560316 8.814967e+00
## [76,] 2.079820452 7.686087e+00
## [77,] 0.873257758 3.293973e-01
## [78,] 0.200100251 7.552447e-01
## [79,] -1.330500323 -9.747573e-01
## [80,] -0.021354195 4.166473e-01
## [81,] 0.813590242 -6.182174e-01
## [82,] 0.833459178 7.552126e-01
## [83,] 0.233563210 6.913331e-01
## [84,] 0.404194911 1.467463e-01
## [85,] -0.867650231 7.662044e-01
## [86,] -0.874400202 -5.421587e-01
## [87,] 1.747318103 -1.385111e+00
## [88,] 0.700752693 7.998412e-01
## [89,] -0.203732656 -1.086860e+00
## [90,] 0.338602408 -3.731312e-01
## [91,] -0.101314176 -8.894373e-01
## [92,] -0.946656019 -5.482508e-02
## [93,] -0.683713307 1.312921e-03
## [94,] 0.776543860 9.358496e-01
## [95,] -0.109179891 -6.368815e-01
## [96,] 0.668895084 -1.503008e+00
## [97,] 0.627293340 -1.288072e+00
## [98,] 0.167938263 -9.406707e-01
## [99,] 0.393426278 4.091578e-01
## [100,] -0.096522059 -2.366631e-01
## [101,] 0.928327410 -3.312259e-01
## [102,] 0.329789978 -1.232491e+00
## [103,] 0.905515480 -2.513950e-01
## [104,] 0.830997947 1.440521e-01
## [105,] 1.097993054 -3.665376e-01
## [106,] -0.110448006 2.847849e-01
## [107,] -0.111341540 4.627808e-01
## [108,] 0.058065219 -8.629354e-01
## [109,] -0.759169302 -1.406863e+00
## [110,] -0.353047496 1.645159e-01
## [111,] 0.741124853 1.928613e-01
## [112,] 1.910910517 -1.977792e+00
## [113,] 0.146697639 -3.743056e-01
## [114,] -1.342715075 -1.970157e-01
## [115,] 0.292603606 -1.355238e+00
## [116,] 0.289006410 -6.264970e-01
## [117,] 0.508862882 -4.550540e-01
## [118,] 0.455603614 -1.887961e-01
## [119,] 0.397364165 -1.386297e-01
## [120,] -0.211906618 9.686842e-02
## [121,] -0.608761979 1.561997e+00
## [122,] 0.443515750 -4.675568e-01
## [123,] 0.805248075 -6.622288e-01
## [124,] 1.102364890 -8.868649e-01
## [125,] 0.670525244 -2.021120e-01
## [126,] 0.523444576 -3.816778e-01
## [127,] -0.482155496 -6.276764e-01
## [128,] -0.101692882 2.000870e-01
## [129,] 0.689785835 4.348993e-01
## [130,] 2.121403882 -5.726307e-01
## [131,] 1.311905093 -5.322201e-02
## [132,] 1.419491559 -5.477514e-02
## [133,] 1.200070584 -3.284533e-01
## [134,] 0.438723633 -1.120331e+00
## [135,] 0.351870545 -1.316476e+00
## [136,] 0.910152390 -9.879749e-05
## [137,] 1.098312494 -3.201372e-01
## [138,] 0.870063357 -1.346066e-01
## [139,] 0.394833506 -6.779015e-01
## [140,] 0.660495971 -6.056380e-01
## [141,] 0.280676210 2.422166e-01
## [142,] -0.354271664 -6.814612e-01
## [143,] 0.529378950 3.194688e-01
## [144,] 0.332546045 -4.284772e-01
## [145,] 0.795984932 -1.440168e-01
## [146,] 0.619920944 -2.369257e-01
## [147,] 0.645652402 1.970271e-01
## [148,] 0.168519167 1.799755e-01
## [149,] -1.864616756 -8.689785e-01
## [150,] -0.007882417 -3.532779e-01
## [151,] 0.630178205 2.151833e-01
## [152,] 0.885602598 1.428184e-01
## [153,] 0.547304990 -2.164107e-01
## [154,] 0.877739462 1.792155e-01
## [155,] -0.325460058 2.138199e-01
## [156,] -0.610452026 -4.667981e-01
## [157,] 0.540007438 3.089139e-01
## [158,] 0.349472656 4.263108e-01
## [159,] 0.868030918 -2.859894e-01
## [160,] 0.906585214 1.282565e-01
## [161,] 0.758747546 1.774524e-01
## [162,] -0.346142422 -3.269832e-02
## [163,] -0.064122026 6.648163e-01
## [164,] 0.723621311 -1.997557e-01
## [165,] 0.446751622 3.520178e-01
## [166,] 0.605929954 -1.105901e-02
## [167,] 0.655497480 7.129977e-01
## [168,] 0.119472143 -1.081022e-01
## [169,] -0.914232929 8.298968e-01
## [170,] -1.972936134 -7.418848e-01
## [171,] -1.595572342 -7.261620e-01
## [172,] -0.587198563 7.610261e-01
## [173,] -0.191901768 -3.427594e-01
## [174,] -0.335820634 7.582238e-01
## [175,] -0.819458470 -5.981622e-02
## [176,] 0.287572773 7.583263e-01
## [177,] 0.610687821 -3.190999e-01
## [178,] 1.165585551 -8.074035e-01
## [179,] 0.583694439 -3.501673e-01
## [180,] 0.382323918 -9.301324e-02
## [181,] 0.006236596 1.849450e-01
## [182,] -0.175517685 6.343568e-03
## [183,] 0.655189903 -3.277329e-01
## [184,] 0.382647226 -3.708510e-01
## [185,] 0.579648233 -3.022206e-01
## [186,] 0.479626198 -2.056797e-01
## [187,] 0.483604266 -2.898172e-01
## [188,] -0.372929584 -1.065045e-01
## [189,] -0.537197449 -3.728964e-01
## [190,] 0.240290794 4.455081e-02
## [191,] 0.928582838 -6.668703e-01
## [192,] 0.104660915 -1.003662e-01
## [193,] 0.010626589 5.856169e-02
## [194,] 0.347492777 -2.989840e-01
## [195,] 0.811398212 -8.036083e-01
## [196,] -1.060797841 -4.316594e-01
## [197,] -0.106733464 -7.006714e-01
## [198,] 0.179815007 -2.084696e-01
## [199,] 0.425462718 -7.822303e-01
## [200,] 0.838922412 -1.201197e+00
## [201,] 0.144255596 -6.779855e-01
## [202,] -0.534247129 -5.243466e-01
## [203,] -0.609655360 -1.886781e-01
## [204,] 0.635715871 -3.167609e-01
## [205,] 0.337383760 2.340136e-01
## [206,] 0.567487073 -1.848546e-01
## [207,] 0.367256745 2.935989e-01
## [208,] 0.399349717 1.111159e-01
## [209,] -0.291541898 3.119219e-01
## [210,] -0.771838224 -8.775992e-01
## [211,] 0.701147751 2.555720e-01
## [212,] 0.595279184 -4.859411e-02
## [213,] 0.666223352 2.030950e-01
## [214,] 0.366597129 2.301277e-02
## [215,] 0.794151749 2.454903e-01
## [216,] -0.116120659 6.362682e-01
## [217,] -0.436608541 -8.858921e-02
## [218,] 1.418192548 -3.749303e-01
## [219,] 0.533766106 4.308602e-01
## [220,] 0.424213276 4.901483e-01
## [221,] 0.460440555 5.385423e-01
## [222,] 0.359874961 2.158617e-01
## [223,] 0.093219772 9.722530e-01
## [224,] -0.076213243 6.670619e-01
## [225,] 0.212953626 9.191990e-02
## [226,] 0.287532592 2.946763e-01
## [227,] 0.106395423 1.175539e-01
## [228,] 0.214252122 4.553068e-01
## [229,] 0.314403212 1.036392e+00
## [230,] -0.846813021 -4.712388e-01
## [231,] 1.639701102 -7.399401e-01
## [232,] 1.298342533 -1.253017e+00
## [233,] 0.535800093 4.525477e-01
## [234,] 0.436737668 5.802105e-01
## [235,] 0.380898791 5.784862e-01
## [236,] -0.411677876 4.130975e-01
## [237,] -1.092294178 -4.470986e-01
## [238,] 0.572689051 5.986008e-01
## [239,] -0.140486514 6.883566e-01
## [240,] 0.540002538 7.196155e-01
## [241,] 0.539933626 7.482723e-01
## [242,] 0.245015805 5.746707e-01
## [243,] -0.449665041 3.580839e-01
## [244,] -0.581980595 2.042973e-01
## [245,] 0.201448471 7.824943e-01
## [246,] -0.143756532 8.150222e-01
## [247,] -0.074613463 6.829052e-01
## [248,] 0.055990896 5.803983e-01
## [249,] -0.669523576 3.595678e-01
## [250,] -1.132485237 3.068271e-01
## [251,] -1.404632083 -3.454078e-01
## [252,] -1.274009825 -3.235479e-02
## [253,] -1.271129964 -2.545283e-02
## [254,] -1.429522308 -4.050604e-01
## [255,] -1.140096297 2.885862e-01
## [256,] -0.989017857 6.482632e-01
## [257,] -1.109240646 3.625357e-01
## [258,] -1.545473483 -4.739929e-01
## [259,] -1.621177065 -2.879459e-01
## [260,] -1.225401909 6.605801e-01
## [261,] -1.182821110 7.626305e-01
## [262,] -1.332985280 4.027428e-01
## [263,] -1.159576519 8.183391e-01
## [264,] -1.595258318 -2.258283e-01
## [265,] -1.529638632 -6.856225e-02
## [266,] -1.181792588 7.650955e-01
## [267,] -1.212031127 6.926249e-01
## [268,] -1.200100275 7.212188e-01
## [269,] -1.071123652 1.030328e+00
## [270,] -1.567076823 -1.582877e-01
## [271,] -1.211414014 6.941039e-01
## [272,] -1.432340478 1.646253e-01
## [273,] -1.466464858 1.092620e-01
## [274,] -1.272508204 5.476838e-01
## [275,] -1.228487474 6.531852e-01
## [276,] -1.609863326 -2.608310e-01
## [277,] -1.638867639 -3.303436e-01
## [278,] -1.582504649 -1.952624e-01
## [279,] -1.679802803 -4.284500e-01
## [280,] -1.550620475 -1.188479e-01
## [281,] -1.547123502 -1.104670e-01
## [282,] -1.468133034 7.884382e-02
## [283,] -1.522027572 -5.032136e-02
## [284,] -1.634342143 -3.194977e-01
## [285,] -1.666020612 -3.954192e-01
## [286,] -1.675277307 -4.176040e-01
## [287,] -1.485412199 3.743208e-02
## [288,] -1.549180545 -1.153970e-01
## [289,] -1.459699156 9.905669e-02
## [290,] -1.633519326 -3.175257e-01
## [291,] -1.623645517 -2.938618e-01
## [292,] -1.587235849 -2.066014e-01
## [293,] -1.180146954 7.690394e-01
## [294,] -1.298015542 4.865522e-01
## [295,] -1.537661102 -8.778913e-02
## [296,] -1.417529765 2.001211e-01
## [297,] -1.690088020 -4.530998e-01
## [298,] -1.702407482 -4.778213e-01
##
## $scores$corr.X.xscores
## [,1] [,2]
## Radiacion Solar Horizontal [kWh] 0.05354564 0.9562160
## Velocidad del viento [km/h] -0.12091947 0.0707044
## Humedad [%] 0.44264892 -0.4327952
## Temperatura [C] -0.70421447 0.5938845
## Cooling degree days -0.77255484 0.5814773
##
## $scores$corr.Y.xscores
## [,1] [,2]
## Demanda total [kWh] -0.4639851 0.1165147
## Energía Solar [kWh] 0.3542654 0.2146948
##
## $scores$corr.X.yscores
## [,1] [,2]
## Radiacion Solar Horizontal [kWh] 0.02692035 0.28932778
## Velocidad del viento [km/h] -0.06079289 0.02139344
## Humedad [%] 0.22254403 -0.13095333
## Temperatura [C] -0.35404746 0.17969505
## Cooling degree days -0.38840593 0.17594093
##
## $scores$corr.Y.yscores
## [,1] [,2]
## Demanda total [kWh] -0.9228848 0.3850763
## Energía Solar [kWh] 0.7046479 0.7095571
#Gráficos de correspondencia canónica
img.matcor(mat_cor, type = 2)
plt.cc(cca1,var.label=T)
cca2<- cca(clima,nzeb)
cca2
## Call: cca(X = clima, Y = nzeb)
##
## Inertia Proportion Rank
## Total 0.019112 1.000000
## Constrained 0.001198 0.062659 2
## Unconstrained 0.017915 0.937341 4
## Inertia is scaled Chi-square
##
## Eigenvalues for constrained axes:
## CCA1 CCA2
## 0.0009768 0.0002208
##
## Eigenvalues for unconstrained axes:
## CA1 CA2 CA3 CA4
## 0.015664 0.001448 0.000765 0.000038
plot(cca2)
estim.regul(clima, 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 = 0.001
## lambda2 = 1
## CV-score = -0.125412