Resultados [19:34] ojito
library(bootstrap)
library(factoextra)
## Loading required package: ggplot2
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
library(FactoMineR)
library(haven)
library(ade4)
##
## Attaching package: 'ade4'
## The following object is masked from 'package:FactoMineR':
##
## reconst
library(xtable)
library(readr)
library(data.table)
library(bigmemory)
library(foreach)
library(doParallel)
## Loading required package: iterators
## Loading required package: parallel
library(biglm)
## Loading required package: DBI
library(Factoshiny)
## Loading required package: shiny
## Loading required package: FactoInvestigate
library(dplyr) #para filtrar
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:data.table':
##
## between, first, last
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(readxl)
CaliyPalmira<- read_excel("C:/LAURA LUCIA/U/9/Tesis/MARZO/CaliyPalmira-TAINA.xlsx")
names(CaliyPalmira)
## [1] "Total_act_sociales" "Total_lug_act_sociales" "conoce_enf"
## [4] "p26" "S_sintomas" "conoce_preven"
## [7] "S_prevención" "creenvirus" "contac_covid"
## [10] "dx_covid" "conf_presi" "conf_alcaldia"
## [13] "conf_gobern" "conf_mensgobierno" "p40"
## [16] "p42" "medios" "conf_mediocomu"
## [19] "p46" "p47" "p48"
## [22] "p49" "p50_1" "p50_2"
## [25] "p50_3" "p51" "p52"
## [28] "p53" "p54" "p55"
## [31] "p56" "p57" "p58"
## [34] "p60" "cumple_lavamanos" "cumple_tapaboca"
## [37] "cumple_distancia" "cumple_desinfecmano" "Total_tapaboca"
## [40] "Total_distancia" "ID" "Municipio"
#CaliyPalmira$p41<-as.factor(CaliyPalmira$p41)
CaliyPalmira$creenvirus<-as.factor(CaliyPalmira$creenvirus)
CaliyPalmira$contac_covid<-as.factor(CaliyPalmira$contac_covid)
CaliyPalmira$dx_covid<-as.factor(CaliyPalmira$dx_covid)
#CaliyPalmira$mensaje<-as.factor(CaliyPalmira$mensaje)
#gubernamental
#CaliyPalmira$conf_presi<-as.factor(CaliyPalmira$conf_presi)
#CaliyPalmira$conf_alcaldia<-as.factor(CaliyPalmira$conf_alcaldia)
#CaliyPalmira$conf_gobern<-as.factor(CaliyPalmira$conf_gobern)
#CaliyPalmira$conf_mensgobierno<-as.factor(CaliyPalmira$conf_mensgobierno)
#summary(CaliyPalmira)
names(CaliyPalmira)<-c(
#1.voluntariedad
"x11",
"x12",
#2.conocimiento
"x21",
"x22", #p26
"x23",
"x24",
"x25", #p30
#3.incertidumbre
"x31", #p33
"x32", #p35
"x33", #p36
#4.gubernamental
"x41",
"x42",
"x43",
"x44",#"recomen_efectiva",
#5.salud
"x51",
#"p41", #factor
"x52",
#6.medios de comunicación
"x61", #total_medios_comu
"x62", #p43
#"mensaje", #categórica p72
#7.probabilidad de contagio
"x71",
"x72",
"x73",
"x74",
"x75",
"x76",
"x77",
#8.severidad
"x81",
"x82",
"x83",
"x84",
#9.susceptibilidad
"x91",
"x92",
"x93",
"x94",
#"p59_1", #factor
#"p59_2", #factor
#"p59_3", #factor
#"p59_4", #factor
"x95",
#10.cumplimiento
"x101", #p61
"x102",
"x103",
"x104",
"x105", #p76
"x106",
#otras
"Id",
"Ciudad"
)
#recodificar la voluntariedad
library(car)
## Loading required package: carData
##
## Attaching package: 'car'
## The following object is masked from 'package:dplyr':
##
## recode
summary(CaliyPalmira$x11) #de 0 a 5
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 1.000 1.265 2.000 5.000
CaliyPalmira$x11 <- recode(CaliyPalmira$x11,"5=0; 4=1; 3=2; 2=3; 1=4; 0=5")
summary(CaliyPalmira$x12) #de 0 a 8
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 1.000 1.000 1.633 2.000 8.000
CaliyPalmira$x12 <- recode(CaliyPalmira$x12,"8=0; 7=1; 6=2; 5=3; 4=4; 3=5; 2=6; 1=7; 0=8")
CALI Y PALMIRA
IPRG
# INDICE DE PERCEPCIÓN DE RIESGO GLOBAL
Datos=CaliyPalmira[,c(19:34)]
pesos=c(
#probabilidad de contagio
0.061,0.055,0.061,0.048,0.041,0.055,0.055,
#severidad
0.080,0.092,0.092,0.069,
#susceptibilidad
0.065,0.065,0.057,0.049,0.057
)
temp_K<-c()
lista_vacia <- vector("list", length = 1443)
celsius_to_kelvin <- function(temp_C) {
for (i in 1:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(IHPRG1[ ,1:16]);IH
## [1] 2.989 2.811 3.660 3.388 3.935 4.516 3.120 4.300 4.037 2.458 4.252 3.276
## [13] 3.867 4.218 4.008 3.363 2.897 3.650 4.681 3.647 4.657 2.602 3.219 3.121
## [25] 4.016 3.400 2.790 3.570 3.052 3.474 4.376 4.193 2.956 4.904 4.195 2.481
## [37] 3.439 5.158 4.389 3.782 5.093 2.690 3.661 3.864 3.252 1.962 2.883 3.365
## [49] 2.829 3.639 3.223 3.086 3.196 4.886 3.901 3.744 2.954 3.481 2.824 2.953
## [61] 5.384 3.204 2.119 2.686 3.815 3.376 4.443 3.350 5.557 5.340 3.774 2.824
## [73] 3.642 1.592 2.803 4.274 3.172 4.119 5.707 3.602 4.580 3.842 4.519 3.568
## [85] 2.928 4.831 2.803 3.471 4.745 3.421 3.000 3.589 3.471 4.108 3.211 4.774
## [97] 3.618 2.388 2.965 3.845 5.105 2.532 3.171 3.461 6.322 5.003 4.523 5.142
## [109] 4.027 4.097 4.838 4.785 4.427 4.973 3.260 3.296 3.128 4.467 3.173 4.531
## [121] 4.556 5.259 4.398 4.402 1.786 3.806 4.855 4.283 5.114 2.444 4.702 4.462
## [133] 4.632 2.256 4.072 2.644 3.106 5.422 3.929 2.621 5.467 3.615 4.198 3.896
## [145] 3.319 3.432 3.750 2.373 4.009 3.600 2.587 3.196 5.801 3.305 5.029 3.330
## [157] 4.304 3.421 3.574 5.658 3.699 5.760 3.637 3.524 4.352 5.805 3.986 3.089
## [169] 4.879 3.156 6.101 5.042 3.493 2.617 4.076 4.035 3.014 4.002 3.708 4.011
## [181] 4.466 3.386 6.158 3.176 4.845 3.954 3.324 3.516 4.219 3.537 4.142 4.246
## [193] 2.908 3.440 6.093 3.340 3.823 3.742 2.405 3.855 3.517 3.768 3.611 5.125
## [205] 3.917 4.673 3.700 4.304 3.401 4.731 5.757 3.029 4.503 3.975 3.926 4.132
## [217] 4.073 4.365 3.392 4.904 3.749 3.774 3.781 4.389 4.335 3.238 3.721 3.072
## [229] 3.063 3.627 4.688 4.117 3.917 3.987 3.846 1.982 1.550 3.572 2.935 2.254
## [241] 3.949 3.648 4.144 3.091 3.029 2.253 3.623 4.963 3.365 4.756 3.141 2.878
## [253] 4.212 3.849 4.125 3.077 3.897 2.392 4.861 4.012 4.756 3.626 3.718 2.563
## [265] 3.444 3.863 2.997 3.808 4.379 2.913 4.532 3.199 2.547 2.998 2.949 3.699
## [277] 4.150 4.662 4.910 4.190 3.667 4.468 4.722 3.541 2.992 3.670 4.858 3.112
## [289] 4.407 4.599 4.301 4.361 3.108 3.802 2.843 2.100 3.102 4.057 4.277 5.751
## [301] 3.052 3.987 2.395 3.500 4.879 4.004 3.231 3.669 4.405 4.862 3.937 5.265
## [313] 2.823 3.199 4.283 3.860 3.618 1.733 4.598 2.980 4.554 3.826 2.908 2.425
## [325] 3.625 4.819 4.640 3.403 3.880 2.992 4.254 3.793 4.893 5.360 4.119 3.159
## [337] 3.650 4.950 3.219 1.335 2.978 3.609 3.706 3.226 3.754 3.373 2.564 4.023
## [349] 4.304 4.929 4.834 3.513 3.294 4.259 4.089 2.910 5.610 3.373 3.192 4.884
## [361] 4.223 4.822 3.086 2.663 3.879 3.412 5.009 2.671 5.474 3.205 3.836 3.556
## [373] 5.153 3.787 4.960 3.948 5.019 2.284 3.103 4.226 3.519 5.340 3.219 4.535
## [385] 4.714 3.526 5.090 2.649 3.278 3.753 3.279 2.857 4.161 2.072 3.557 3.659
## [397] 3.016 3.965 3.188 3.244 3.911 3.330 2.261 3.417 3.435 2.083 2.730 3.207
## [409] 4.534 3.597 5.791 4.532 3.433 3.395 4.431 5.152 3.784 4.173 2.607 3.943
## [421] 3.772 2.469 4.771 4.880 5.227 4.528 5.376 4.223 3.648 4.041 4.408 5.633
## [433] 3.169 3.266 6.048 5.844 4.053 3.158 3.717 3.034 3.392 2.614 4.119 5.495
## [445] 3.105 3.438 4.755 4.443 4.652 4.772 3.557 5.621 5.645 4.379 3.609 4.275
## [457] 4.555 5.533 3.798 5.262 2.584 3.734 4.005 2.962 3.708 3.919 3.520 4.090
## [469] 6.064 4.379 6.322 4.041 3.320 5.495 3.635 3.942 5.632 4.391 3.547 3.796
## [481] 3.492 5.184 3.820 3.812 3.708 2.913 4.781 4.891 5.156 3.301 4.254 4.441
## [493] 2.982 3.576 4.891 4.173 4.203 4.391 3.619 4.718 2.201 5.572 4.171 2.906
## [505] 3.419 3.595 3.908 2.814 2.650 3.066 2.653 4.552 3.932 3.668 2.645 2.650
## [517] 5.032 3.764 3.376 3.335 3.149 4.833 3.059 3.085 4.446 4.501 4.831 2.072
## [529] 3.373 3.834 3.916 3.165 3.656 3.543 3.616 2.864 2.738 2.486 4.462 3.459
## [541] 3.032 3.648 5.207 4.011 5.342 4.585 4.045 4.341 4.325 3.323 3.973 4.810
## [553] 3.970 2.762 3.129 4.697 3.456 3.125 4.417 1.248 3.252 3.225 4.109 3.063
## [565] 4.245 2.772 4.308 2.858 3.558 3.284 3.778 5.214 3.969 4.110 2.211 4.696
## [577] 3.276 3.817 4.644 4.229 4.352 4.682 4.314 3.218 3.566 3.049 3.291 3.842
## [589] 2.060 3.759 3.741 3.510 3.741 4.218 3.666 4.360 3.764 2.765 4.290 4.220
## [601] 4.278 3.867 3.793 3.224 1.854 2.245 3.973 2.660 3.740 4.879 2.145 3.774
## [613] 4.127 4.894 4.250 4.577 2.591 5.688 4.566 2.844 5.299 4.771 1.902 4.246
## [625] 3.933 3.562 4.676 4.889 2.683 3.406 5.008 4.091 2.925 5.495 4.069 3.596
## [637] 3.265 5.501 2.621 2.352 0.937 3.308 4.089 3.880 2.623 3.363 3.750 4.091
## [649] 3.140 6.387 4.847 4.607 4.239 3.719 4.389 5.975 3.858 5.151 4.594 4.347
## [661] 4.955 2.804 5.796 3.907 5.353 4.526 3.017 4.727 2.742 4.108 6.202 4.491
## [673] 4.651 4.135 5.720 4.301 3.953 1.932 5.517 4.098 4.099 4.052 3.657 4.156
## [685] 4.511 2.597 2.604 4.414 2.555 4.245 3.363 4.388 3.530 3.866 4.783 4.064
## [697] 5.162 4.389 4.627 3.359 3.365 4.225 4.266 4.006 5.576 4.856 4.111 3.910
## [709] 2.456 3.805 3.993 5.275 2.828 2.864 3.812 3.557 2.616 4.532 3.696 4.168
## [721] 3.811 2.768 3.836 4.285 3.944 4.823 3.501 3.149 3.711 3.328 2.823 3.444
## [733] 2.771 4.395 3.920 2.945 2.835 3.698 4.249 3.414 4.395 4.626 4.810 4.914
## [745] 4.278 5.038 3.825 5.594 3.749 4.169 4.803 4.146 6.135 5.131 4.215 3.660
## [757] 5.149 4.481 3.802 4.068 3.648 3.831 2.911 3.542 3.793 3.169 3.436 3.181
## [769] 3.522 1.521 3.577 4.863 4.813 5.375 1.481 3.865 3.383 3.746 4.172 5.135
## [781] 5.378 4.520 3.831 3.880 5.728 3.293 4.442 4.502 2.431 5.079 3.761 4.163
## [793] 4.127 4.586 3.231 4.940 3.212 3.946 2.222 3.190 3.796 4.580 2.980 3.297
## [805] 3.665 4.124 5.202 5.996 3.151 3.046 3.123 3.954 4.953 4.734 4.351 4.158
## [817] 4.785 4.613 4.059 3.568 2.531 3.879 2.486 2.797 3.603 4.378 3.614 3.803
## [829] 4.810 4.209 2.713 3.945 4.710 4.260 5.266 5.205 3.030 5.753 3.617 3.861
## [841] 3.976 3.154 5.173 4.024 4.003 4.386 3.689 3.696 4.144 5.622 4.768 3.983
## [853] 2.643 5.329 5.073 4.076 3.083 3.576 4.430 2.992 4.851 2.426 3.510 5.247
## [865] 5.065 2.570 3.524 5.512 3.576 2.728 4.503 4.382 3.429 3.382 5.679 6.070
## [877] 3.259 4.931 1.539 4.196 4.297 5.221 3.631 2.772 3.581 4.140 4.360 5.603
## [889] 4.443 3.130 2.695 2.797 4.132 5.089 4.190 2.911 3.893 1.842 3.400 4.416
## [901] 3.998 2.746 3.189 2.996 4.846 5.292 3.164 5.356 2.484 3.838 4.037 3.668
## [913] 2.666 4.271 4.433 5.399 4.111 4.759 4.095 4.458 4.111 4.528 3.084 4.234
## [925] 4.141 4.754 3.786 4.209 1.588 5.047 4.216 3.335 3.878 4.688 3.622 2.386
## [937] 5.020 3.913 2.696 5.213 3.156 3.055 5.992 4.663 6.342 4.072 3.904 2.921
## [949] 3.363 4.684 5.105 5.131 5.619 4.224 4.378 4.585 2.433 4.633 2.621 4.653
## [961] 5.255 3.716 3.128 2.333 2.958 2.782 4.328 4.413 3.634 4.854 5.255 3.953
## [973] 4.217 4.867 5.730 2.900 5.608 4.587 4.800 3.791 4.378 2.682 3.428 2.423
## [985] 3.072 3.239 4.078 3.974 5.238 4.753 5.635 4.556 3.249 3.362 3.598 2.856
## [997] 4.371 5.548 4.400 4.350 2.781 2.929 4.577 5.868 5.030 4.184 4.820 3.904
## [1009] 3.624 4.206 3.543 4.142 3.252 5.401 5.828 3.965 1.754 2.075 5.170 6.108
## [1021] 3.240 4.630 4.550 4.891 4.513 3.540 3.238 5.640 4.875 3.360 4.186 5.334
## [1033] 5.168 3.308 4.752 4.063 2.471 3.248 3.718 2.832 3.269 5.298 4.343 5.378
## [1045] 5.232 5.243 4.756 3.470 2.787 4.797 3.800 3.559 4.366 3.745 5.408 3.880
## [1057] 5.242 3.830 3.719 4.187 4.068 3.110 4.075 3.149 5.914 3.401 5.849 6.322
## [1069] 4.330 4.329 4.853 3.553 2.800 3.240 4.642 3.316 3.865 5.108 3.436 3.193
## [1081] 5.050 3.973 3.759 4.127 6.241 5.105 4.641 4.324 3.181 3.097 4.117 4.492
## [1093] 5.170 3.019 4.809 3.367 3.474 3.385 3.443 5.078 2.598 3.372 5.932 3.370
## [1105] 3.812 3.375 3.938 4.958 3.887 5.573 3.890 3.679 3.534 3.498 4.898 3.792
## [1117] 5.408 2.826 2.821 3.556 3.788 4.477 3.400 6.086 4.438 6.090 3.576 4.086
## [1129] 3.675 4.116 3.177 4.039 3.701 4.320 5.548 4.261 4.688 5.574 4.485 4.493
## [1141] 1.290 2.494 2.973 3.912 4.265 5.197 2.956 4.588 3.848 5.558 3.438 3.726
## [1153] 3.862 4.857 4.326 1.084 3.399 4.416 3.706 3.124 3.639 5.469 4.232 4.397
## [1165] 1.843 2.904 3.930 5.864 5.376 3.350 3.278 3.015 4.286 3.549 3.571 2.651
## [1177] 4.169 4.552 4.277 3.605 2.878 3.773 2.908 2.923 2.698 2.449 5.857 3.115
## [1189] 4.572 3.583 5.524 3.936 0.937 3.370 3.201 4.254 3.889 3.716 3.935 4.152
## [1201] 4.842 4.362 3.366 4.942 6.322 2.941 3.547 4.944 5.111 3.112 4.633 3.087
## [1213] 4.591 3.521 5.863 3.378 5.240 5.149 3.222 4.786 2.656 3.382 3.262 5.545
## [1225] 4.794 4.686 4.607 3.930 4.312 4.551 3.818 5.143 4.131 5.036 3.783 3.961
## [1237] 4.147 4.006 3.216 4.311 4.338 5.102 4.549 4.638 3.269 4.908 4.650 5.246
## [1249] 4.196 4.390 5.254 4.200 5.600 3.869 5.581 4.185 2.659 4.344 4.480 3.765
## [1261] 3.036 5.254 5.896 5.623 4.915 5.173 2.990 3.278 3.737 4.101 2.177 3.564
## [1273] 3.481 3.995 3.487 4.302 4.680 2.744 4.626 2.657 3.334 3.445 4.674 5.465
## [1285] 3.000 5.162 4.168 3.044 5.752 4.548 5.582 5.033 3.968 5.232 3.183 4.579
## [1297] 4.832 4.233 2.811 4.621 4.157 2.883 3.345 3.549 3.782 4.964 5.557 4.173
## [1309] 4.725 4.488 5.090 4.041 4.439 3.680 3.988 4.770 3.875 5.043 3.004 2.541
## [1321] 4.743 2.044 4.961 4.421 5.022 4.059 3.512 5.980 5.149 4.895 4.966 3.314
## [1333] 4.732 6.176 5.061 5.210 4.336 4.594 3.507 5.514 3.694 3.466 3.997 4.809
## [1345] 4.334 2.590 5.090 4.124 5.057 2.058 5.192 3.886 3.409 3.648 3.165 2.539
## [1357] 6.322 5.002 2.778 4.064 6.127 3.302 5.102 3.748 4.008 2.902 3.350 5.407
## [1369] 4.467 4.410 2.785 3.434 4.246 3.732 3.068 3.542 4.117 4.005 3.970 3.282
## [1381] 4.817 4.876 4.959 5.401 2.901 4.257 4.569 1.938 4.038 3.199 3.917 3.895
## [1393] 4.094 4.261 3.686 3.381 4.619 3.678 4.722 3.227 5.344 3.171 1.898 3.801
## [1405] 3.112 4.903 3.601 3.935 1.102 4.283 4.277 3.847 4.685 4.572 2.716 4.763
## [1417] 6.322 4.302 4.374 3.544 4.945 4.272 4.002 3.669 3.815 4.748 5.130 6.387
## [1429] 4.589 3.975 4.926 3.950 5.923 3.925 4.074 4.972 4.208 2.891 3.502 4.306
## [1441] 4.088 4.574 3.693
data.frame(IH)
## IH
## 1 2.989
## 2 2.811
## 3 3.660
## 4 3.388
## 5 3.935
## 6 4.516
## 7 3.120
## 8 4.300
## 9 4.037
## 10 2.458
## 11 4.252
## 12 3.276
## 13 3.867
## 14 4.218
## 15 4.008
## 16 3.363
## 17 2.897
## 18 3.650
## 19 4.681
## 20 3.647
## 21 4.657
## 22 2.602
## 23 3.219
## 24 3.121
## 25 4.016
## 26 3.400
## 27 2.790
## 28 3.570
## 29 3.052
## 30 3.474
## 31 4.376
## 32 4.193
## 33 2.956
## 34 4.904
## 35 4.195
## 36 2.481
## 37 3.439
## 38 5.158
## 39 4.389
## 40 3.782
## 41 5.093
## 42 2.690
## 43 3.661
## 44 3.864
## 45 3.252
## 46 1.962
## 47 2.883
## 48 3.365
## 49 2.829
## 50 3.639
## 51 3.223
## 52 3.086
## 53 3.196
## 54 4.886
## 55 3.901
## 56 3.744
## 57 2.954
## 58 3.481
## 59 2.824
## 60 2.953
## 61 5.384
## 62 3.204
## 63 2.119
## 64 2.686
## 65 3.815
## 66 3.376
## 67 4.443
## 68 3.350
## 69 5.557
## 70 5.340
## 71 3.774
## 72 2.824
## 73 3.642
## 74 1.592
## 75 2.803
## 76 4.274
## 77 3.172
## 78 4.119
## 79 5.707
## 80 3.602
## 81 4.580
## 82 3.842
## 83 4.519
## 84 3.568
## 85 2.928
## 86 4.831
## 87 2.803
## 88 3.471
## 89 4.745
## 90 3.421
## 91 3.000
## 92 3.589
## 93 3.471
## 94 4.108
## 95 3.211
## 96 4.774
## 97 3.618
## 98 2.388
## 99 2.965
## 100 3.845
## 101 5.105
## 102 2.532
## 103 3.171
## 104 3.461
## 105 6.322
## 106 5.003
## 107 4.523
## 108 5.142
## 109 4.027
## 110 4.097
## 111 4.838
## 112 4.785
## 113 4.427
## 114 4.973
## 115 3.260
## 116 3.296
## 117 3.128
## 118 4.467
## 119 3.173
## 120 4.531
## 121 4.556
## 122 5.259
## 123 4.398
## 124 4.402
## 125 1.786
## 126 3.806
## 127 4.855
## 128 4.283
## 129 5.114
## 130 2.444
## 131 4.702
## 132 4.462
## 133 4.632
## 134 2.256
## 135 4.072
## 136 2.644
## 137 3.106
## 138 5.422
## 139 3.929
## 140 2.621
## 141 5.467
## 142 3.615
## 143 4.198
## 144 3.896
## 145 3.319
## 146 3.432
## 147 3.750
## 148 2.373
## 149 4.009
## 150 3.600
## 151 2.587
## 152 3.196
## 153 5.801
## 154 3.305
## 155 5.029
## 156 3.330
## 157 4.304
## 158 3.421
## 159 3.574
## 160 5.658
## 161 3.699
## 162 5.760
## 163 3.637
## 164 3.524
## 165 4.352
## 166 5.805
## 167 3.986
## 168 3.089
## 169 4.879
## 170 3.156
## 171 6.101
## 172 5.042
## 173 3.493
## 174 2.617
## 175 4.076
## 176 4.035
## 177 3.014
## 178 4.002
## 179 3.708
## 180 4.011
## 181 4.466
## 182 3.386
## 183 6.158
## 184 3.176
## 185 4.845
## 186 3.954
## 187 3.324
## 188 3.516
## 189 4.219
## 190 3.537
## 191 4.142
## 192 4.246
## 193 2.908
## 194 3.440
## 195 6.093
## 196 3.340
## 197 3.823
## 198 3.742
## 199 2.405
## 200 3.855
## 201 3.517
## 202 3.768
## 203 3.611
## 204 5.125
## 205 3.917
## 206 4.673
## 207 3.700
## 208 4.304
## 209 3.401
## 210 4.731
## 211 5.757
## 212 3.029
## 213 4.503
## 214 3.975
## 215 3.926
## 216 4.132
## 217 4.073
## 218 4.365
## 219 3.392
## 220 4.904
## 221 3.749
## 222 3.774
## 223 3.781
## 224 4.389
## 225 4.335
## 226 3.238
## 227 3.721
## 228 3.072
## 229 3.063
## 230 3.627
## 231 4.688
## 232 4.117
## 233 3.917
## 234 3.987
## 235 3.846
## 236 1.982
## 237 1.550
## 238 3.572
## 239 2.935
## 240 2.254
## 241 3.949
## 242 3.648
## 243 4.144
## 244 3.091
## 245 3.029
## 246 2.253
## 247 3.623
## 248 4.963
## 249 3.365
## 250 4.756
## 251 3.141
## 252 2.878
## 253 4.212
## 254 3.849
## 255 4.125
## 256 3.077
## 257 3.897
## 258 2.392
## 259 4.861
## 260 4.012
## 261 4.756
## 262 3.626
## 263 3.718
## 264 2.563
## 265 3.444
## 266 3.863
## 267 2.997
## 268 3.808
## 269 4.379
## 270 2.913
## 271 4.532
## 272 3.199
## 273 2.547
## 274 2.998
## 275 2.949
## 276 3.699
## 277 4.150
## 278 4.662
## 279 4.910
## 280 4.190
## 281 3.667
## 282 4.468
## 283 4.722
## 284 3.541
## 285 2.992
## 286 3.670
## 287 4.858
## 288 3.112
## 289 4.407
## 290 4.599
## 291 4.301
## 292 4.361
## 293 3.108
## 294 3.802
## 295 2.843
## 296 2.100
## 297 3.102
## 298 4.057
## 299 4.277
## 300 5.751
## 301 3.052
## 302 3.987
## 303 2.395
## 304 3.500
## 305 4.879
## 306 4.004
## 307 3.231
## 308 3.669
## 309 4.405
## 310 4.862
## 311 3.937
## 312 5.265
## 313 2.823
## 314 3.199
## 315 4.283
## 316 3.860
## 317 3.618
## 318 1.733
## 319 4.598
## 320 2.980
## 321 4.554
## 322 3.826
## 323 2.908
## 324 2.425
## 325 3.625
## 326 4.819
## 327 4.640
## 328 3.403
## 329 3.880
## 330 2.992
## 331 4.254
## 332 3.793
## 333 4.893
## 334 5.360
## 335 4.119
## 336 3.159
## 337 3.650
## 338 4.950
## 339 3.219
## 340 1.335
## 341 2.978
## 342 3.609
## 343 3.706
## 344 3.226
## 345 3.754
## 346 3.373
## 347 2.564
## 348 4.023
## 349 4.304
## 350 4.929
## 351 4.834
## 352 3.513
## 353 3.294
## 354 4.259
## 355 4.089
## 356 2.910
## 357 5.610
## 358 3.373
## 359 3.192
## 360 4.884
## 361 4.223
## 362 4.822
## 363 3.086
## 364 2.663
## 365 3.879
## 366 3.412
## 367 5.009
## 368 2.671
## 369 5.474
## 370 3.205
## 371 3.836
## 372 3.556
## 373 5.153
## 374 3.787
## 375 4.960
## 376 3.948
## 377 5.019
## 378 2.284
## 379 3.103
## 380 4.226
## 381 3.519
## 382 5.340
## 383 3.219
## 384 4.535
## 385 4.714
## 386 3.526
## 387 5.090
## 388 2.649
## 389 3.278
## 390 3.753
## 391 3.279
## 392 2.857
## 393 4.161
## 394 2.072
## 395 3.557
## 396 3.659
## 397 3.016
## 398 3.965
## 399 3.188
## 400 3.244
## 401 3.911
## 402 3.330
## 403 2.261
## 404 3.417
## 405 3.435
## 406 2.083
## 407 2.730
## 408 3.207
## 409 4.534
## 410 3.597
## 411 5.791
## 412 4.532
## 413 3.433
## 414 3.395
## 415 4.431
## 416 5.152
## 417 3.784
## 418 4.173
## 419 2.607
## 420 3.943
## 421 3.772
## 422 2.469
## 423 4.771
## 424 4.880
## 425 5.227
## 426 4.528
## 427 5.376
## 428 4.223
## 429 3.648
## 430 4.041
## 431 4.408
## 432 5.633
## 433 3.169
## 434 3.266
## 435 6.048
## 436 5.844
## 437 4.053
## 438 3.158
## 439 3.717
## 440 3.034
## 441 3.392
## 442 2.614
## 443 4.119
## 444 5.495
## 445 3.105
## 446 3.438
## 447 4.755
## 448 4.443
## 449 4.652
## 450 4.772
## 451 3.557
## 452 5.621
## 453 5.645
## 454 4.379
## 455 3.609
## 456 4.275
## 457 4.555
## 458 5.533
## 459 3.798
## 460 5.262
## 461 2.584
## 462 3.734
## 463 4.005
## 464 2.962
## 465 3.708
## 466 3.919
## 467 3.520
## 468 4.090
## 469 6.064
## 470 4.379
## 471 6.322
## 472 4.041
## 473 3.320
## 474 5.495
## 475 3.635
## 476 3.942
## 477 5.632
## 478 4.391
## 479 3.547
## 480 3.796
## 481 3.492
## 482 5.184
## 483 3.820
## 484 3.812
## 485 3.708
## 486 2.913
## 487 4.781
## 488 4.891
## 489 5.156
## 490 3.301
## 491 4.254
## 492 4.441
## 493 2.982
## 494 3.576
## 495 4.891
## 496 4.173
## 497 4.203
## 498 4.391
## 499 3.619
## 500 4.718
## 501 2.201
## 502 5.572
## 503 4.171
## 504 2.906
## 505 3.419
## 506 3.595
## 507 3.908
## 508 2.814
## 509 2.650
## 510 3.066
## 511 2.653
## 512 4.552
## 513 3.932
## 514 3.668
## 515 2.645
## 516 2.650
## 517 5.032
## 518 3.764
## 519 3.376
## 520 3.335
## 521 3.149
## 522 4.833
## 523 3.059
## 524 3.085
## 525 4.446
## 526 4.501
## 527 4.831
## 528 2.072
## 529 3.373
## 530 3.834
## 531 3.916
## 532 3.165
## 533 3.656
## 534 3.543
## 535 3.616
## 536 2.864
## 537 2.738
## 538 2.486
## 539 4.462
## 540 3.459
## 541 3.032
## 542 3.648
## 543 5.207
## 544 4.011
## 545 5.342
## 546 4.585
## 547 4.045
## 548 4.341
## 549 4.325
## 550 3.323
## 551 3.973
## 552 4.810
## 553 3.970
## 554 2.762
## 555 3.129
## 556 4.697
## 557 3.456
## 558 3.125
## 559 4.417
## 560 1.248
## 561 3.252
## 562 3.225
## 563 4.109
## 564 3.063
## 565 4.245
## 566 2.772
## 567 4.308
## 568 2.858
## 569 3.558
## 570 3.284
## 571 3.778
## 572 5.214
## 573 3.969
## 574 4.110
## 575 2.211
## 576 4.696
## 577 3.276
## 578 3.817
## 579 4.644
## 580 4.229
## 581 4.352
## 582 4.682
## 583 4.314
## 584 3.218
## 585 3.566
## 586 3.049
## 587 3.291
## 588 3.842
## 589 2.060
## 590 3.759
## 591 3.741
## 592 3.510
## 593 3.741
## 594 4.218
## 595 3.666
## 596 4.360
## 597 3.764
## 598 2.765
## 599 4.290
## 600 4.220
## 601 4.278
## 602 3.867
## 603 3.793
## 604 3.224
## 605 1.854
## 606 2.245
## 607 3.973
## 608 2.660
## 609 3.740
## 610 4.879
## 611 2.145
## 612 3.774
## 613 4.127
## 614 4.894
## 615 4.250
## 616 4.577
## 617 2.591
## 618 5.688
## 619 4.566
## 620 2.844
## 621 5.299
## 622 4.771
## 623 1.902
## 624 4.246
## 625 3.933
## 626 3.562
## 627 4.676
## 628 4.889
## 629 2.683
## 630 3.406
## 631 5.008
## 632 4.091
## 633 2.925
## 634 5.495
## 635 4.069
## 636 3.596
## 637 3.265
## 638 5.501
## 639 2.621
## 640 2.352
## 641 0.937
## 642 3.308
## 643 4.089
## 644 3.880
## 645 2.623
## 646 3.363
## 647 3.750
## 648 4.091
## 649 3.140
## 650 6.387
## 651 4.847
## 652 4.607
## 653 4.239
## 654 3.719
## 655 4.389
## 656 5.975
## 657 3.858
## 658 5.151
## 659 4.594
## 660 4.347
## 661 4.955
## 662 2.804
## 663 5.796
## 664 3.907
## 665 5.353
## 666 4.526
## 667 3.017
## 668 4.727
## 669 2.742
## 670 4.108
## 671 6.202
## 672 4.491
## 673 4.651
## 674 4.135
## 675 5.720
## 676 4.301
## 677 3.953
## 678 1.932
## 679 5.517
## 680 4.098
## 681 4.099
## 682 4.052
## 683 3.657
## 684 4.156
## 685 4.511
## 686 2.597
## 687 2.604
## 688 4.414
## 689 2.555
## 690 4.245
## 691 3.363
## 692 4.388
## 693 3.530
## 694 3.866
## 695 4.783
## 696 4.064
## 697 5.162
## 698 4.389
## 699 4.627
## 700 3.359
## 701 3.365
## 702 4.225
## 703 4.266
## 704 4.006
## 705 5.576
## 706 4.856
## 707 4.111
## 708 3.910
## 709 2.456
## 710 3.805
## 711 3.993
## 712 5.275
## 713 2.828
## 714 2.864
## 715 3.812
## 716 3.557
## 717 2.616
## 718 4.532
## 719 3.696
## 720 4.168
## 721 3.811
## 722 2.768
## 723 3.836
## 724 4.285
## 725 3.944
## 726 4.823
## 727 3.501
## 728 3.149
## 729 3.711
## 730 3.328
## 731 2.823
## 732 3.444
## 733 2.771
## 734 4.395
## 735 3.920
## 736 2.945
## 737 2.835
## 738 3.698
## 739 4.249
## 740 3.414
## 741 4.395
## 742 4.626
## 743 4.810
## 744 4.914
## 745 4.278
## 746 5.038
## 747 3.825
## 748 5.594
## 749 3.749
## 750 4.169
## 751 4.803
## 752 4.146
## 753 6.135
## 754 5.131
## 755 4.215
## 756 3.660
## 757 5.149
## 758 4.481
## 759 3.802
## 760 4.068
## 761 3.648
## 762 3.831
## 763 2.911
## 764 3.542
## 765 3.793
## 766 3.169
## 767 3.436
## 768 3.181
## 769 3.522
## 770 1.521
## 771 3.577
## 772 4.863
## 773 4.813
## 774 5.375
## 775 1.481
## 776 3.865
## 777 3.383
## 778 3.746
## 779 4.172
## 780 5.135
## 781 5.378
## 782 4.520
## 783 3.831
## 784 3.880
## 785 5.728
## 786 3.293
## 787 4.442
## 788 4.502
## 789 2.431
## 790 5.079
## 791 3.761
## 792 4.163
## 793 4.127
## 794 4.586
## 795 3.231
## 796 4.940
## 797 3.212
## 798 3.946
## 799 2.222
## 800 3.190
## 801 3.796
## 802 4.580
## 803 2.980
## 804 3.297
## 805 3.665
## 806 4.124
## 807 5.202
## 808 5.996
## 809 3.151
## 810 3.046
## 811 3.123
## 812 3.954
## 813 4.953
## 814 4.734
## 815 4.351
## 816 4.158
## 817 4.785
## 818 4.613
## 819 4.059
## 820 3.568
## 821 2.531
## 822 3.879
## 823 2.486
## 824 2.797
## 825 3.603
## 826 4.378
## 827 3.614
## 828 3.803
## 829 4.810
## 830 4.209
## 831 2.713
## 832 3.945
## 833 4.710
## 834 4.260
## 835 5.266
## 836 5.205
## 837 3.030
## 838 5.753
## 839 3.617
## 840 3.861
## 841 3.976
## 842 3.154
## 843 5.173
## 844 4.024
## 845 4.003
## 846 4.386
## 847 3.689
## 848 3.696
## 849 4.144
## 850 5.622
## 851 4.768
## 852 3.983
## 853 2.643
## 854 5.329
## 855 5.073
## 856 4.076
## 857 3.083
## 858 3.576
## 859 4.430
## 860 2.992
## 861 4.851
## 862 2.426
## 863 3.510
## 864 5.247
## 865 5.065
## 866 2.570
## 867 3.524
## 868 5.512
## 869 3.576
## 870 2.728
## 871 4.503
## 872 4.382
## 873 3.429
## 874 3.382
## 875 5.679
## 876 6.070
## 877 3.259
## 878 4.931
## 879 1.539
## 880 4.196
## 881 4.297
## 882 5.221
## 883 3.631
## 884 2.772
## 885 3.581
## 886 4.140
## 887 4.360
## 888 5.603
## 889 4.443
## 890 3.130
## 891 2.695
## 892 2.797
## 893 4.132
## 894 5.089
## 895 4.190
## 896 2.911
## 897 3.893
## 898 1.842
## 899 3.400
## 900 4.416
## 901 3.998
## 902 2.746
## 903 3.189
## 904 2.996
## 905 4.846
## 906 5.292
## 907 3.164
## 908 5.356
## 909 2.484
## 910 3.838
## 911 4.037
## 912 3.668
## 913 2.666
## 914 4.271
## 915 4.433
## 916 5.399
## 917 4.111
## 918 4.759
## 919 4.095
## 920 4.458
## 921 4.111
## 922 4.528
## 923 3.084
## 924 4.234
## 925 4.141
## 926 4.754
## 927 3.786
## 928 4.209
## 929 1.588
## 930 5.047
## 931 4.216
## 932 3.335
## 933 3.878
## 934 4.688
## 935 3.622
## 936 2.386
## 937 5.020
## 938 3.913
## 939 2.696
## 940 5.213
## 941 3.156
## 942 3.055
## 943 5.992
## 944 4.663
## 945 6.342
## 946 4.072
## 947 3.904
## 948 2.921
## 949 3.363
## 950 4.684
## 951 5.105
## 952 5.131
## 953 5.619
## 954 4.224
## 955 4.378
## 956 4.585
## 957 2.433
## 958 4.633
## 959 2.621
## 960 4.653
## 961 5.255
## 962 3.716
## 963 3.128
## 964 2.333
## 965 2.958
## 966 2.782
## 967 4.328
## 968 4.413
## 969 3.634
## 970 4.854
## 971 5.255
## 972 3.953
## 973 4.217
## 974 4.867
## 975 5.730
## 976 2.900
## 977 5.608
## 978 4.587
## 979 4.800
## 980 3.791
## 981 4.378
## 982 2.682
## 983 3.428
## 984 2.423
## 985 3.072
## 986 3.239
## 987 4.078
## 988 3.974
## 989 5.238
## 990 4.753
## 991 5.635
## 992 4.556
## 993 3.249
## 994 3.362
## 995 3.598
## 996 2.856
## 997 4.371
## 998 5.548
## 999 4.400
## 1000 4.350
## 1001 2.781
## 1002 2.929
## 1003 4.577
## 1004 5.868
## 1005 5.030
## 1006 4.184
## 1007 4.820
## 1008 3.904
## 1009 3.624
## 1010 4.206
## 1011 3.543
## 1012 4.142
## 1013 3.252
## 1014 5.401
## 1015 5.828
## 1016 3.965
## 1017 1.754
## 1018 2.075
## 1019 5.170
## 1020 6.108
## 1021 3.240
## 1022 4.630
## 1023 4.550
## 1024 4.891
## 1025 4.513
## 1026 3.540
## 1027 3.238
## 1028 5.640
## 1029 4.875
## 1030 3.360
## 1031 4.186
## 1032 5.334
## 1033 5.168
## 1034 3.308
## 1035 4.752
## 1036 4.063
## 1037 2.471
## 1038 3.248
## 1039 3.718
## 1040 2.832
## 1041 3.269
## 1042 5.298
## 1043 4.343
## 1044 5.378
## 1045 5.232
## 1046 5.243
## 1047 4.756
## 1048 3.470
## 1049 2.787
## 1050 4.797
## 1051 3.800
## 1052 3.559
## 1053 4.366
## 1054 3.745
## 1055 5.408
## 1056 3.880
## 1057 5.242
## 1058 3.830
## 1059 3.719
## 1060 4.187
## 1061 4.068
## 1062 3.110
## 1063 4.075
## 1064 3.149
## 1065 5.914
## 1066 3.401
## 1067 5.849
## 1068 6.322
## 1069 4.330
## 1070 4.329
## 1071 4.853
## 1072 3.553
## 1073 2.800
## 1074 3.240
## 1075 4.642
## 1076 3.316
## 1077 3.865
## 1078 5.108
## 1079 3.436
## 1080 3.193
## 1081 5.050
## 1082 3.973
## 1083 3.759
## 1084 4.127
## 1085 6.241
## 1086 5.105
## 1087 4.641
## 1088 4.324
## 1089 3.181
## 1090 3.097
## 1091 4.117
## 1092 4.492
## 1093 5.170
## 1094 3.019
## 1095 4.809
## 1096 3.367
## 1097 3.474
## 1098 3.385
## 1099 3.443
## 1100 5.078
## 1101 2.598
## 1102 3.372
## 1103 5.932
## 1104 3.370
## 1105 3.812
## 1106 3.375
## 1107 3.938
## 1108 4.958
## 1109 3.887
## 1110 5.573
## 1111 3.890
## 1112 3.679
## 1113 3.534
## 1114 3.498
## 1115 4.898
## 1116 3.792
## 1117 5.408
## 1118 2.826
## 1119 2.821
## 1120 3.556
## 1121 3.788
## 1122 4.477
## 1123 3.400
## 1124 6.086
## 1125 4.438
## 1126 6.090
## 1127 3.576
## 1128 4.086
## 1129 3.675
## 1130 4.116
## 1131 3.177
## 1132 4.039
## 1133 3.701
## 1134 4.320
## 1135 5.548
## 1136 4.261
## 1137 4.688
## 1138 5.574
## 1139 4.485
## 1140 4.493
## 1141 1.290
## 1142 2.494
## 1143 2.973
## 1144 3.912
## 1145 4.265
## 1146 5.197
## 1147 2.956
## 1148 4.588
## 1149 3.848
## 1150 5.558
## 1151 3.438
## 1152 3.726
## 1153 3.862
## 1154 4.857
## 1155 4.326
## 1156 1.084
## 1157 3.399
## 1158 4.416
## 1159 3.706
## 1160 3.124
## 1161 3.639
## 1162 5.469
## 1163 4.232
## 1164 4.397
## 1165 1.843
## 1166 2.904
## 1167 3.930
## 1168 5.864
## 1169 5.376
## 1170 3.350
## 1171 3.278
## 1172 3.015
## 1173 4.286
## 1174 3.549
## 1175 3.571
## 1176 2.651
## 1177 4.169
## 1178 4.552
## 1179 4.277
## 1180 3.605
## 1181 2.878
## 1182 3.773
## 1183 2.908
## 1184 2.923
## 1185 2.698
## 1186 2.449
## 1187 5.857
## 1188 3.115
## 1189 4.572
## 1190 3.583
## 1191 5.524
## 1192 3.936
## 1193 0.937
## 1194 3.370
## 1195 3.201
## 1196 4.254
## 1197 3.889
## 1198 3.716
## 1199 3.935
## 1200 4.152
## 1201 4.842
## 1202 4.362
## 1203 3.366
## 1204 4.942
## 1205 6.322
## 1206 2.941
## 1207 3.547
## 1208 4.944
## 1209 5.111
## 1210 3.112
## 1211 4.633
## 1212 3.087
## 1213 4.591
## 1214 3.521
## 1215 5.863
## 1216 3.378
## 1217 5.240
## 1218 5.149
## 1219 3.222
## 1220 4.786
## 1221 2.656
## 1222 3.382
## 1223 3.262
## 1224 5.545
## 1225 4.794
## 1226 4.686
## 1227 4.607
## 1228 3.930
## 1229 4.312
## 1230 4.551
## 1231 3.818
## 1232 5.143
## 1233 4.131
## 1234 5.036
## 1235 3.783
## 1236 3.961
## 1237 4.147
## 1238 4.006
## 1239 3.216
## 1240 4.311
## 1241 4.338
## 1242 5.102
## 1243 4.549
## 1244 4.638
## 1245 3.269
## 1246 4.908
## 1247 4.650
## 1248 5.246
## 1249 4.196
## 1250 4.390
## 1251 5.254
## 1252 4.200
## 1253 5.600
## 1254 3.869
## 1255 5.581
## 1256 4.185
## 1257 2.659
## 1258 4.344
## 1259 4.480
## 1260 3.765
## 1261 3.036
## 1262 5.254
## 1263 5.896
## 1264 5.623
## 1265 4.915
## 1266 5.173
## 1267 2.990
## 1268 3.278
## 1269 3.737
## 1270 4.101
## 1271 2.177
## 1272 3.564
## 1273 3.481
## 1274 3.995
## 1275 3.487
## 1276 4.302
## 1277 4.680
## 1278 2.744
## 1279 4.626
## 1280 2.657
## 1281 3.334
## 1282 3.445
## 1283 4.674
## 1284 5.465
## 1285 3.000
## 1286 5.162
## 1287 4.168
## 1288 3.044
## 1289 5.752
## 1290 4.548
## 1291 5.582
## 1292 5.033
## 1293 3.968
## 1294 5.232
## 1295 3.183
## 1296 4.579
## 1297 4.832
## 1298 4.233
## 1299 2.811
## 1300 4.621
## 1301 4.157
## 1302 2.883
## 1303 3.345
## 1304 3.549
## 1305 3.782
## 1306 4.964
## 1307 5.557
## 1308 4.173
## 1309 4.725
## 1310 4.488
## 1311 5.090
## 1312 4.041
## 1313 4.439
## 1314 3.680
## 1315 3.988
## 1316 4.770
## 1317 3.875
## 1318 5.043
## 1319 3.004
## 1320 2.541
## 1321 4.743
## 1322 2.044
## 1323 4.961
## 1324 4.421
## 1325 5.022
## 1326 4.059
## 1327 3.512
## 1328 5.980
## 1329 5.149
## 1330 4.895
## 1331 4.966
## 1332 3.314
## 1333 4.732
## 1334 6.176
## 1335 5.061
## 1336 5.210
## 1337 4.336
## 1338 4.594
## 1339 3.507
## 1340 5.514
## 1341 3.694
## 1342 3.466
## 1343 3.997
## 1344 4.809
## 1345 4.334
## 1346 2.590
## 1347 5.090
## 1348 4.124
## 1349 5.057
## 1350 2.058
## 1351 5.192
## 1352 3.886
## 1353 3.409
## 1354 3.648
## 1355 3.165
## 1356 2.539
## 1357 6.322
## 1358 5.002
## 1359 2.778
## 1360 4.064
## 1361 6.127
## 1362 3.302
## 1363 5.102
## 1364 3.748
## 1365 4.008
## 1366 2.902
## 1367 3.350
## 1368 5.407
## 1369 4.467
## 1370 4.410
## 1371 2.785
## 1372 3.434
## 1373 4.246
## 1374 3.732
## 1375 3.068
## 1376 3.542
## 1377 4.117
## 1378 4.005
## 1379 3.970
## 1380 3.282
## 1381 4.817
## 1382 4.876
## 1383 4.959
## 1384 5.401
## 1385 2.901
## 1386 4.257
## 1387 4.569
## 1388 1.938
## 1389 4.038
## 1390 3.199
## 1391 3.917
## 1392 3.895
## 1393 4.094
## 1394 4.261
## 1395 3.686
## 1396 3.381
## 1397 4.619
## 1398 3.678
## 1399 4.722
## 1400 3.227
## 1401 5.344
## 1402 3.171
## 1403 1.898
## 1404 3.801
## 1405 3.112
## 1406 4.903
## 1407 3.601
## 1408 3.935
## 1409 1.102
## 1410 4.283
## 1411 4.277
## 1412 3.847
## 1413 4.685
## 1414 4.572
## 1415 2.716
## 1416 4.763
## 1417 6.322
## 1418 4.302
## 1419 4.374
## 1420 3.544
## 1421 4.945
## 1422 4.272
## 1423 4.002
## 1424 3.669
## 1425 3.815
## 1426 4.748
## 1427 5.130
## 1428 6.387
## 1429 4.589
## 1430 3.975
## 1431 4.926
## 1432 3.950
## 1433 5.923
## 1434 3.925
## 1435 4.074
## 1436 4.972
## 1437 4.208
## 1438 2.891
## 1439 3.502
## 1440 4.306
## 1441 4.088
## 1442 4.574
## 1443 3.693
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans3=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans3)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 43.79 54.97 55.55 66.98 100.00
round(sd(IH_trans3),2)
## [1] 17.07
ECM
#ERROR DE ESTIMACIÓN (EE)
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=CaliyPalmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 1:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:16])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 54.97248 55.06422 55.33945 55.19266 53.98165 54.66055 55.17431 54.55046
## [9] 55.24771 55.02752 54.49541 55.35780 54.18349 55.13761 54.58716 54.58716
## [17] 55.17431 54.97248 55.96330 54.60550 55.35780 55.17431 55.21101 55.55963
## [25] 55.15596 55.13761 55.28440 55.00917 55.26606 54.00000 54.89908 55.15596
## [33] 55.24771 55.00917 55.55963 55.00917 55.33945 55.13761 54.67890 55.02752
## [41] 54.44037 54.00000 54.67890 55.28440 53.54128 55.48624 55.33945 55.76147
## [49] 55.19266 55.06422 54.82569 54.91743 56.40367 54.12844 55.88991 54.66055
## [57] 53.72477 55.00917 55.74312 55.02752 54.60550 54.38532 54.67890 54.49541
## [65] 53.98165 54.31193 54.91743 54.66055 54.66055 54.29358 55.00917 54.97248
## [73] 55.13761 54.91743 54.71560 53.96330 55.63303 53.90826 54.95413 54.23853
## [81] 56.34862 55.72477 54.91743 56.23853 55.65138 55.00917 55.94495 55.06422
## [89] 53.90826 54.51376 55.65138 54.84404 54.97248 54.82569 54.84404 55.00917
## [97] 55.13761 54.67890 55.04587 55.04587 54.51376 54.95413 55.65138 55.70642
## [105] 54.82569 54.44037 54.95413 54.84404 54.91743 55.28440 54.67890 54.00000
## [113] 54.97248 55.00917 54.38532 55.55963 55.04587 56.14679 55.00917 54.23853
## [121] 54.00000 55.24771 54.49541 55.70642 54.55046 54.60550 54.56881 54.73394
## [129] 54.00000 55.61468 55.24771 55.61468 54.91743 54.44037 54.91743 55.00917
## [137] 55.00917 55.24771 54.91743 56.23853 54.97248 55.35780 56.27523 54.55046
## [145] 54.27523 55.48624 54.67890 54.95413 54.49541 54.89908 55.61468 55.17431
## [153] 54.11009 54.84404 55.00917 54.73394 55.61468 54.56881 55.13761 55.00917
## [161] 55.35780 54.91743 54.67890 53.76147 55.06422 55.70642 55.21101 55.24771
## [169] 55.65138 55.24771 54.56881 54.58716 54.91743 54.67890 54.91743 56.07339
## [177] 55.33945 55.74312 54.95413 54.91743 56.42202 54.73394 56.14679 54.51376
## [185] 54.67890 55.94495 55.13761 53.79817 55.00917 55.00917 54.49541 54.95413
## [193] 54.44037 55.00917 54.95413 55.65138 53.39450 55.48624 55.61468 55.00917
## [201] 55.65138 55.15596 53.79817 56.11009 55.35780 54.97248 54.16514 55.24771
## [209] 55.70642 55.02752 54.71560 54.91743 55.35780 54.91743 53.76147 56.34862
## [217] 55.55963 55.33945 54.38532 54.91743 55.61468 54.44037 55.61468 54.91743
## [225] 55.15596 54.84404 55.70642 54.66055 55.33945 54.44037 55.15596 55.00917
## [233] 55.76147 55.00917 54.73394 55.33945 55.17431 55.63303 54.18349 54.66055
## [241] 55.55963 54.67890 55.17431 54.60550 56.16514 55.06422 54.29358 55.02752
## [249] 54.89908 55.96330 55.76147 54.51376 54.97248 54.51376 55.00917 56.29358
## [257] 55.26606 54.67890 55.33945 55.02752 54.12844 54.89908 54.56881 54.67890
## [265] 53.63303 54.67890 54.67890 55.63303 54.38532 55.06422 55.13761 54.60550
## [273] 55.02752 55.00917 55.21101 55.02752 53.76147 55.13761 54.71560 54.66055
## [281] 54.89908 53.90826 55.35780 55.65138 55.33945 55.35780 54.84404 54.51376
## [289] 55.33945 55.26606 54.97248 55.70642 55.72477 54.29358 55.15596 54.91743
## [297] 55.13761 54.29358 54.18349 55.02752 54.84404 55.33945 55.94495 55.48624
## [305] 54.60550 55.35780 54.00000 54.91743 54.56881 54.58716 55.33945 54.67890
## [313] 55.26606 54.38532 55.35780 54.95413 53.76147 56.16514 54.71560 55.35780
## [321] 54.00000 55.00917 55.26606 55.65138 55.35780 55.70642 54.44037 55.00917
## [329] 55.13761 54.67890 55.65138 54.60550 54.84404 55.00917 55.00917 55.26606
## [337] 54.67890 54.67890 54.91743 55.24771 55.63303 54.67890 55.48624 55.74312
## [345] 54.00000 54.73394 55.70642 54.55046 55.21101 55.19266 54.00000 55.63303
## [353] 54.23853 55.17431 55.00917 55.26606 54.56881 54.49541 53.65138 55.35780
## [361] 54.95413 54.91743 54.95413 55.94495 56.31193 55.13761 54.55046 55.00917
## [369] 54.55046 54.58716 55.26606 55.94495 55.00917 55.35780 55.76147 56.27523
## [377] 54.91743 55.33945 55.33945 54.67890 54.55046 55.88991 54.84404 55.00917
## [385] 54.91743 56.27523 55.63303 54.67890 55.55963 54.95413 53.96330 55.70642
## [393] 53.72477 55.55963 54.60550 55.13761 55.00917 54.95413 55.02752 55.00917
## [401] 53.76147 55.48624 54.44037 55.65138 54.82569 55.55963 54.00000 54.84404
## [409] 55.74312 54.55046 56.23853 55.21101 55.28440 55.02752 54.55046 54.82569
## [417] 54.27523 54.71560 55.65138 55.88991 55.24771 54.97248 53.79817 54.67890
## [425] 54.66055 54.91743 55.00917 55.74312 55.00917 55.26606 56.25688 55.00917
## [433] 54.38532 54.82569 54.66055 55.00917 55.70642 54.95413 54.00000 55.24771
## [441] 55.63303 54.16514 53.98165 55.00917 55.15596 55.28440 54.51376 55.76147
## [449] 55.74312 55.35780 54.29358 55.02752 55.35780 55.63303 54.58716 54.95413
## [457] 54.91743 55.17431 55.63303 54.11009 54.67890 54.67890 55.72477 55.55963
## [465] 55.48624 54.71560 54.91743 55.96330 56.11009 54.44037 54.97248 55.63303
## [473] 54.82569 55.70642 54.91743 55.28440 54.67890 55.00917 55.74312 54.60550
## [481] 55.21101 55.33945 55.28440 55.55963 54.44037 55.35780 54.91743 55.88991
## [489] 54.67890 55.28440 54.89908 55.00917 53.74312 54.67890 54.71560 55.00917
## [497] 55.04587 54.29358 55.48624 55.21101 55.88991 54.66055 55.70642 54.55046
## [505] 54.66055 54.56881 55.02752 54.55046 55.15596 54.82569 54.44037 55.15596
## [513] 55.65138 54.23853 54.97248 54.82569 54.97248 54.27523 55.21101 54.51376
## [521] 55.06422 54.66055 54.89908 55.24771 55.06422 55.15596 54.56881 55.13761
## [529] 54.67890 55.21101 56.27523 55.19266 54.97248 54.67890 55.00917 55.65138
## [537] 55.24771 54.67890 56.23853 54.91743 54.44037 55.28440 54.67890 54.66055
## [545] 53.54128 55.70642 54.91743 55.55963 54.89908 55.70642 54.16514 54.91743
## [553] 54.95413 55.74312 55.00917 54.82569 55.35780 53.68807 54.56881 55.26606
## [561] 55.61468 54.73394 54.44037 55.26606 53.59633 54.11009 55.35780 55.28440
## [569] 55.15596 54.97248 55.04587 55.15596 54.00000 55.35780 55.17431 55.70642
## [577] 55.13761 54.91743 54.67890 54.91743 55.70642 55.65138 54.73394 55.33945
## [585] 55.65138 55.55963 55.15596 54.66055 54.11009 54.00000 55.21101 54.38532
## [593] 55.17431 55.35780 54.31193 55.26606 55.28440 54.18349 54.73394 54.91743
## [601] 55.35780 54.71560 55.00917 54.97248 55.48624 54.66055 55.13761 55.74312
## [609] 55.72477 54.44037 55.33945 54.91743 54.73394 54.58716 54.27523 55.61468
## [617] 55.33945 55.35780 54.67890 53.74312 54.38532 55.04587 54.66055 54.89908
## [625] 55.65138 54.31193 54.38532 55.61468 54.51376 54.00000 54.23853 55.33945
## [633] 54.58716 54.00000 55.00917 55.00917 55.19266 54.60550 55.06422 55.55963
## [641] 55.70642 54.51376 55.24771 55.65138 55.02752 54.91743 54.29358 54.29358
## [649] 55.33945 54.44037 55.00917 54.29358 54.97248 54.00000 54.18349 55.26606
## [657] 55.15596 55.15596 55.65138 54.66055 54.51376 55.00917 54.82569 54.89908
## [665] 55.04587 54.27523 54.95413 54.95413 54.44037 55.35780 54.67890 55.21101
## [673] 53.98165 55.70642 54.73394 55.13761 53.98165 54.27523 55.19266 54.95413
## [681] 55.00917 55.00917 55.15596 54.67890 55.06422 55.26606 54.58716 55.15596
## [689] 55.33945 55.13761 55.04587 53.59633 55.33945 55.33945 54.44037 55.19266
## [697] 54.44037 53.98165 54.67890 55.63303 55.04587 55.26606 54.84404 54.95413
## [705] 55.70642 54.95413 55.00917 55.21101 55.35780 55.02752 54.67890 55.55963
## [713] 54.12844 54.82569 55.17431 54.97248 55.13761 54.66055 54.12844 55.74312
## [721] 53.65138 55.19266 54.44037 54.84404 55.04587 54.67890 54.58716 54.97248
## [729] 55.00917 55.04587 54.91743 54.60550 55.35780 53.39450 55.19266 55.63303
## [737] 54.84404 54.84404 54.67890 54.18349 54.60550 54.23853 55.15596 55.35780
## [745] 54.58716 55.13761 54.84404 54.56881 55.00917 54.58716 55.65138 55.04587
## [753] 55.65138 55.17431 54.67890 54.67890 54.82569 55.48624 55.61468 55.33945
## [761] 54.66055 54.67890 54.91743 54.31193 54.82569 55.26606 54.84404 54.84404
## [769] 54.67890 54.84404 55.94495 55.35780 54.44037 54.44037 54.67890 55.00917
## [777] 54.95413 54.38532 55.33945 54.49541 55.35780 54.51376 55.48624 55.72477
## [785] 55.70642 55.06422 55.21101 54.67890 53.98165 55.13761 55.13761 54.29358
## [793] 54.89908 55.48624 55.17431 54.58716 54.44037 54.71560 55.17431 55.19266
## [801] 55.26606 55.17431 54.71560 54.91743 55.13761 55.70642 54.11009 53.72477
## [809] 55.70642 55.63303 54.44037 55.21101 55.02752 55.17431 54.84404 54.84404
## [817] 54.97248 54.11009 55.00917 54.00000 54.91743 54.67890 55.04587 54.67890
## [825] 54.95413 55.26606 55.26606 55.13761 55.17431 55.55963 54.84404 54.58716
## [833] 55.76147 54.55046 55.17431 55.96330 55.48624 54.66055 54.27523 56.31193
## [841] 54.49541 55.13761 54.97248 55.04587 55.04587 55.13761 54.89908 55.48624
## [849] 54.71560 54.71560 55.35780 55.24771 55.00917 54.91743 54.71560 54.84404
## [857] 54.84404 55.35780 54.89908 55.76147 54.67890 55.28440 55.61468 54.91743
## [865] 55.33945 56.23853 55.21101 55.55963 54.95413 54.51376 55.00917 55.70642
## [873] 55.33945 54.82569 55.24771 55.74312 54.91743 55.15596 55.74312 54.71560
## [881] 53.96330 56.23853 54.95413 55.00917 54.82569 54.66055 54.44037 55.19266
## [889] 55.33945 55.15596 54.38532 55.17431 54.56881 55.28440 54.58716 53.98165
## [897] 55.33945 54.97248 54.91743 53.98165 55.24771 56.29358 55.04587 55.17431
## [905] 55.63303 55.04587 55.61468 54.18349 55.33945 54.73394 53.98165 54.91743
## [913] 55.48624 55.13761 54.23853 55.70642 55.00917 55.55963 55.21101 54.67890
## [921] 54.44037 54.89908 54.73394 55.02752 54.49541 54.67890 55.00917 56.11009
## [929] 54.67890 53.68807 54.71560 54.51376 53.22936 55.48624 54.89908 56.11009
## [937] 55.21101 55.65138 54.89908 55.55963 54.58716 54.66055 55.96330 55.72477
## [945] 54.58716 54.56881 55.21101 54.44037 54.82569 55.00917 54.67890 53.98165
## [953] 54.89908 54.00000 55.19266 55.28440 54.89908 55.00917 56.07339 55.19266
## [961] 55.70642 55.33945 54.60550 54.97248 55.65138 53.41284 55.04587 55.19266
## [969] 53.96330 54.66055 55.19266 54.44037 55.00917 53.90826 55.55963 54.44037
## [977] 53.98165 54.67890 54.82569 55.35780 55.06422 54.84404 54.67890 55.35780
## [985] 54.91743 55.17431 54.16514 54.91743 55.74312 55.55963 54.44037 54.97248
## [993] 54.97248 54.84404 55.02752 55.15596 55.74312 55.48624 55.74312 54.97248
hist(NfinalMedia)
#I_mediana=mean(NfinalMedia);I_mediana
#I_ref=57.01
#EE=I_ref-round(I_mediana,2);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans3))^2+(median(NfinalMedia)-median(IH_trans3))^2,2);EE
## [1] 0.05
Índices por grupos
Datos=CaliyPalmira[,c(19:34)]
pesos=c(
#voluntariedad
#0.50,0.50,
#conocimiento
#0.171,0.220,0.171,0.195,0.244,
#incertidumbre
#0.032,0.024,0.024,
#confianza gubernamental
#0.241,0.276,0.241,0.241,
#confianza sector salud
#0.438,0.563,
#confianza medios
#0.467,0.533,
#probabilidad de contagio
0.164,0.145,0.164,0.127,0.109,0.145,0.145,
#severidad
0.241,0.276,0.276,0.207,
#susceptibilidad
0.222,0.222,0.194,0.167,0.194
#,
#cumplimiento
#0.190,0.190,0.190,0.143,0.143,0.143
)
PROBABILIDAD DE CONTAGIO
temp_K<-c()
lista_vacia <- vector("list", length = 1443)
celsius_to_kelvin <- function(temp_C) {
for (i in 1:7) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:7)]
}
return(datosnew)
};ProbabilidadContagio=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(ProbabilidadContagio[ ,1:7]);IH
## [1] 3.452 3.412 3.759 3.560 3.487 3.796 3.451 4.869 5.595 2.542 2.850 3.776
## [13] 3.468 3.215 5.014 2.868 3.923 3.740 4.396 5.469 5.014 2.395 3.740 3.432
## [25] 4.578 2.996 5.342 4.397 3.993 4.124 4.670 3.993 3.268 5.032 3.214 2.542
## [37] 3.706 5.141 3.778 4.489 5.470 2.813 2.687 3.051 2.997 2.468 3.848 3.759
## [49] 3.287 3.887 3.450 3.632 4.523 5.595 3.431 5.450 2.887 4.414 4.031 4.049
## [61] 4.813 3.306 2.033 3.488 4.342 3.741 4.177 3.905 4.996 4.851 3.722 4.341
## [73] 3.887 1.980 4.196 3.778 3.960 4.068 5.159 3.397 4.414 4.796 4.523 4.432
## [85] 2.723 3.759 3.778 4.996 5.469 4.869 2.433 3.068 3.433 3.507 3.614 5.196
## [97] 4.269 2.686 2.686 5.595 4.522 3.740 3.742 4.359 6.195 5.196 2.631 4.469
## [109] 3.595 3.887 4.340 4.705 5.141 4.523 3.249 2.976 4.869 5.141 2.343 5.014
## [121] 3.104 5.324 4.141 3.886 2.305 3.141 4.813 4.487 5.778 2.506 4.742 5.178
## [133] 5.759 2.816 3.759 2.979 3.397 6.195 5.759 3.833 4.580 3.523 2.832 3.725
## [145] 4.599 4.396 3.432 4.813 4.632 3.978 3.305 3.977 5.469 3.558 4.031 3.304
## [157] 4.068 3.652 3.360 5.814 3.905 5.013 3.142 3.886 4.289 5.759 4.052 2.996
## [169] 5.614 3.578 5.431 4.724 4.142 2.651 4.813 5.305 4.813 3.791 3.596 3.742
## [181] 3.866 3.033 5.759 3.014 4.995 3.379 2.523 3.468 3.669 2.959 5.450 4.996
## [193] 5.615 2.559 5.759 3.358 4.359 1.816 3.197 4.124 5.211 4.506 4.742 4.667
## [205] 3.577 4.124 5.286 2.814 3.431 4.068 5.450 2.776 4.050 4.378 4.471 4.541
## [217] 3.979 3.646 4.227 5.286 3.576 3.559 3.868 4.269 4.687 5.469 3.923 3.796
## [229] 4.485 3.615 2.705 3.341 3.577 3.740 4.105 2.070 1.798 3.341 3.594 3.394
## [241] 4.434 4.360 4.359 3.487 3.324 2.359 3.465 5.759 4.123 4.087 4.940 2.814
## [253] 3.796 2.868 3.450 3.051 3.759 3.613 4.995 4.396 5.014 3.997 3.305 2.760
## [265] 3.087 4.269 3.486 4.868 3.632 3.214 3.942 3.123 3.413 3.433 4.523 3.960
## [277] 5.759 5.159 5.141 5.179 4.269 4.741 5.286 3.341 3.230 4.085 4.923 5.142
## [289] 4.032 4.123 4.068 3.487 3.323 3.015 3.087 2.234 3.160 4.869 4.541 5.759
## [301] 2.725 4.178 4.232 5.123 5.759 4.906 2.941 3.758 4.104 5.160 4.559 4.995
## [313] 3.778 3.996 5.305 3.053 4.414 1.833 4.251 4.269 3.742 3.633 3.286 2.541
## [325] 3.669 4.068 5.632 4.050 3.941 2.597 4.106 3.887 5.287 4.832 3.286 3.395
## [337] 3.904 4.049 3.597 1.598 3.211 4.723 4.250 3.759 3.651 4.433 4.049 4.341
## [349] 4.869 6.195 5.104 3.597 4.486 5.179 4.504 3.960 5.413 5.559 3.834 4.341
## [361] 3.778 4.213 2.724 3.595 4.340 3.431 5.450 4.541 5.759 3.523 3.832 5.431
## [373] 4.996 3.704 3.468 3.671 5.759 3.088 4.705 3.922 3.343 3.486 3.796 4.068
## [385] 5.015 3.596 4.887 3.686 3.686 3.759 3.595 3.015 4.579 2.796 5.014 4.322
## [397] 3.141 4.996 3.632 3.868 3.924 3.670 2.941 4.176 3.468 2.927 3.233 4.523
## [409] 4.958 3.597 5.759 3.978 2.940 2.196 4.687 5.050 2.794 4.485 2.817 3.122
## [421] 3.524 2.707 4.907 4.358 3.870 4.359 6.195 4.524 3.361 3.742 4.251 5.469
## [433] 2.540 3.449 5.469 5.759 3.725 4.087 4.160 3.523 3.833 2.396 4.123 4.303
## [445] 3.594 3.323 2.960 4.340 4.523 4.069 5.104 5.577 4.668 6.195 3.415 4.016
## [457] 4.214 5.450 4.049 5.923 3.703 3.960 4.850 3.595 3.886 4.251 4.578 4.560
## [469] 6.068 5.432 6.195 4.231 4.596 5.105 4.940 6.195 4.486 4.286 5.595 5.287
## [481] 4.231 5.104 4.250 5.304 4.141 4.850 4.123 4.741 5.122 3.906 4.705 5.595
## [493] 4.940 5.632 6.031 4.288 3.704 4.197 4.650 4.958 2.651 5.431 3.759 4.599
## [505] 4.396 3.760 4.358 3.688 3.378 4.249 3.304 4.232 4.668 3.414 2.887 2.924
## [517] 5.014 5.651 3.558 4.488 4.396 3.887 4.176 3.413 4.197 6.031 5.796 1.670
## [529] 5.558 4.303 4.522 3.867 4.087 4.068 4.195 3.412 3.378 3.106 4.812 3.815
## [541] 4.779 4.213 3.832 4.814 5.267 4.578 4.359 4.105 4.759 3.687 4.596 6.195
## [553] 4.123 3.085 3.449 3.884 5.068 3.777 5.432 1.670 3.323 4.359 6.195 4.705
## [565] 3.741 3.558 4.596 3.942 3.250 5.104 4.921 5.450 2.051 4.250 2.269 5.287
## [577] 4.070 4.760 4.813 4.667 4.868 5.431 3.779 4.397 4.359 3.848 5.342 4.650
## [589] 2.979 4.031 4.250 5.431 4.232 4.850 3.123 4.414 3.867 3.523 4.850 4.105
## [601] 5.577 4.616 4.631 4.395 1.888 3.922 5.141 4.177 4.850 3.740 3.581 4.886
## [613] 5.249 4.776 5.249 3.832 2.872 4.958 4.902 4.578 3.541 4.523 2.433 5.268
## [625] 6.195 3.195 4.725 4.321 3.595 3.214 5.614 3.796 3.286 6.195 4.269 4.467
## [637] 4.776 6.195 4.087 3.033 0.999 4.757 4.560 4.179 2.761 3.124 3.614 5.305
## [649] 5.305 6.195 4.504 4.359 5.305 4.232 3.540 5.394 4.868 5.104 4.995 6.195
## [661] 5.122 4.705 5.615 4.596 5.305 5.032 3.357 6.031 3.632 4.596 6.050 3.216
## [673] 5.215 6.195 6.195 4.214 4.232 2.416 4.705 3.488 4.069 4.542 4.486 3.941
## [685] 5.268 2.397 4.504 4.741 4.486 4.760 4.486 5.577 3.669 4.359 4.705 4.321
## [697] 4.832 3.139 4.560 4.125 2.958 5.432 3.650 4.415 4.689 3.941 5.867 5.104
## [709] 3.360 4.414 5.760 5.722 3.105 3.852 5.450 2.595 4.214 4.574 4.105 4.395
## [721] 3.959 3.395 4.958 5.287 4.232 4.813 4.832 2.796 6.195 3.940 3.177 3.889
## [733] 2.668 4.268 4.068 3.740 3.704 4.542 4.451 4.105 4.977 4.850 3.866 4.705
## [745] 4.303 5.178 4.467 3.924 5.141 4.504 5.323 4.214 6.195 4.378 4.232 4.667
## [757] 4.358 4.977 4.233 4.578 3.815 4.377 4.380 4.596 3.360 3.615 3.597 3.178
## [769] 3.469 2.414 3.342 4.049 4.850 5.432 2.015 5.050 4.434 6.195 5.778 5.886
## [781] 5.249 4.977 5.141 4.560 5.615 5.141 5.450 4.504 3.014 5.122 2.541 5.249
## [793] 4.105 3.925 3.777 5.085 3.886 4.358 3.740 5.905 4.523 3.650 2.887 3.796
## [805] 3.706 5.432 6.050 6.050 3.994 4.250 4.250 4.851 5.722 5.432 4.104 4.232
## [817] 4.378 3.722 3.866 3.526 2.960 4.669 3.960 3.396 4.358 5.268 4.504 5.141
## [829] 4.559 4.287 3.376 5.867 4.850 4.741 5.595 6.031 2.944 6.195 3.558 3.415
## [841] 4.433 3.922 4.668 4.560 4.359 5.122 4.887 2.361 4.451 6.050 4.958 3.832
## [853] 3.614 5.287 4.378 4.888 3.959 4.122 4.977 4.139 4.977 2.650 3.941 4.687
## [865] 4.704 4.034 3.759 5.577 4.611 3.414 5.451 4.342 3.852 3.814 5.867 6.195
## [877] 3.906 5.558 1.454 5.013 4.432 5.122 4.287 2.906 3.706 4.577 4.322 6.195
## [889] 4.359 4.577 3.016 3.777 4.051 3.777 4.523 3.142 3.614 3.234 4.105 4.232
## [901] 5.051 3.687 4.649 5.287 5.886 5.595 3.379 5.014 3.233 3.360 4.160 2.869
## [913] 4.743 3.923 2.706 5.905 4.322 4.359 3.158 4.397 5.450 4.486 3.960 3.123
## [925] 4.377 5.923 4.593 6.068 1.743 6.068 5.703 3.597 5.886 6.195 4.394 2.958
## [937] 4.850 3.253 3.360 5.905 3.886 3.032 5.558 4.942 5.905 4.359 4.268 3.360
## [949] 2.324 3.450 5.577 5.577 4.850 4.395 4.868 4.560 3.670 4.812 1.688 4.105
## [961] 5.886 3.903 3.307 2.687 3.687 3.159 4.649 3.650 3.706 4.540 4.144 5.506
## [973] 4.251 4.596 5.941 2.742 5.558 4.415 4.596 4.757 5.033 2.651 4.142 2.724
## [985] 3.233 4.105 4.232 5.122 3.502 4.396 4.741 4.359 3.850 4.100 3.597 3.141
## [997] 4.251 4.921 4.377 3.777 2.432 4.015 5.796 6.195 4.997 4.359 5.413 3.777
## [1009] 3.670 4.359 3.141 5.759 3.703 6.050 6.195 4.359 1.853 3.234 4.233 6.195
## [1021] 3.613 3.595 4.250 4.105 4.342 4.757 3.614 6.050 6.195 2.976 4.795 3.886
## [1033] 6.195 4.612 5.122 4.579 3.576 3.940 4.794 3.940 3.669 4.795 5.159 5.450
## [1045] 4.995 4.883 5.249 3.214 2.869 4.359 3.198 5.596 4.850 3.469 5.577 3.851
## [1057] 5.905 4.852 3.032 3.761 4.631 3.450 4.649 4.413 5.905 3.469 5.397 6.195
## [1069] 6.195 5.760 4.814 4.321 2.470 3.341 4.303 4.250 5.905 5.087 3.560 4.251
## [1081] 5.196 3.666 4.414 3.796 5.467 5.413 5.286 4.325 2.959 4.524 2.850 5.140
## [1093] 4.050 3.926 4.523 3.647 3.650 3.523 2.977 4.977 1.960 4.032 6.195 3.937
## [1105] 3.633 3.797 3.742 5.123 3.377 4.522 3.814 3.815 3.759 3.759 4.924 3.141
## [1117] 5.760 4.560 2.942 4.559 4.705 5.050 5.141 6.195 4.977 5.577 4.269 4.723
## [1129] 4.359 3.523 2.778 3.978 4.541 6.068 5.103 4.977 5.614 5.487 4.996 4.414
## [1141] 1.761 2.906 3.141 4.448 4.469 3.886 2.941 4.303 4.504 6.195 3.105 3.979
## [1153] 3.705 4.176 4.940 1.217 4.011 4.287 3.669 3.196 3.796 4.851 3.032 3.504
## [1165] 2.123 4.087 3.833 5.305 6.195 4.433 3.742 3.360 4.161 4.686 3.468 3.631
## [1177] 4.360 4.250 3.305 3.360 2.595 4.124 4.687 3.595 2.542 3.450 6.050 3.124
## [1189] 4.977 3.795 5.959 3.141 0.999 4.014 2.469 4.321 3.759 4.705 4.069 5.032
## [1201] 5.413 4.959 4.687 5.431 6.195 3.051 4.214 4.977 3.250 3.105 5.122 4.213
## [1213] 4.813 4.306 5.614 3.232 6.195 4.959 3.215 4.269 3.833 3.124 2.887 5.595
## [1225] 4.522 5.506 2.869 3.852 4.596 5.923 4.214 5.722 4.340 6.195 4.378 4.631
## [1237] 3.760 4.832 2.813 3.722 4.615 6.195 5.122 3.085 3.614 5.596 5.759 4.486
## [1249] 4.249 5.141 5.595 4.560 5.359 4.197 4.051 3.705 2.707 4.596 5.867 2.486
## [1261] 3.087 5.104 6.195 5.923 5.669 4.850 3.687 3.198 3.540 4.995 2.887 3.452
## [1273] 4.906 2.015 5.905 3.978 4.432 3.251 4.852 2.958 3.195 3.722 4.451 5.432
## [1285] 2.833 4.813 4.194 3.687 5.286 5.249 4.395 4.667 4.105 5.577 3.431 4.359
## [1297] 3.502 3.089 4.433 4.977 4.504 3.014 3.741 3.450 3.706 5.741 4.378 4.340
## [1309] 4.284 4.541 3.614 4.105 5.450 4.397 4.542 5.268 3.378 5.539 3.633 2.979
## [1321] 3.886 3.050 5.304 4.012 5.032 4.269 4.452 6.195 5.196 5.160 4.123 3.215
## [1333] 5.032 6.195 3.413 5.760 5.359 3.830 3.376 5.249 5.632 2.799 4.124 4.668
## [1345] 4.615 4.270 5.905 6.031 4.940 1.998 3.792 3.196 3.632 4.794 3.579 2.489
## [1357] 6.195 5.760 1.890 4.485 6.195 3.688 5.722 3.996 3.848 3.141 3.578 4.214
## [1369] 5.722 3.959 3.815 4.977 4.668 3.943 3.287 4.268 3.885 4.596 3.960 3.577
## [1381] 4.921 4.504 5.413 6.195 3.413 5.014 5.432 2.016 4.250 3.159 4.303 4.705
## [1393] 4.615 5.324 3.830 4.359 5.014 4.524 4.850 4.831 5.595 3.123 2.234 4.650
## [1405] 3.433 4.415 3.303 3.975 1.434 3.795 5.196 3.832 5.013 4.851 3.014 5.015
## [1417] 6.195 3.215 4.415 4.776 5.141 5.142 5.249 4.177 2.996 6.195 6.195 6.195
## [1429] 3.268 4.213 2.777 5.141 4.959 3.796 4.232 2.595 3.487 3.488 4.959 4.794
## [1441] 4.832 3.650 3.703
data.frame(IH)
## IH
## 1 3.452
## 2 3.412
## 3 3.759
## 4 3.560
## 5 3.487
## 6 3.796
## 7 3.451
## 8 4.869
## 9 5.595
## 10 2.542
## 11 2.850
## 12 3.776
## 13 3.468
## 14 3.215
## 15 5.014
## 16 2.868
## 17 3.923
## 18 3.740
## 19 4.396
## 20 5.469
## 21 5.014
## 22 2.395
## 23 3.740
## 24 3.432
## 25 4.578
## 26 2.996
## 27 5.342
## 28 4.397
## 29 3.993
## 30 4.124
## 31 4.670
## 32 3.993
## 33 3.268
## 34 5.032
## 35 3.214
## 36 2.542
## 37 3.706
## 38 5.141
## 39 3.778
## 40 4.489
## 41 5.470
## 42 2.813
## 43 2.687
## 44 3.051
## 45 2.997
## 46 2.468
## 47 3.848
## 48 3.759
## 49 3.287
## 50 3.887
## 51 3.450
## 52 3.632
## 53 4.523
## 54 5.595
## 55 3.431
## 56 5.450
## 57 2.887
## 58 4.414
## 59 4.031
## 60 4.049
## 61 4.813
## 62 3.306
## 63 2.033
## 64 3.488
## 65 4.342
## 66 3.741
## 67 4.177
## 68 3.905
## 69 4.996
## 70 4.851
## 71 3.722
## 72 4.341
## 73 3.887
## 74 1.980
## 75 4.196
## 76 3.778
## 77 3.960
## 78 4.068
## 79 5.159
## 80 3.397
## 81 4.414
## 82 4.796
## 83 4.523
## 84 4.432
## 85 2.723
## 86 3.759
## 87 3.778
## 88 4.996
## 89 5.469
## 90 4.869
## 91 2.433
## 92 3.068
## 93 3.433
## 94 3.507
## 95 3.614
## 96 5.196
## 97 4.269
## 98 2.686
## 99 2.686
## 100 5.595
## 101 4.522
## 102 3.740
## 103 3.742
## 104 4.359
## 105 6.195
## 106 5.196
## 107 2.631
## 108 4.469
## 109 3.595
## 110 3.887
## 111 4.340
## 112 4.705
## 113 5.141
## 114 4.523
## 115 3.249
## 116 2.976
## 117 4.869
## 118 5.141
## 119 2.343
## 120 5.014
## 121 3.104
## 122 5.324
## 123 4.141
## 124 3.886
## 125 2.305
## 126 3.141
## 127 4.813
## 128 4.487
## 129 5.778
## 130 2.506
## 131 4.742
## 132 5.178
## 133 5.759
## 134 2.816
## 135 3.759
## 136 2.979
## 137 3.397
## 138 6.195
## 139 5.759
## 140 3.833
## 141 4.580
## 142 3.523
## 143 2.832
## 144 3.725
## 145 4.599
## 146 4.396
## 147 3.432
## 148 4.813
## 149 4.632
## 150 3.978
## 151 3.305
## 152 3.977
## 153 5.469
## 154 3.558
## 155 4.031
## 156 3.304
## 157 4.068
## 158 3.652
## 159 3.360
## 160 5.814
## 161 3.905
## 162 5.013
## 163 3.142
## 164 3.886
## 165 4.289
## 166 5.759
## 167 4.052
## 168 2.996
## 169 5.614
## 170 3.578
## 171 5.431
## 172 4.724
## 173 4.142
## 174 2.651
## 175 4.813
## 176 5.305
## 177 4.813
## 178 3.791
## 179 3.596
## 180 3.742
## 181 3.866
## 182 3.033
## 183 5.759
## 184 3.014
## 185 4.995
## 186 3.379
## 187 2.523
## 188 3.468
## 189 3.669
## 190 2.959
## 191 5.450
## 192 4.996
## 193 5.615
## 194 2.559
## 195 5.759
## 196 3.358
## 197 4.359
## 198 1.816
## 199 3.197
## 200 4.124
## 201 5.211
## 202 4.506
## 203 4.742
## 204 4.667
## 205 3.577
## 206 4.124
## 207 5.286
## 208 2.814
## 209 3.431
## 210 4.068
## 211 5.450
## 212 2.776
## 213 4.050
## 214 4.378
## 215 4.471
## 216 4.541
## 217 3.979
## 218 3.646
## 219 4.227
## 220 5.286
## 221 3.576
## 222 3.559
## 223 3.868
## 224 4.269
## 225 4.687
## 226 5.469
## 227 3.923
## 228 3.796
## 229 4.485
## 230 3.615
## 231 2.705
## 232 3.341
## 233 3.577
## 234 3.740
## 235 4.105
## 236 2.070
## 237 1.798
## 238 3.341
## 239 3.594
## 240 3.394
## 241 4.434
## 242 4.360
## 243 4.359
## 244 3.487
## 245 3.324
## 246 2.359
## 247 3.465
## 248 5.759
## 249 4.123
## 250 4.087
## 251 4.940
## 252 2.814
## 253 3.796
## 254 2.868
## 255 3.450
## 256 3.051
## 257 3.759
## 258 3.613
## 259 4.995
## 260 4.396
## 261 5.014
## 262 3.997
## 263 3.305
## 264 2.760
## 265 3.087
## 266 4.269
## 267 3.486
## 268 4.868
## 269 3.632
## 270 3.214
## 271 3.942
## 272 3.123
## 273 3.413
## 274 3.433
## 275 4.523
## 276 3.960
## 277 5.759
## 278 5.159
## 279 5.141
## 280 5.179
## 281 4.269
## 282 4.741
## 283 5.286
## 284 3.341
## 285 3.230
## 286 4.085
## 287 4.923
## 288 5.142
## 289 4.032
## 290 4.123
## 291 4.068
## 292 3.487
## 293 3.323
## 294 3.015
## 295 3.087
## 296 2.234
## 297 3.160
## 298 4.869
## 299 4.541
## 300 5.759
## 301 2.725
## 302 4.178
## 303 4.232
## 304 5.123
## 305 5.759
## 306 4.906
## 307 2.941
## 308 3.758
## 309 4.104
## 310 5.160
## 311 4.559
## 312 4.995
## 313 3.778
## 314 3.996
## 315 5.305
## 316 3.053
## 317 4.414
## 318 1.833
## 319 4.251
## 320 4.269
## 321 3.742
## 322 3.633
## 323 3.286
## 324 2.541
## 325 3.669
## 326 4.068
## 327 5.632
## 328 4.050
## 329 3.941
## 330 2.597
## 331 4.106
## 332 3.887
## 333 5.287
## 334 4.832
## 335 3.286
## 336 3.395
## 337 3.904
## 338 4.049
## 339 3.597
## 340 1.598
## 341 3.211
## 342 4.723
## 343 4.250
## 344 3.759
## 345 3.651
## 346 4.433
## 347 4.049
## 348 4.341
## 349 4.869
## 350 6.195
## 351 5.104
## 352 3.597
## 353 4.486
## 354 5.179
## 355 4.504
## 356 3.960
## 357 5.413
## 358 5.559
## 359 3.834
## 360 4.341
## 361 3.778
## 362 4.213
## 363 2.724
## 364 3.595
## 365 4.340
## 366 3.431
## 367 5.450
## 368 4.541
## 369 5.759
## 370 3.523
## 371 3.832
## 372 5.431
## 373 4.996
## 374 3.704
## 375 3.468
## 376 3.671
## 377 5.759
## 378 3.088
## 379 4.705
## 380 3.922
## 381 3.343
## 382 3.486
## 383 3.796
## 384 4.068
## 385 5.015
## 386 3.596
## 387 4.887
## 388 3.686
## 389 3.686
## 390 3.759
## 391 3.595
## 392 3.015
## 393 4.579
## 394 2.796
## 395 5.014
## 396 4.322
## 397 3.141
## 398 4.996
## 399 3.632
## 400 3.868
## 401 3.924
## 402 3.670
## 403 2.941
## 404 4.176
## 405 3.468
## 406 2.927
## 407 3.233
## 408 4.523
## 409 4.958
## 410 3.597
## 411 5.759
## 412 3.978
## 413 2.940
## 414 2.196
## 415 4.687
## 416 5.050
## 417 2.794
## 418 4.485
## 419 2.817
## 420 3.122
## 421 3.524
## 422 2.707
## 423 4.907
## 424 4.358
## 425 3.870
## 426 4.359
## 427 6.195
## 428 4.524
## 429 3.361
## 430 3.742
## 431 4.251
## 432 5.469
## 433 2.540
## 434 3.449
## 435 5.469
## 436 5.759
## 437 3.725
## 438 4.087
## 439 4.160
## 440 3.523
## 441 3.833
## 442 2.396
## 443 4.123
## 444 4.303
## 445 3.594
## 446 3.323
## 447 2.960
## 448 4.340
## 449 4.523
## 450 4.069
## 451 5.104
## 452 5.577
## 453 4.668
## 454 6.195
## 455 3.415
## 456 4.016
## 457 4.214
## 458 5.450
## 459 4.049
## 460 5.923
## 461 3.703
## 462 3.960
## 463 4.850
## 464 3.595
## 465 3.886
## 466 4.251
## 467 4.578
## 468 4.560
## 469 6.068
## 470 5.432
## 471 6.195
## 472 4.231
## 473 4.596
## 474 5.105
## 475 4.940
## 476 6.195
## 477 4.486
## 478 4.286
## 479 5.595
## 480 5.287
## 481 4.231
## 482 5.104
## 483 4.250
## 484 5.304
## 485 4.141
## 486 4.850
## 487 4.123
## 488 4.741
## 489 5.122
## 490 3.906
## 491 4.705
## 492 5.595
## 493 4.940
## 494 5.632
## 495 6.031
## 496 4.288
## 497 3.704
## 498 4.197
## 499 4.650
## 500 4.958
## 501 2.651
## 502 5.431
## 503 3.759
## 504 4.599
## 505 4.396
## 506 3.760
## 507 4.358
## 508 3.688
## 509 3.378
## 510 4.249
## 511 3.304
## 512 4.232
## 513 4.668
## 514 3.414
## 515 2.887
## 516 2.924
## 517 5.014
## 518 5.651
## 519 3.558
## 520 4.488
## 521 4.396
## 522 3.887
## 523 4.176
## 524 3.413
## 525 4.197
## 526 6.031
## 527 5.796
## 528 1.670
## 529 5.558
## 530 4.303
## 531 4.522
## 532 3.867
## 533 4.087
## 534 4.068
## 535 4.195
## 536 3.412
## 537 3.378
## 538 3.106
## 539 4.812
## 540 3.815
## 541 4.779
## 542 4.213
## 543 3.832
## 544 4.814
## 545 5.267
## 546 4.578
## 547 4.359
## 548 4.105
## 549 4.759
## 550 3.687
## 551 4.596
## 552 6.195
## 553 4.123
## 554 3.085
## 555 3.449
## 556 3.884
## 557 5.068
## 558 3.777
## 559 5.432
## 560 1.670
## 561 3.323
## 562 4.359
## 563 6.195
## 564 4.705
## 565 3.741
## 566 3.558
## 567 4.596
## 568 3.942
## 569 3.250
## 570 5.104
## 571 4.921
## 572 5.450
## 573 2.051
## 574 4.250
## 575 2.269
## 576 5.287
## 577 4.070
## 578 4.760
## 579 4.813
## 580 4.667
## 581 4.868
## 582 5.431
## 583 3.779
## 584 4.397
## 585 4.359
## 586 3.848
## 587 5.342
## 588 4.650
## 589 2.979
## 590 4.031
## 591 4.250
## 592 5.431
## 593 4.232
## 594 4.850
## 595 3.123
## 596 4.414
## 597 3.867
## 598 3.523
## 599 4.850
## 600 4.105
## 601 5.577
## 602 4.616
## 603 4.631
## 604 4.395
## 605 1.888
## 606 3.922
## 607 5.141
## 608 4.177
## 609 4.850
## 610 3.740
## 611 3.581
## 612 4.886
## 613 5.249
## 614 4.776
## 615 5.249
## 616 3.832
## 617 2.872
## 618 4.958
## 619 4.902
## 620 4.578
## 621 3.541
## 622 4.523
## 623 2.433
## 624 5.268
## 625 6.195
## 626 3.195
## 627 4.725
## 628 4.321
## 629 3.595
## 630 3.214
## 631 5.614
## 632 3.796
## 633 3.286
## 634 6.195
## 635 4.269
## 636 4.467
## 637 4.776
## 638 6.195
## 639 4.087
## 640 3.033
## 641 0.999
## 642 4.757
## 643 4.560
## 644 4.179
## 645 2.761
## 646 3.124
## 647 3.614
## 648 5.305
## 649 5.305
## 650 6.195
## 651 4.504
## 652 4.359
## 653 5.305
## 654 4.232
## 655 3.540
## 656 5.394
## 657 4.868
## 658 5.104
## 659 4.995
## 660 6.195
## 661 5.122
## 662 4.705
## 663 5.615
## 664 4.596
## 665 5.305
## 666 5.032
## 667 3.357
## 668 6.031
## 669 3.632
## 670 4.596
## 671 6.050
## 672 3.216
## 673 5.215
## 674 6.195
## 675 6.195
## 676 4.214
## 677 4.232
## 678 2.416
## 679 4.705
## 680 3.488
## 681 4.069
## 682 4.542
## 683 4.486
## 684 3.941
## 685 5.268
## 686 2.397
## 687 4.504
## 688 4.741
## 689 4.486
## 690 4.760
## 691 4.486
## 692 5.577
## 693 3.669
## 694 4.359
## 695 4.705
## 696 4.321
## 697 4.832
## 698 3.139
## 699 4.560
## 700 4.125
## 701 2.958
## 702 5.432
## 703 3.650
## 704 4.415
## 705 4.689
## 706 3.941
## 707 5.867
## 708 5.104
## 709 3.360
## 710 4.414
## 711 5.760
## 712 5.722
## 713 3.105
## 714 3.852
## 715 5.450
## 716 2.595
## 717 4.214
## 718 4.574
## 719 4.105
## 720 4.395
## 721 3.959
## 722 3.395
## 723 4.958
## 724 5.287
## 725 4.232
## 726 4.813
## 727 4.832
## 728 2.796
## 729 6.195
## 730 3.940
## 731 3.177
## 732 3.889
## 733 2.668
## 734 4.268
## 735 4.068
## 736 3.740
## 737 3.704
## 738 4.542
## 739 4.451
## 740 4.105
## 741 4.977
## 742 4.850
## 743 3.866
## 744 4.705
## 745 4.303
## 746 5.178
## 747 4.467
## 748 3.924
## 749 5.141
## 750 4.504
## 751 5.323
## 752 4.214
## 753 6.195
## 754 4.378
## 755 4.232
## 756 4.667
## 757 4.358
## 758 4.977
## 759 4.233
## 760 4.578
## 761 3.815
## 762 4.377
## 763 4.380
## 764 4.596
## 765 3.360
## 766 3.615
## 767 3.597
## 768 3.178
## 769 3.469
## 770 2.414
## 771 3.342
## 772 4.049
## 773 4.850
## 774 5.432
## 775 2.015
## 776 5.050
## 777 4.434
## 778 6.195
## 779 5.778
## 780 5.886
## 781 5.249
## 782 4.977
## 783 5.141
## 784 4.560
## 785 5.615
## 786 5.141
## 787 5.450
## 788 4.504
## 789 3.014
## 790 5.122
## 791 2.541
## 792 5.249
## 793 4.105
## 794 3.925
## 795 3.777
## 796 5.085
## 797 3.886
## 798 4.358
## 799 3.740
## 800 5.905
## 801 4.523
## 802 3.650
## 803 2.887
## 804 3.796
## 805 3.706
## 806 5.432
## 807 6.050
## 808 6.050
## 809 3.994
## 810 4.250
## 811 4.250
## 812 4.851
## 813 5.722
## 814 5.432
## 815 4.104
## 816 4.232
## 817 4.378
## 818 3.722
## 819 3.866
## 820 3.526
## 821 2.960
## 822 4.669
## 823 3.960
## 824 3.396
## 825 4.358
## 826 5.268
## 827 4.504
## 828 5.141
## 829 4.559
## 830 4.287
## 831 3.376
## 832 5.867
## 833 4.850
## 834 4.741
## 835 5.595
## 836 6.031
## 837 2.944
## 838 6.195
## 839 3.558
## 840 3.415
## 841 4.433
## 842 3.922
## 843 4.668
## 844 4.560
## 845 4.359
## 846 5.122
## 847 4.887
## 848 2.361
## 849 4.451
## 850 6.050
## 851 4.958
## 852 3.832
## 853 3.614
## 854 5.287
## 855 4.378
## 856 4.888
## 857 3.959
## 858 4.122
## 859 4.977
## 860 4.139
## 861 4.977
## 862 2.650
## 863 3.941
## 864 4.687
## 865 4.704
## 866 4.034
## 867 3.759
## 868 5.577
## 869 4.611
## 870 3.414
## 871 5.451
## 872 4.342
## 873 3.852
## 874 3.814
## 875 5.867
## 876 6.195
## 877 3.906
## 878 5.558
## 879 1.454
## 880 5.013
## 881 4.432
## 882 5.122
## 883 4.287
## 884 2.906
## 885 3.706
## 886 4.577
## 887 4.322
## 888 6.195
## 889 4.359
## 890 4.577
## 891 3.016
## 892 3.777
## 893 4.051
## 894 3.777
## 895 4.523
## 896 3.142
## 897 3.614
## 898 3.234
## 899 4.105
## 900 4.232
## 901 5.051
## 902 3.687
## 903 4.649
## 904 5.287
## 905 5.886
## 906 5.595
## 907 3.379
## 908 5.014
## 909 3.233
## 910 3.360
## 911 4.160
## 912 2.869
## 913 4.743
## 914 3.923
## 915 2.706
## 916 5.905
## 917 4.322
## 918 4.359
## 919 3.158
## 920 4.397
## 921 5.450
## 922 4.486
## 923 3.960
## 924 3.123
## 925 4.377
## 926 5.923
## 927 4.593
## 928 6.068
## 929 1.743
## 930 6.068
## 931 5.703
## 932 3.597
## 933 5.886
## 934 6.195
## 935 4.394
## 936 2.958
## 937 4.850
## 938 3.253
## 939 3.360
## 940 5.905
## 941 3.886
## 942 3.032
## 943 5.558
## 944 4.942
## 945 5.905
## 946 4.359
## 947 4.268
## 948 3.360
## 949 2.324
## 950 3.450
## 951 5.577
## 952 5.577
## 953 4.850
## 954 4.395
## 955 4.868
## 956 4.560
## 957 3.670
## 958 4.812
## 959 1.688
## 960 4.105
## 961 5.886
## 962 3.903
## 963 3.307
## 964 2.687
## 965 3.687
## 966 3.159
## 967 4.649
## 968 3.650
## 969 3.706
## 970 4.540
## 971 4.144
## 972 5.506
## 973 4.251
## 974 4.596
## 975 5.941
## 976 2.742
## 977 5.558
## 978 4.415
## 979 4.596
## 980 4.757
## 981 5.033
## 982 2.651
## 983 4.142
## 984 2.724
## 985 3.233
## 986 4.105
## 987 4.232
## 988 5.122
## 989 3.502
## 990 4.396
## 991 4.741
## 992 4.359
## 993 3.850
## 994 4.100
## 995 3.597
## 996 3.141
## 997 4.251
## 998 4.921
## 999 4.377
## 1000 3.777
## 1001 2.432
## 1002 4.015
## 1003 5.796
## 1004 6.195
## 1005 4.997
## 1006 4.359
## 1007 5.413
## 1008 3.777
## 1009 3.670
## 1010 4.359
## 1011 3.141
## 1012 5.759
## 1013 3.703
## 1014 6.050
## 1015 6.195
## 1016 4.359
## 1017 1.853
## 1018 3.234
## 1019 4.233
## 1020 6.195
## 1021 3.613
## 1022 3.595
## 1023 4.250
## 1024 4.105
## 1025 4.342
## 1026 4.757
## 1027 3.614
## 1028 6.050
## 1029 6.195
## 1030 2.976
## 1031 4.795
## 1032 3.886
## 1033 6.195
## 1034 4.612
## 1035 5.122
## 1036 4.579
## 1037 3.576
## 1038 3.940
## 1039 4.794
## 1040 3.940
## 1041 3.669
## 1042 4.795
## 1043 5.159
## 1044 5.450
## 1045 4.995
## 1046 4.883
## 1047 5.249
## 1048 3.214
## 1049 2.869
## 1050 4.359
## 1051 3.198
## 1052 5.596
## 1053 4.850
## 1054 3.469
## 1055 5.577
## 1056 3.851
## 1057 5.905
## 1058 4.852
## 1059 3.032
## 1060 3.761
## 1061 4.631
## 1062 3.450
## 1063 4.649
## 1064 4.413
## 1065 5.905
## 1066 3.469
## 1067 5.397
## 1068 6.195
## 1069 6.195
## 1070 5.760
## 1071 4.814
## 1072 4.321
## 1073 2.470
## 1074 3.341
## 1075 4.303
## 1076 4.250
## 1077 5.905
## 1078 5.087
## 1079 3.560
## 1080 4.251
## 1081 5.196
## 1082 3.666
## 1083 4.414
## 1084 3.796
## 1085 5.467
## 1086 5.413
## 1087 5.286
## 1088 4.325
## 1089 2.959
## 1090 4.524
## 1091 2.850
## 1092 5.140
## 1093 4.050
## 1094 3.926
## 1095 4.523
## 1096 3.647
## 1097 3.650
## 1098 3.523
## 1099 2.977
## 1100 4.977
## 1101 1.960
## 1102 4.032
## 1103 6.195
## 1104 3.937
## 1105 3.633
## 1106 3.797
## 1107 3.742
## 1108 5.123
## 1109 3.377
## 1110 4.522
## 1111 3.814
## 1112 3.815
## 1113 3.759
## 1114 3.759
## 1115 4.924
## 1116 3.141
## 1117 5.760
## 1118 4.560
## 1119 2.942
## 1120 4.559
## 1121 4.705
## 1122 5.050
## 1123 5.141
## 1124 6.195
## 1125 4.977
## 1126 5.577
## 1127 4.269
## 1128 4.723
## 1129 4.359
## 1130 3.523
## 1131 2.778
## 1132 3.978
## 1133 4.541
## 1134 6.068
## 1135 5.103
## 1136 4.977
## 1137 5.614
## 1138 5.487
## 1139 4.996
## 1140 4.414
## 1141 1.761
## 1142 2.906
## 1143 3.141
## 1144 4.448
## 1145 4.469
## 1146 3.886
## 1147 2.941
## 1148 4.303
## 1149 4.504
## 1150 6.195
## 1151 3.105
## 1152 3.979
## 1153 3.705
## 1154 4.176
## 1155 4.940
## 1156 1.217
## 1157 4.011
## 1158 4.287
## 1159 3.669
## 1160 3.196
## 1161 3.796
## 1162 4.851
## 1163 3.032
## 1164 3.504
## 1165 2.123
## 1166 4.087
## 1167 3.833
## 1168 5.305
## 1169 6.195
## 1170 4.433
## 1171 3.742
## 1172 3.360
## 1173 4.161
## 1174 4.686
## 1175 3.468
## 1176 3.631
## 1177 4.360
## 1178 4.250
## 1179 3.305
## 1180 3.360
## 1181 2.595
## 1182 4.124
## 1183 4.687
## 1184 3.595
## 1185 2.542
## 1186 3.450
## 1187 6.050
## 1188 3.124
## 1189 4.977
## 1190 3.795
## 1191 5.959
## 1192 3.141
## 1193 0.999
## 1194 4.014
## 1195 2.469
## 1196 4.321
## 1197 3.759
## 1198 4.705
## 1199 4.069
## 1200 5.032
## 1201 5.413
## 1202 4.959
## 1203 4.687
## 1204 5.431
## 1205 6.195
## 1206 3.051
## 1207 4.214
## 1208 4.977
## 1209 3.250
## 1210 3.105
## 1211 5.122
## 1212 4.213
## 1213 4.813
## 1214 4.306
## 1215 5.614
## 1216 3.232
## 1217 6.195
## 1218 4.959
## 1219 3.215
## 1220 4.269
## 1221 3.833
## 1222 3.124
## 1223 2.887
## 1224 5.595
## 1225 4.522
## 1226 5.506
## 1227 2.869
## 1228 3.852
## 1229 4.596
## 1230 5.923
## 1231 4.214
## 1232 5.722
## 1233 4.340
## 1234 6.195
## 1235 4.378
## 1236 4.631
## 1237 3.760
## 1238 4.832
## 1239 2.813
## 1240 3.722
## 1241 4.615
## 1242 6.195
## 1243 5.122
## 1244 3.085
## 1245 3.614
## 1246 5.596
## 1247 5.759
## 1248 4.486
## 1249 4.249
## 1250 5.141
## 1251 5.595
## 1252 4.560
## 1253 5.359
## 1254 4.197
## 1255 4.051
## 1256 3.705
## 1257 2.707
## 1258 4.596
## 1259 5.867
## 1260 2.486
## 1261 3.087
## 1262 5.104
## 1263 6.195
## 1264 5.923
## 1265 5.669
## 1266 4.850
## 1267 3.687
## 1268 3.198
## 1269 3.540
## 1270 4.995
## 1271 2.887
## 1272 3.452
## 1273 4.906
## 1274 2.015
## 1275 5.905
## 1276 3.978
## 1277 4.432
## 1278 3.251
## 1279 4.852
## 1280 2.958
## 1281 3.195
## 1282 3.722
## 1283 4.451
## 1284 5.432
## 1285 2.833
## 1286 4.813
## 1287 4.194
## 1288 3.687
## 1289 5.286
## 1290 5.249
## 1291 4.395
## 1292 4.667
## 1293 4.105
## 1294 5.577
## 1295 3.431
## 1296 4.359
## 1297 3.502
## 1298 3.089
## 1299 4.433
## 1300 4.977
## 1301 4.504
## 1302 3.014
## 1303 3.741
## 1304 3.450
## 1305 3.706
## 1306 5.741
## 1307 4.378
## 1308 4.340
## 1309 4.284
## 1310 4.541
## 1311 3.614
## 1312 4.105
## 1313 5.450
## 1314 4.397
## 1315 4.542
## 1316 5.268
## 1317 3.378
## 1318 5.539
## 1319 3.633
## 1320 2.979
## 1321 3.886
## 1322 3.050
## 1323 5.304
## 1324 4.012
## 1325 5.032
## 1326 4.269
## 1327 4.452
## 1328 6.195
## 1329 5.196
## 1330 5.160
## 1331 4.123
## 1332 3.215
## 1333 5.032
## 1334 6.195
## 1335 3.413
## 1336 5.760
## 1337 5.359
## 1338 3.830
## 1339 3.376
## 1340 5.249
## 1341 5.632
## 1342 2.799
## 1343 4.124
## 1344 4.668
## 1345 4.615
## 1346 4.270
## 1347 5.905
## 1348 6.031
## 1349 4.940
## 1350 1.998
## 1351 3.792
## 1352 3.196
## 1353 3.632
## 1354 4.794
## 1355 3.579
## 1356 2.489
## 1357 6.195
## 1358 5.760
## 1359 1.890
## 1360 4.485
## 1361 6.195
## 1362 3.688
## 1363 5.722
## 1364 3.996
## 1365 3.848
## 1366 3.141
## 1367 3.578
## 1368 4.214
## 1369 5.722
## 1370 3.959
## 1371 3.815
## 1372 4.977
## 1373 4.668
## 1374 3.943
## 1375 3.287
## 1376 4.268
## 1377 3.885
## 1378 4.596
## 1379 3.960
## 1380 3.577
## 1381 4.921
## 1382 4.504
## 1383 5.413
## 1384 6.195
## 1385 3.413
## 1386 5.014
## 1387 5.432
## 1388 2.016
## 1389 4.250
## 1390 3.159
## 1391 4.303
## 1392 4.705
## 1393 4.615
## 1394 5.324
## 1395 3.830
## 1396 4.359
## 1397 5.014
## 1398 4.524
## 1399 4.850
## 1400 4.831
## 1401 5.595
## 1402 3.123
## 1403 2.234
## 1404 4.650
## 1405 3.433
## 1406 4.415
## 1407 3.303
## 1408 3.975
## 1409 1.434
## 1410 3.795
## 1411 5.196
## 1412 3.832
## 1413 5.013
## 1414 4.851
## 1415 3.014
## 1416 5.015
## 1417 6.195
## 1418 3.215
## 1419 4.415
## 1420 4.776
## 1421 5.141
## 1422 5.142
## 1423 5.249
## 1424 4.177
## 1425 2.996
## 1426 6.195
## 1427 6.195
## 1428 6.195
## 1429 3.268
## 1430 4.213
## 1431 2.777
## 1432 5.141
## 1433 4.959
## 1434 3.796
## 1435 4.232
## 1436 2.595
## 1437 3.487
## 1438 3.488
## 1439 4.959
## 1440 4.794
## 1441 4.832
## 1442 3.650
## 1443 3.703
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans63=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans63)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 49.98 62.57 62.52 75.69 100.00
round(sd(IH_trans63),2)
## [1] 18.68
#x11();hist(IH_trans6,col="azure2",xlab="IPPC",main = "Distribución de IPPC",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=CaliyPalmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 1:7) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:7)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:7])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 62.56736 62.54811 62.56736 63.31794 61.85527 62.22094 62.22094 62.22094
## [9] 62.22094 62.56736 62.56736 62.91378 63.93380 60.85450 62.22094 62.93303
## [17] 62.93303 63.95304 62.58661 62.58661 62.22094 62.24018 63.27945 62.22094
## [25] 63.29869 62.22094 62.56736 62.56736 62.22094 63.27945 62.93303 63.31794
## [33] 62.93303 62.54811 62.24018 62.93303 62.22094 62.58661 62.56736 62.56736
## [41] 62.91378 62.93303 62.58661 62.56736 62.56736 61.87452 63.27945 62.24018
## [49] 62.22094 62.93303 63.58737 62.93303 62.24018 62.12471 63.26020 62.24018
## [57] 62.56736 62.12471 62.54811 63.26020 62.22094 62.91378 62.22094 61.85527
## [65] 63.27945 62.93303 62.93303 62.56736 62.58661 62.93303 62.22094 61.87452
## [73] 61.87452 62.93303 62.56736 62.22094 62.56736 62.56736 61.16243 62.91378
## [81] 62.56736 62.56736 62.93303 62.56736 62.93303 62.22094 62.56736 62.56736
## [89] 62.56736 62.56736 62.56736 62.58661 62.93303 62.56736 62.22094 62.56736
## [97] 62.56736 62.22094 62.56736 62.54811 62.56736 61.87452 62.56736 62.56736
## [105] 61.87452 63.64511 62.56736 62.93303 63.93380 62.93303 62.95227 62.91378
## [113] 63.58737 62.22094 62.56736 62.91378 62.22094 62.58661 62.56736 61.18168
## [121] 62.56736 61.87452 62.93303 62.93303 64.01078 62.56736 62.56736 61.87452
## [129] 61.54734 61.87452 62.91378 63.26020 62.56736 62.54811 62.22094 62.54811
## [137] 63.58737 63.29869 61.87452 62.91378 62.56736 62.24018 62.91378 64.29946
## [145] 62.54811 62.22094 62.93303 62.56736 62.91378 62.56736 62.56736 62.12471
## [153] 62.20169 62.56736 62.12471 62.24018 63.31794 62.54811 61.87452 62.22094
## [161] 62.24018 63.27945 62.20169 62.56736 61.87452 62.22094 62.22094 62.22094
## [169] 62.22094 62.22094 62.93303 62.22094 62.22094 62.58661 62.24018 62.56736
## [177] 61.87452 61.54734 62.58661 62.12471 62.58661 62.91378 62.95227 62.56736
## [185] 62.58661 63.64511 62.22094 62.58661 62.22094 62.58661 62.22094 62.56736
## [193] 62.58661 62.58661 62.24018 62.58661 61.14319 61.87452 62.91378 63.27945
## [201] 62.12471 62.93303 62.24018 62.22094 62.56736 62.58661 62.56736 62.24018
## [209] 62.22094 62.56736 62.56736 61.85527 62.93303 62.58661 62.93303 63.58737
## [217] 62.12471 63.29869 61.87452 61.16243 61.87452 62.91378 62.12471 62.56736
## [225] 62.54811 62.95227 62.56736 62.22094 62.56736 62.95227 62.22094 62.58661
## [233] 62.22094 62.56736 62.22094 62.56736 61.85527 62.56736 62.58661 62.22094
## [241] 62.24018 62.91378 62.56736 62.54811 62.22094 62.93303 62.22094 62.54811
## [249] 61.87452 62.58661 62.58661 62.93303 62.22094 62.93303 62.93303 62.93303
## [257] 62.58661 61.87452 62.93303 61.87452 61.87452 62.58661 62.54811 62.24018
## [265] 62.22094 62.22094 62.93303 62.56736 62.93303 61.87452 63.22171 62.22094
## [273] 62.93303 62.22094 62.20169 62.93303 62.54811 62.56736 62.24018 62.56736
## [281] 62.12471 62.58661 61.85527 62.95227 61.87452 61.87452 62.12471 62.56736
## [289] 62.56736 62.91378 63.22171 62.20169 62.93303 63.22171 62.22094 62.22094
## [297] 62.22094 62.56736 62.56736 62.54811 62.93303 62.56736 62.93303 61.87452
## [305] 63.58737 62.56736 62.24018 62.20169 62.95227 63.27945 63.31794 62.93303
## [313] 62.54811 62.93303 62.56736 61.87452 62.56736 63.93380 62.20169 62.12471
## [321] 62.24018 61.87452 62.58661 62.54811 62.56736 62.22094 62.22094 62.58661
## [329] 62.54811 62.56736 62.58661 63.27945 63.26020 63.58737 61.54734 62.56736
## [337] 62.95227 62.56736 62.58661 62.93303 62.22094 62.22094 62.54811 62.56736
## [345] 62.91378 62.93303 62.58661 62.58661 62.22094 62.22094 61.87452 61.87452
## [353] 62.56736 62.56736 63.22171 62.56736 62.95227 64.29946 62.22094 62.24018
## [361] 62.93303 62.91378 62.93303 62.93303 62.56736 64.01078 62.22094 61.18168
## [369] 62.58661 62.56736 62.22094 62.93303 62.58661 62.58661 64.01078 62.22094
## [377] 62.58661 62.95227 62.58661 62.58661 62.22094 62.54811 62.56736 61.87452
## [385] 61.18168 62.56736 62.24018 62.20169 62.56736 62.93303 63.27945 62.24018
## [393] 62.22094 62.22094 63.58737 62.22094 62.93303 62.56736 62.93303 62.56736
## [401] 62.22094 62.56736 61.87452 62.54811 62.56736 62.22094 62.58661 62.56736
## [409] 62.56736 62.56736 62.93303 62.58661 62.93303 63.58737 62.22094 62.22094
## [417] 62.22094 62.22094 62.56736 62.58661 62.93303 62.22094 64.29946 62.93303
## [425] 62.22094 62.24018 62.56736 63.27945 63.22171 63.27945 62.22094 62.58661
## [433] 63.58737 62.95227 62.58661 61.87452 62.22094 62.93303 62.54811 62.20169
## [441] 62.56736 62.54811 61.50885 63.93380 61.87452 63.58737 62.56736 62.54811
## [449] 61.18168 62.93303 62.93303 61.18168 62.58661 62.56736 62.56736 62.93303
## [457] 62.22094 62.58661 62.22094 62.22094 63.26020 62.56736 61.85527 62.58661
## [465] 62.54811 62.56736 62.22094 63.27945 62.58661 62.20169 63.27945 61.85527
## [473] 62.93303 61.87452 62.58661 61.87452 61.87452 61.16243 63.93380 63.22171
## [481] 62.56736 62.56736 62.56736 63.27945 63.58737 62.56736 62.22094 62.93303
## [489] 62.93303 62.93303 62.22094 62.91378 62.12471 61.85527 62.93303 62.24018
## [497] 62.22094 61.87452 61.85527 62.91378 63.22171 62.56736 62.93303 62.93303
## [505] 62.22094 63.22171 62.56736 62.56736 62.58661 62.54811 62.58661 62.56736
## [513] 62.91378 62.56736 62.56736 62.22094 62.22094 62.22094 62.58661 60.46959
## [521] 62.22094 62.58661 62.93303 62.56736 62.56736 63.58737 62.24018 61.87452
## [529] 62.54811 62.22094 63.58737 63.93380 62.24018 62.56736 62.56736 62.56736
## [537] 61.87452 62.56736 62.93303 62.56736 62.91378 62.56736 62.22094 62.91378
## [545] 62.12471 62.56736 60.14242 62.22094 62.22094 62.58661 62.56736 62.56736
## [553] 61.87452 62.91378 63.31794 62.93303 62.58661 62.93303 62.54811 62.22094
## [561] 62.22094 62.58661 62.54811 62.20169 62.95227 62.91378 62.22094 63.29869
## [569] 63.27945 62.56736 62.22094 62.24018 63.95304 62.22094 62.22094 62.22094
## [577] 62.91378 62.93303 61.87452 62.58661 61.87452 62.22094 62.93303 63.27945
## [585] 62.56736 62.93303 62.24018 62.56736 61.85527 60.48884 62.22094 62.54811
## [593] 62.24018 62.91378 62.54811 61.54734 62.56736 62.22094 62.56736 62.22094
## [601] 62.22094 62.91378 63.27945 63.58737 62.93303 62.20169 62.54811 62.58661
## [609] 63.58737 62.58661 61.54734 62.58661 61.87452 62.56736 62.56736 62.58661
## [617] 62.58661 61.87452 62.56736 62.93303 63.93380 62.58661 62.56736 64.64588
## [625] 62.91378 61.87452 62.91378 62.58661 62.93303 62.20169 62.91378 61.87452
## [633] 62.22094 62.56736 63.27945 62.58661 62.93303 61.85527 62.20169 62.24018
## [641] 62.58661 63.27945 62.58661 62.93303 62.56736 62.56736 62.91378 62.22094
## [649] 62.22094 62.58661 62.22094 62.93303 62.56736 62.22094 62.24018 62.24018
## [657] 62.93303 62.56736 63.27945 62.22094 62.93303 62.22094 62.22094 62.22094
## [665] 62.22094 62.93303 62.22094 61.54734 62.56736 62.93303 62.22094 62.93303
## [673] 62.56736 62.56736 63.27945 62.93303 62.22094 63.31794 62.56736 62.56736
## [681] 62.54811 62.22094 62.56736 62.93303 62.12471 64.64588 61.85527 62.58661
## [689] 62.22094 62.22094 64.01078 62.22094 62.22094 62.22094 62.22094 62.24018
## [697] 62.56736 62.93303 62.56736 62.24018 63.27945 62.95227 62.56736 62.22094
## [705] 62.56736 62.58661 62.56736 62.56736 62.22094 62.22094 61.87452 62.54811
## [713] 62.22094 62.56736 64.31871 62.93303 62.58661 62.22094 62.93303 62.56736
## [721] 62.56736 62.58661 62.93303 61.87452 62.22094 62.91378 62.56736 63.93380
## [729] 62.93303 62.91378 62.56736 62.24018 62.22094 63.27945 62.93303 61.85527
## [737] 61.87452 62.56736 62.58661 63.58737 62.58661 62.56736 62.22094 62.22094
## [745] 62.22094 62.93303 62.56736 62.91378 63.93380 62.22094 62.58661 62.56736
## [753] 62.93303 62.58661 62.22094 62.93303 62.58661 61.87452 62.95227 62.22094
## [761] 62.12471 62.93303 62.54811 62.56736 62.95227 62.22094 62.93303 62.93303
## [769] 62.93303 62.56736 62.22094 62.54811 62.22094 62.56736 62.22094 62.56736
## [777] 62.22094 62.56736 62.20169 63.93380 62.93303 62.58661 62.56736 62.22094
## [785] 62.56736 62.22094 61.87452 62.56736 62.24018 62.93303 62.56736 63.58737
## [793] 61.87452 63.64511 62.58661 62.22094 62.22094 62.24018 62.56736 62.58661
## [801] 62.22094 62.58661 63.22171 62.56736 63.58737 64.29946 62.12471 62.93303
## [809] 62.22094 62.22094 62.58661 61.87452 62.22094 62.56736 62.93303 62.22094
## [817] 62.93303 63.27945 62.93303 62.56736 62.58661 62.93303 61.87452 62.22094
## [825] 62.58661 62.58661 62.22094 62.22094 62.58661 62.58661 62.22094 62.93303
## [833] 62.22094 63.22171 63.58737 62.93303 63.26020 62.95227 61.87452 62.58661
## [841] 63.93380 62.22094 62.56736 62.56736 62.54811 61.16243 62.93303 62.24018
## [849] 62.56736 62.22094 62.56736 63.64511 62.54811 61.87452 62.22094 63.58737
## [857] 62.56736 62.22094 62.93303 62.22094 62.22094 62.91378 62.22094 63.27945
## [865] 62.93303 62.58661 62.56736 62.58661 61.87452 63.31794 62.56736 62.54811
## [873] 62.22094 62.58661 61.87452 62.93303 62.56736 62.54811 62.56736 62.58661
## [881] 63.27945 62.93303 62.22094 62.58661 62.22094 62.93303 62.22094 62.22094
## [889] 62.54811 62.20169 62.91378 62.56736 62.56736 62.58661 62.93303 62.93303
## [897] 62.22094 63.27945 62.56736 61.87452 60.83526 62.56736 62.58661 63.27945
## [905] 62.56736 61.87452 62.91378 62.22094 62.22094 62.22094 62.24018 62.93303
## [913] 62.22094 62.22094 62.58661 63.26020 62.22094 62.91378 62.93303 62.91378
## [921] 62.22094 63.93380 62.56736 63.22171 62.93303 62.56736 62.58661 62.56736
## [929] 61.85527 62.58661 62.95227 61.85527 62.95227 62.58661 61.54734 62.56736
## [937] 62.56736 62.93303 62.58661 62.58661 62.56736 62.56736 62.93303 62.95227
## [945] 62.22094 62.93303 62.58661 62.58661 62.56736 62.54811 62.56736 62.24018
## [953] 62.56736 62.22094 62.56736 62.91378 62.93303 62.56736 62.56736 62.93303
## [961] 63.27945 62.22094 62.56736 62.22094 62.56736 62.91378 62.56736 62.22094
## [969] 63.58737 62.22094 62.58661 62.56736 62.56736 62.91378 63.93380 62.24018
## [977] 62.24018 62.56736 62.24018 62.12471 62.58661 62.22094 62.24018 62.93303
## [985] 62.22094 62.22094 62.56736 62.56736 63.22171 62.93303 62.22094 62.93303
## [993] 62.93303 62.58661 62.91378 63.93380 62.22094 62.12471 62.58661 62.54811
I_mediana=median(NfinalMedia);
#I_ref=62.61
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans63))^2+(median(NfinalMedia)-median(IH_trans63))^2,2);EE
## [1] 0
SEVERIDAD
temp_K<-c()
lista_vacia <- vector("list", length = 1443)
celsius_to_kelvin <- function(temp_C) {
for (i in 8:11) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(8:11)]
}
return(datosnew)
};severidad=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(severidad[ ,1:4]);IH
## [1] 3.586 3.034 4.000 3.241 4.207 4.966 3.758 4.482 4.654 2.965 6.241 3.483
## [13] 4.069 4.000 3.758 3.551 2.724 3.965 5.448 2.724 5.241 4.413 3.551 3.757
## [25] 3.345 5.449 1.517 2.482 2.758 3.207 4.448 4.620 2.758 4.690 5.172 3.034
## [37] 3.207 5.551 4.241 4.413 5.896 2.689 6.241 3.999 3.517 2.240 2.758 3.482
## [49] 2.552 3.724 3.551 3.448 2.310 4.758 5.068 3.034 3.551 3.241 2.551 2.207
## [61] 6.034 3.516 2.862 2.758 4.034 3.241 5.000 2.759 6.034 6.793 5.068 2.206
## [73] 4.000 1.517 1.793 5.827 2.241 4.517 6.517 4.241 5.000 3.724 5.551 3.482
## [85] 3.827 6.172 2.241 3.241 4.310 2.207 3.517 4.517 4.000 4.759 2.965 5.241
## [97] 3.793 2.758 4.000 3.000 6.793 2.000 3.241 3.241 7.000 5.758 5.758 5.208
## [109] 4.724 5.000 6.000 5.241 4.724 6.034 3.861 4.275 2.723 5.552 4.483 5.034
## [121] 6.034 5.724 5.275 6.379 1.724 5.137 4.345 4.517 5.241 2.551 5.000 4.448
## [133] 2.931 1.517 4.724 3.034 3.241 5.276 3.069 2.000 6.241 3.276 5.586 4.242
## [145] 4.102 3.482 4.345 1.000 4.240 4.310 2.000 4.414 6.724 2.964 5.896 4.206
## [157] 5.758 3.241 4.000 4.656 4.517 6.448 4.241 3.448 4.759 5.551 5.000 3.688
## [169] 5.551 3.551 7.000 5.482 3.758 2.758 4.207 4.000 2.241 6.172 3.965 4.517
## [181] 4.897 4.516 7.000 4.758 5.482 4.828 5.413 3.724 4.758 4.999 4.034 4.517
## [193] 1.517 5.206 7.000 4.516 3.448 5.345 2.069 5.551 2.586 4.517 3.241 6.517
## [205] 5.000 6.000 3.551 7.000 4.275 5.449 7.000 3.379 6.034 4.792 4.034 4.000
## [217] 5.000 4.345 3.826 5.137 4.103 5.034 4.241 5.620 4.276 1.448 4.000 2.000
## [229] 2.757 4.069 6.517 5.551 4.000 3.241 4.000 2.241 1.448 4.551 2.517 2.240
## [241] 4.827 3.758 4.241 3.482 2.724 2.723 5.137 5.000 3.000 6.241 1.793 3.551
## [253] 5.448 4.276 5.551 3.517 4.517 1.724 5.482 4.000 5.000 4.517 3.931 3.034
## [265] 4.966 4.724 3.000 3.930 4.690 3.034 5.000 3.482 2.758 3.241 1.690 3.724
## [277] 3.414 4.724 5.172 4.000 3.965 5.517 5.275 4.310 4.172 4.000 4.724 2.000
## [289] 5.448 6.069 4.723 6.586 4.034 4.586 3.310 2.241 3.517 4.999 4.241 7.000
## [301] 4.034 4.758 1.724 3.551 4.724 3.724 3.758 4.000 4.552 5.206 3.931 5.690
## [313] 1.517 3.551 4.965 4.036 3.482 2.446 5.241 2.758 6.000 5.379 3.276 3.034
## [325] 4.000 6.448 4.447 3.758 4.482 3.482 5.034 3.895 5.620 5.966 6.034 4.103
## [337] 4.172 6.517 3.207 1.517 4.102 3.276 3.758 3.724 4.310 3.241 1.552 4.241
## [349] 4.517 4.724 5.276 3.724 2.448 4.723 4.276 2.724 6.379 1.724 3.034 5.482
## [361] 4.965 5.241 3.964 2.241 4.516 4.309 4.585 2.206 7.000 3.758 4.448 3.172
## [373] 5.724 3.758 6.276 4.930 7.000 2.000 2.758 5.000 3.689 6.517 3.275 5.034
## [385] 5.758 4.275 5.000 2.758 3.276 4.793 3.310 3.999 4.931 1.517 2.793 4.241
## [397] 3.448 3.207 3.241 3.827 4.207 4.585 1.724 3.826 3.482 2.275 2.000 3.275
## [409] 4.758 4.000 6.241 5.276 5.413 5.552 4.001 5.758 4.551 4.034 3.137 4.344
## [421] 4.585 3.379 5.689 6.276 7.000 5.931 5.966 4.517 4.447 6.000 4.965 6.242
## [433] 3.724 3.552 7.000 6.448 4.448 2.517 4.240 3.758 3.827 3.034 3.724 6.448
## [445] 2.000 3.827 5.896 4.276 5.069 5.552 2.689 6.276 6.103 3.414 4.241 4.689
## [457] 5.517 5.276 4.207 5.276 2.000 4.000 3.931 2.724 4.000 4.034 3.517 4.931
## [469] 6.759 4.448 7.000 3.656 2.724 5.552 3.792 3.620 7.000 4.965 2.448 3.034
## [481] 3.965 6.034 3.000 3.206 4.034 2.241 5.517 5.517 5.586 3.276 4.137 4.276
## [493] 2.000 3.206 4.965 4.758 4.275 5.000 3.413 5.310 2.241 7.000 4.483 1.000
## [505] 2.414 4.517 3.724 2.207 2.207 2.517 2.000 5.000 3.793 4.516 3.309 2.793
## [517] 6.000 2.724 3.517 2.724 2.241 5.449 2.724 4.033 5.483 4.309 4.517 2.964
## [529] 1.965 3.000 3.931 3.758 3.965 3.792 3.034 3.171 3.034 2.758 4.655 4.000
## [541] 2.000 3.965 7.000 5.068 6.517 5.275 4.482 4.241 4.482 3.758 4.000 4.000
## [553] 4.034 3.793 3.241 5.206 3.481 3.034 4.000 1.000 3.758 2.827 3.757 2.516
## [565] 5.241 2.241 3.931 3.275 3.828 2.724 3.724 5.517 7.000 4.482 2.724 5.517
## [577] 2.482 4.034 5.448 5.000 5.000 5.551 5.241 2.965 4.241 2.448 2.483 4.034
## [589] 1.965 3.965 4.206 3.034 3.517 4.034 4.001 5.000 4.724 2.483 4.759 4.758
## [601] 3.000 5.035 3.930 3.000 2.551 1.448 4.585 1.724 2.621 5.552 1.723 3.758
## [613] 3.551 5.724 3.724 5.793 3.517 7.000 4.690 2.000 6.724 5.965 2.275 4.793
## [625] 2.517 3.827 7.000 6.000 2.276 4.000 5.448 5.035 3.206 6.448 5.000 3.276
## [637] 3.550 5.758 1.931 2.241 1.000 3.034 4.000 4.000 2.311 4.000 4.241 4.241
## [649] 2.069 7.000 4.793 5.483 4.000 3.965 6.724 6.759 2.759 6.448 5.241 4.517
## [661] 6.034 1.517 6.448 5.000 6.000 4.999 2.516 4.792 2.758 4.724 7.000 5.724
## [673] 5.000 4.102 7.000 5.758 5.034 2.241 6.069 4.966 3.310 4.448 3.172 4.552
## [685] 4.172 3.034 1.724 4.965 1.723 5.000 2.999 4.654 4.034 4.482 6.310 4.207
## [697] 6.034 6.000 4.759 3.793 4.379 5.207 6.310 3.965 5.689 6.483 3.000 3.724
## [709] 2.207 3.724 3.241 6.000 4.102 2.517 2.552 5.000 1.724 5.759 3.551 5.689
## [721] 4.034 2.758 3.517 3.965 4.517 6.034 3.000 4.068 2.241 3.482 2.999 3.241
## [733] 3.758 4.241 3.724 3.241 2.758 4.241 3.966 3.241 4.517 4.793 6.517 5.310
## [745] 4.482 5.517 4.723 5.551 2.517 4.517 5.379 4.241 7.000 5.965 4.793 4.000
## [757] 6.034 4.068 3.655 3.965 3.517 3.965 2.654 3.688 3.999 3.551 3.517 3.758
## [769] 3.723 1.000 3.517 5.620 5.551 6.241 1.482 2.966 3.275 2.517 3.758 6.034
## [781] 6.793 5.724 3.550 4.276 6.000 2.517 4.447 5.689 3.034 5.793 5.482 4.516
## [793] 3.965 5.724 3.206 4.930 3.172 3.690 1.241 2.034 3.793 4.931 2.552 4.241
## [805] 4.276 4.000 5.172 6.724 3.034 2.241 2.862 4.000 4.448 5.172 5.000 4.965
## [817] 6.172 5.827 5.069 4.000 2.517 4.689 1.965 2.482 3.517 4.138 3.241 3.241
## [829] 4.965 5.034 2.758 3.482 5.241 3.965 6.241 5.517 3.724 6.000 4.241 4.827
## [841] 4.000 3.517 5.517 4.000 3.965 4.448 3.482 4.689 4.483 5.724 7.000 3.792
## [853] 2.482 7.000 6.793 3.448 3.241 3.999 4.965 2.758 5.276 2.792 3.517 5.793
## [865] 5.517 2.482 4.276 7.000 3.758 2.448 4.655 5.517 3.724 3.448 7.000 7.000
## [877] 3.517 4.931 1.517 4.000 4.276 5.758 3.517 3.034 4.000 5.034 4.758 4.965
## [889] 4.966 2.000 2.758 2.758 5.241 5.827 4.758 2.965 5.551 1.000 3.517 4.517
## [901] 4.275 2.414 2.241 2.000 4.310 6.000 5.000 6.241 2.241 4.793 4.000 4.517
## [913] 1.482 5.482 7.000 5.758 4.792 5.965 4.516 5.000 3.965 5.275 2.758 5.758
## [925] 3.723 4.897 4.482 3.000 1.965 4.172 3.965 4.241 3.482 4.000 3.069 2.516
## [937] 6.000 5.000 2.758 4.000 3.517 3.517 6.724 5.000 7.000 4.758 3.965 2.724
## [949] 5.758 5.517 5.413 5.344 6.724 5.000 4.517 5.000 1.793 4.483 4.102 6.034
## [961] 5.000 4.000 3.241 2.034 3.861 3.240 5.000 5.310 3.793 5.482 7.000 3.310
## [973] 4.586 6.000 6.000 4.068 6.277 4.758 4.724 3.240 5.241 3.000 3.000 2.827
## [985] 3.517 3.034 4.724 4.068 6.379 5.517 6.724 4.965 4.034 4.758 4.689 3.482
## [997] 5.344 6.448 4.965 5.000 4.103 2.723 3.413 6.517 5.896 5.413 5.276 4.517
## [1009] 4.000 4.793 4.861 3.172 4.033 5.551 5.689 4.241 2.000 1.724 5.758 5.966
## [1021] 3.414 5.311 5.241 5.207 4.932 2.999 3.241 7.000 4.000 4.516 4.241 7.000
## [1033] 4.930 3.861 5.034 5.173 2.000 3.241 3.689 2.482 2.759 6.724 4.965 6.034
## [1045] 6.276 6.448 6.172 3.655 3.241 5.517 3.691 3.000 4.723 4.758 6.517 4.000
## [1057] 5.482 5.344 4.241 4.000 4.241 4.068 4.241 2.241 6.034 4.654 7.000 7.000
## [1069] 3.758 4.447 5.517 3.724 3.000 3.552 5.965 2.758 2.448 6.000 4.241 2.758
## [1081] 5.483 6.207 3.758 4.999 6.793 5.448 4.517 5.758 4.000 2.482 5.517 4.793
## [1093] 6.276 3.274 5.517 3.966 4.033 4.275 4.378 5.517 4.896 3.000 6.172 3.965
## [1105] 3.724 3.793 4.517 4.654 4.723 7.000 4.241 4.000 3.965 3.000 6.241 5.413
## [1117] 7.000 2.654 2.724 3.276 3.689 5.000 3.034 7.000 4.965 7.000 4.034 4.000
## [1129] 3.517 4.758 4.000 4.724 3.758 3.724 6.000 4.654 4.171 6.241 4.207 5.276
## [1141] 1.000 2.517 4.517 5.344 4.241 6.517 3.689 5.483 3.724 4.656 4.586 4.276
## [1153] 4.965 6.241 4.276 1.000 3.241 4.827 4.758 3.517 4.241 6.276 6.000 5.034
## [1165] 2.446 2.414 4.758 6.241 5.724 3.000 3.758 2.517 5.241 3.551 4.551 2.482
## [1177] 4.000 4.000 6.172 4.999 3.550 4.448 2.241 2.483 3.516 2.448 6.724 3.965
## [1189] 5.000 4.241 6.241 4.793 1.000 3.896 3.173 3.725 4.759 3.276 4.724 3.483
## [1201] 5.000 4.000 3.275 5.965 7.000 2.448 3.861 4.724 7.000 3.757 4.724 2.965
## [1213] 5.241 4.000 6.277 3.724 4.827 6.069 3.793 5.517 2.276 4.034 3.448 6.517
## [1225] 5.689 4.241 5.724 5.034 4.482 4.585 4.309 6.241 4.758 4.483 3.896 3.724
## [1237] 4.758 4.517 4.930 5.482 4.517 5.000 4.448 6.103 3.310 4.827 4.207 5.449
## [1249] 4.517 3.758 6.034 5.068 6.241 4.827 7.000 5.275 3.241 4.724 3.448 5.896
## [1261] 2.690 6.586 6.724 5.724 5.965 6.241 2.758 3.276 5.551 3.861 2.586 3.896
## [1273] 3.034 7.000 2.241 5.000 5.793 3.000 5.069 2.034 3.827 3.517 5.000 5.241
## [1285] 2.724 5.758 4.861 2.724 6.483 4.448 7.000 5.483 4.000 5.793 3.276 5.034
## [1297] 5.551 4.999 1.724 5.000 4.482 2.999 3.759 4.310 3.724 5.000 7.000 4.345
## [1309] 5.206 5.069 6.310 4.758 4.241 3.276 4.793 4.241 4.517 4.724 3.034 2.724
## [1321] 6.034 2.000 5.482 4.724 5.241 4.482 2.931 7.000 6.000 5.965 7.000 4.069
## [1333] 4.517 6.172 6.103 5.551 4.276 4.861 4.654 6.517 2.999 4.000 4.241 5.206
## [1345] 4.552 2.275 5.000 3.689 5.517 2.552 6.448 4.999 3.758 2.965 2.724 2.759
## [1357] 7.000 4.241 2.518 4.000 7.000 4.138 4.724 4.000 3.862 3.792 3.964 7.000
## [1369] 4.724 5.586 2.000 3.000 4.517 3.482 3.000 3.758 4.173 4.758 4.000 3.757
## [1381] 5.793 5.759 4.620 5.068 3.481 4.482 4.138 2.000 4.241 4.000 5.206 3.448
## [1393] 4.345 2.483 4.310 3.000 4.759 3.759 5.276 2.517 5.034 4.620 2.000 4.792
## [1405] 3.241 7.000 4.309 4.207 1.000 4.999 4.240 4.482 5.103 5.000 3.034 5.758
## [1417] 7.000 6.034 4.241 4.068 5.276 4.896 4.033 4.069 5.206 5.551 4.792 7.000
## [1429] 7.000 3.724 7.000 4.000 7.000 4.758 4.517 7.000 4.000 3.033 2.517 4.793
## [1441] 4.275 5.793 4.621
data.frame(IH)
## IH
## 1 3.586
## 2 3.034
## 3 4.000
## 4 3.241
## 5 4.207
## 6 4.966
## 7 3.758
## 8 4.482
## 9 4.654
## 10 2.965
## 11 6.241
## 12 3.483
## 13 4.069
## 14 4.000
## 15 3.758
## 16 3.551
## 17 2.724
## 18 3.965
## 19 5.448
## 20 2.724
## 21 5.241
## 22 4.413
## 23 3.551
## 24 3.757
## 25 3.345
## 26 5.449
## 27 1.517
## 28 2.482
## 29 2.758
## 30 3.207
## 31 4.448
## 32 4.620
## 33 2.758
## 34 4.690
## 35 5.172
## 36 3.034
## 37 3.207
## 38 5.551
## 39 4.241
## 40 4.413
## 41 5.896
## 42 2.689
## 43 6.241
## 44 3.999
## 45 3.517
## 46 2.240
## 47 2.758
## 48 3.482
## 49 2.552
## 50 3.724
## 51 3.551
## 52 3.448
## 53 2.310
## 54 4.758
## 55 5.068
## 56 3.034
## 57 3.551
## 58 3.241
## 59 2.551
## 60 2.207
## 61 6.034
## 62 3.516
## 63 2.862
## 64 2.758
## 65 4.034
## 66 3.241
## 67 5.000
## 68 2.759
## 69 6.034
## 70 6.793
## 71 5.068
## 72 2.206
## 73 4.000
## 74 1.517
## 75 1.793
## 76 5.827
## 77 2.241
## 78 4.517
## 79 6.517
## 80 4.241
## 81 5.000
## 82 3.724
## 83 5.551
## 84 3.482
## 85 3.827
## 86 6.172
## 87 2.241
## 88 3.241
## 89 4.310
## 90 2.207
## 91 3.517
## 92 4.517
## 93 4.000
## 94 4.759
## 95 2.965
## 96 5.241
## 97 3.793
## 98 2.758
## 99 4.000
## 100 3.000
## 101 6.793
## 102 2.000
## 103 3.241
## 104 3.241
## 105 7.000
## 106 5.758
## 107 5.758
## 108 5.208
## 109 4.724
## 110 5.000
## 111 6.000
## 112 5.241
## 113 4.724
## 114 6.034
## 115 3.861
## 116 4.275
## 117 2.723
## 118 5.552
## 119 4.483
## 120 5.034
## 121 6.034
## 122 5.724
## 123 5.275
## 124 6.379
## 125 1.724
## 126 5.137
## 127 4.345
## 128 4.517
## 129 5.241
## 130 2.551
## 131 5.000
## 132 4.448
## 133 2.931
## 134 1.517
## 135 4.724
## 136 3.034
## 137 3.241
## 138 5.276
## 139 3.069
## 140 2.000
## 141 6.241
## 142 3.276
## 143 5.586
## 144 4.242
## 145 4.102
## 146 3.482
## 147 4.345
## 148 1.000
## 149 4.240
## 150 4.310
## 151 2.000
## 152 4.414
## 153 6.724
## 154 2.964
## 155 5.896
## 156 4.206
## 157 5.758
## 158 3.241
## 159 4.000
## 160 4.656
## 161 4.517
## 162 6.448
## 163 4.241
## 164 3.448
## 165 4.759
## 166 5.551
## 167 5.000
## 168 3.688
## 169 5.551
## 170 3.551
## 171 7.000
## 172 5.482
## 173 3.758
## 174 2.758
## 175 4.207
## 176 4.000
## 177 2.241
## 178 6.172
## 179 3.965
## 180 4.517
## 181 4.897
## 182 4.516
## 183 7.000
## 184 4.758
## 185 5.482
## 186 4.828
## 187 5.413
## 188 3.724
## 189 4.758
## 190 4.999
## 191 4.034
## 192 4.517
## 193 1.517
## 194 5.206
## 195 7.000
## 196 4.516
## 197 3.448
## 198 5.345
## 199 2.069
## 200 5.551
## 201 2.586
## 202 4.517
## 203 3.241
## 204 6.517
## 205 5.000
## 206 6.000
## 207 3.551
## 208 7.000
## 209 4.275
## 210 5.449
## 211 7.000
## 212 3.379
## 213 6.034
## 214 4.792
## 215 4.034
## 216 4.000
## 217 5.000
## 218 4.345
## 219 3.826
## 220 5.137
## 221 4.103
## 222 5.034
## 223 4.241
## 224 5.620
## 225 4.276
## 226 1.448
## 227 4.000
## 228 2.000
## 229 2.757
## 230 4.069
## 231 6.517
## 232 5.551
## 233 4.000
## 234 3.241
## 235 4.000
## 236 2.241
## 237 1.448
## 238 4.551
## 239 2.517
## 240 2.240
## 241 4.827
## 242 3.758
## 243 4.241
## 244 3.482
## 245 2.724
## 246 2.723
## 247 5.137
## 248 5.000
## 249 3.000
## 250 6.241
## 251 1.793
## 252 3.551
## 253 5.448
## 254 4.276
## 255 5.551
## 256 3.517
## 257 4.517
## 258 1.724
## 259 5.482
## 260 4.000
## 261 5.000
## 262 4.517
## 263 3.931
## 264 3.034
## 265 4.966
## 266 4.724
## 267 3.000
## 268 3.930
## 269 4.690
## 270 3.034
## 271 5.000
## 272 3.482
## 273 2.758
## 274 3.241
## 275 1.690
## 276 3.724
## 277 3.414
## 278 4.724
## 279 5.172
## 280 4.000
## 281 3.965
## 282 5.517
## 283 5.275
## 284 4.310
## 285 4.172
## 286 4.000
## 287 4.724
## 288 2.000
## 289 5.448
## 290 6.069
## 291 4.723
## 292 6.586
## 293 4.034
## 294 4.586
## 295 3.310
## 296 2.241
## 297 3.517
## 298 4.999
## 299 4.241
## 300 7.000
## 301 4.034
## 302 4.758
## 303 1.724
## 304 3.551
## 305 4.724
## 306 3.724
## 307 3.758
## 308 4.000
## 309 4.552
## 310 5.206
## 311 3.931
## 312 5.690
## 313 1.517
## 314 3.551
## 315 4.965
## 316 4.036
## 317 3.482
## 318 2.446
## 319 5.241
## 320 2.758
## 321 6.000
## 322 5.379
## 323 3.276
## 324 3.034
## 325 4.000
## 326 6.448
## 327 4.447
## 328 3.758
## 329 4.482
## 330 3.482
## 331 5.034
## 332 3.895
## 333 5.620
## 334 5.966
## 335 6.034
## 336 4.103
## 337 4.172
## 338 6.517
## 339 3.207
## 340 1.517
## 341 4.102
## 342 3.276
## 343 3.758
## 344 3.724
## 345 4.310
## 346 3.241
## 347 1.552
## 348 4.241
## 349 4.517
## 350 4.724
## 351 5.276
## 352 3.724
## 353 2.448
## 354 4.723
## 355 4.276
## 356 2.724
## 357 6.379
## 358 1.724
## 359 3.034
## 360 5.482
## 361 4.965
## 362 5.241
## 363 3.964
## 364 2.241
## 365 4.516
## 366 4.309
## 367 4.585
## 368 2.206
## 369 7.000
## 370 3.758
## 371 4.448
## 372 3.172
## 373 5.724
## 374 3.758
## 375 6.276
## 376 4.930
## 377 7.000
## 378 2.000
## 379 2.758
## 380 5.000
## 381 3.689
## 382 6.517
## 383 3.275
## 384 5.034
## 385 5.758
## 386 4.275
## 387 5.000
## 388 2.758
## 389 3.276
## 390 4.793
## 391 3.310
## 392 3.999
## 393 4.931
## 394 1.517
## 395 2.793
## 396 4.241
## 397 3.448
## 398 3.207
## 399 3.241
## 400 3.827
## 401 4.207
## 402 4.585
## 403 1.724
## 404 3.826
## 405 3.482
## 406 2.275
## 407 2.000
## 408 3.275
## 409 4.758
## 410 4.000
## 411 6.241
## 412 5.276
## 413 5.413
## 414 5.552
## 415 4.001
## 416 5.758
## 417 4.551
## 418 4.034
## 419 3.137
## 420 4.344
## 421 4.585
## 422 3.379
## 423 5.689
## 424 6.276
## 425 7.000
## 426 5.931
## 427 5.966
## 428 4.517
## 429 4.447
## 430 6.000
## 431 4.965
## 432 6.242
## 433 3.724
## 434 3.552
## 435 7.000
## 436 6.448
## 437 4.448
## 438 2.517
## 439 4.240
## 440 3.758
## 441 3.827
## 442 3.034
## 443 3.724
## 444 6.448
## 445 2.000
## 446 3.827
## 447 5.896
## 448 4.276
## 449 5.069
## 450 5.552
## 451 2.689
## 452 6.276
## 453 6.103
## 454 3.414
## 455 4.241
## 456 4.689
## 457 5.517
## 458 5.276
## 459 4.207
## 460 5.276
## 461 2.000
## 462 4.000
## 463 3.931
## 464 2.724
## 465 4.000
## 466 4.034
## 467 3.517
## 468 4.931
## 469 6.759
## 470 4.448
## 471 7.000
## 472 3.656
## 473 2.724
## 474 5.552
## 475 3.792
## 476 3.620
## 477 7.000
## 478 4.965
## 479 2.448
## 480 3.034
## 481 3.965
## 482 6.034
## 483 3.000
## 484 3.206
## 485 4.034
## 486 2.241
## 487 5.517
## 488 5.517
## 489 5.586
## 490 3.276
## 491 4.137
## 492 4.276
## 493 2.000
## 494 3.206
## 495 4.965
## 496 4.758
## 497 4.275
## 498 5.000
## 499 3.413
## 500 5.310
## 501 2.241
## 502 7.000
## 503 4.483
## 504 1.000
## 505 2.414
## 506 4.517
## 507 3.724
## 508 2.207
## 509 2.207
## 510 2.517
## 511 2.000
## 512 5.000
## 513 3.793
## 514 4.516
## 515 3.309
## 516 2.793
## 517 6.000
## 518 2.724
## 519 3.517
## 520 2.724
## 521 2.241
## 522 5.449
## 523 2.724
## 524 4.033
## 525 5.483
## 526 4.309
## 527 4.517
## 528 2.964
## 529 1.965
## 530 3.000
## 531 3.931
## 532 3.758
## 533 3.965
## 534 3.792
## 535 3.034
## 536 3.171
## 537 3.034
## 538 2.758
## 539 4.655
## 540 4.000
## 541 2.000
## 542 3.965
## 543 7.000
## 544 5.068
## 545 6.517
## 546 5.275
## 547 4.482
## 548 4.241
## 549 4.482
## 550 3.758
## 551 4.000
## 552 4.000
## 553 4.034
## 554 3.793
## 555 3.241
## 556 5.206
## 557 3.481
## 558 3.034
## 559 4.000
## 560 1.000
## 561 3.758
## 562 2.827
## 563 3.757
## 564 2.516
## 565 5.241
## 566 2.241
## 567 3.931
## 568 3.275
## 569 3.828
## 570 2.724
## 571 3.724
## 572 5.517
## 573 7.000
## 574 4.482
## 575 2.724
## 576 5.517
## 577 2.482
## 578 4.034
## 579 5.448
## 580 5.000
## 581 5.000
## 582 5.551
## 583 5.241
## 584 2.965
## 585 4.241
## 586 2.448
## 587 2.483
## 588 4.034
## 589 1.965
## 590 3.965
## 591 4.206
## 592 3.034
## 593 3.517
## 594 4.034
## 595 4.001
## 596 5.000
## 597 4.724
## 598 2.483
## 599 4.759
## 600 4.758
## 601 3.000
## 602 5.035
## 603 3.930
## 604 3.000
## 605 2.551
## 606 1.448
## 607 4.585
## 608 1.724
## 609 2.621
## 610 5.552
## 611 1.723
## 612 3.758
## 613 3.551
## 614 5.724
## 615 3.724
## 616 5.793
## 617 3.517
## 618 7.000
## 619 4.690
## 620 2.000
## 621 6.724
## 622 5.965
## 623 2.275
## 624 4.793
## 625 2.517
## 626 3.827
## 627 7.000
## 628 6.000
## 629 2.276
## 630 4.000
## 631 5.448
## 632 5.035
## 633 3.206
## 634 6.448
## 635 5.000
## 636 3.276
## 637 3.550
## 638 5.758
## 639 1.931
## 640 2.241
## 641 1.000
## 642 3.034
## 643 4.000
## 644 4.000
## 645 2.311
## 646 4.000
## 647 4.241
## 648 4.241
## 649 2.069
## 650 7.000
## 651 4.793
## 652 5.483
## 653 4.000
## 654 3.965
## 655 6.724
## 656 6.759
## 657 2.759
## 658 6.448
## 659 5.241
## 660 4.517
## 661 6.034
## 662 1.517
## 663 6.448
## 664 5.000
## 665 6.000
## 666 4.999
## 667 2.516
## 668 4.792
## 669 2.758
## 670 4.724
## 671 7.000
## 672 5.724
## 673 5.000
## 674 4.102
## 675 7.000
## 676 5.758
## 677 5.034
## 678 2.241
## 679 6.069
## 680 4.966
## 681 3.310
## 682 4.448
## 683 3.172
## 684 4.552
## 685 4.172
## 686 3.034
## 687 1.724
## 688 4.965
## 689 1.723
## 690 5.000
## 691 2.999
## 692 4.654
## 693 4.034
## 694 4.482
## 695 6.310
## 696 4.207
## 697 6.034
## 698 6.000
## 699 4.759
## 700 3.793
## 701 4.379
## 702 5.207
## 703 6.310
## 704 3.965
## 705 5.689
## 706 6.483
## 707 3.000
## 708 3.724
## 709 2.207
## 710 3.724
## 711 3.241
## 712 6.000
## 713 4.102
## 714 2.517
## 715 2.552
## 716 5.000
## 717 1.724
## 718 5.759
## 719 3.551
## 720 5.689
## 721 4.034
## 722 2.758
## 723 3.517
## 724 3.965
## 725 4.517
## 726 6.034
## 727 3.000
## 728 4.068
## 729 2.241
## 730 3.482
## 731 2.999
## 732 3.241
## 733 3.758
## 734 4.241
## 735 3.724
## 736 3.241
## 737 2.758
## 738 4.241
## 739 3.966
## 740 3.241
## 741 4.517
## 742 4.793
## 743 6.517
## 744 5.310
## 745 4.482
## 746 5.517
## 747 4.723
## 748 5.551
## 749 2.517
## 750 4.517
## 751 5.379
## 752 4.241
## 753 7.000
## 754 5.965
## 755 4.793
## 756 4.000
## 757 6.034
## 758 4.068
## 759 3.655
## 760 3.965
## 761 3.517
## 762 3.965
## 763 2.654
## 764 3.688
## 765 3.999
## 766 3.551
## 767 3.517
## 768 3.758
## 769 3.723
## 770 1.000
## 771 3.517
## 772 5.620
## 773 5.551
## 774 6.241
## 775 1.482
## 776 2.966
## 777 3.275
## 778 2.517
## 779 3.758
## 780 6.034
## 781 6.793
## 782 5.724
## 783 3.550
## 784 4.276
## 785 6.000
## 786 2.517
## 787 4.447
## 788 5.689
## 789 3.034
## 790 5.793
## 791 5.482
## 792 4.516
## 793 3.965
## 794 5.724
## 795 3.206
## 796 4.930
## 797 3.172
## 798 3.690
## 799 1.241
## 800 2.034
## 801 3.793
## 802 4.931
## 803 2.552
## 804 4.241
## 805 4.276
## 806 4.000
## 807 5.172
## 808 6.724
## 809 3.034
## 810 2.241
## 811 2.862
## 812 4.000
## 813 4.448
## 814 5.172
## 815 5.000
## 816 4.965
## 817 6.172
## 818 5.827
## 819 5.069
## 820 4.000
## 821 2.517
## 822 4.689
## 823 1.965
## 824 2.482
## 825 3.517
## 826 4.138
## 827 3.241
## 828 3.241
## 829 4.965
## 830 5.034
## 831 2.758
## 832 3.482
## 833 5.241
## 834 3.965
## 835 6.241
## 836 5.517
## 837 3.724
## 838 6.000
## 839 4.241
## 840 4.827
## 841 4.000
## 842 3.517
## 843 5.517
## 844 4.000
## 845 3.965
## 846 4.448
## 847 3.482
## 848 4.689
## 849 4.483
## 850 5.724
## 851 7.000
## 852 3.792
## 853 2.482
## 854 7.000
## 855 6.793
## 856 3.448
## 857 3.241
## 858 3.999
## 859 4.965
## 860 2.758
## 861 5.276
## 862 2.792
## 863 3.517
## 864 5.793
## 865 5.517
## 866 2.482
## 867 4.276
## 868 7.000
## 869 3.758
## 870 2.448
## 871 4.655
## 872 5.517
## 873 3.724
## 874 3.448
## 875 7.000
## 876 7.000
## 877 3.517
## 878 4.931
## 879 1.517
## 880 4.000
## 881 4.276
## 882 5.758
## 883 3.517
## 884 3.034
## 885 4.000
## 886 5.034
## 887 4.758
## 888 4.965
## 889 4.966
## 890 2.000
## 891 2.758
## 892 2.758
## 893 5.241
## 894 5.827
## 895 4.758
## 896 2.965
## 897 5.551
## 898 1.000
## 899 3.517
## 900 4.517
## 901 4.275
## 902 2.414
## 903 2.241
## 904 2.000
## 905 4.310
## 906 6.000
## 907 5.000
## 908 6.241
## 909 2.241
## 910 4.793
## 911 4.000
## 912 4.517
## 913 1.482
## 914 5.482
## 915 7.000
## 916 5.758
## 917 4.792
## 918 5.965
## 919 4.516
## 920 5.000
## 921 3.965
## 922 5.275
## 923 2.758
## 924 5.758
## 925 3.723
## 926 4.897
## 927 4.482
## 928 3.000
## 929 1.965
## 930 4.172
## 931 3.965
## 932 4.241
## 933 3.482
## 934 4.000
## 935 3.069
## 936 2.516
## 937 6.000
## 938 5.000
## 939 2.758
## 940 4.000
## 941 3.517
## 942 3.517
## 943 6.724
## 944 5.000
## 945 7.000
## 946 4.758
## 947 3.965
## 948 2.724
## 949 5.758
## 950 5.517
## 951 5.413
## 952 5.344
## 953 6.724
## 954 5.000
## 955 4.517
## 956 5.000
## 957 1.793
## 958 4.483
## 959 4.102
## 960 6.034
## 961 5.000
## 962 4.000
## 963 3.241
## 964 2.034
## 965 3.861
## 966 3.240
## 967 5.000
## 968 5.310
## 969 3.793
## 970 5.482
## 971 7.000
## 972 3.310
## 973 4.586
## 974 6.000
## 975 6.000
## 976 4.068
## 977 6.277
## 978 4.758
## 979 4.724
## 980 3.240
## 981 5.241
## 982 3.000
## 983 3.000
## 984 2.827
## 985 3.517
## 986 3.034
## 987 4.724
## 988 4.068
## 989 6.379
## 990 5.517
## 991 6.724
## 992 4.965
## 993 4.034
## 994 4.758
## 995 4.689
## 996 3.482
## 997 5.344
## 998 6.448
## 999 4.965
## 1000 5.000
## 1001 4.103
## 1002 2.723
## 1003 3.413
## 1004 6.517
## 1005 5.896
## 1006 5.413
## 1007 5.276
## 1008 4.517
## 1009 4.000
## 1010 4.793
## 1011 4.861
## 1012 3.172
## 1013 4.033
## 1014 5.551
## 1015 5.689
## 1016 4.241
## 1017 2.000
## 1018 1.724
## 1019 5.758
## 1020 5.966
## 1021 3.414
## 1022 5.311
## 1023 5.241
## 1024 5.207
## 1025 4.932
## 1026 2.999
## 1027 3.241
## 1028 7.000
## 1029 4.000
## 1030 4.516
## 1031 4.241
## 1032 7.000
## 1033 4.930
## 1034 3.861
## 1035 5.034
## 1036 5.173
## 1037 2.000
## 1038 3.241
## 1039 3.689
## 1040 2.482
## 1041 2.759
## 1042 6.724
## 1043 4.965
## 1044 6.034
## 1045 6.276
## 1046 6.448
## 1047 6.172
## 1048 3.655
## 1049 3.241
## 1050 5.517
## 1051 3.691
## 1052 3.000
## 1053 4.723
## 1054 4.758
## 1055 6.517
## 1056 4.000
## 1057 5.482
## 1058 5.344
## 1059 4.241
## 1060 4.000
## 1061 4.241
## 1062 4.068
## 1063 4.241
## 1064 2.241
## 1065 6.034
## 1066 4.654
## 1067 7.000
## 1068 7.000
## 1069 3.758
## 1070 4.447
## 1071 5.517
## 1072 3.724
## 1073 3.000
## 1074 3.552
## 1075 5.965
## 1076 2.758
## 1077 2.448
## 1078 6.000
## 1079 4.241
## 1080 2.758
## 1081 5.483
## 1082 6.207
## 1083 3.758
## 1084 4.999
## 1085 6.793
## 1086 5.448
## 1087 4.517
## 1088 5.758
## 1089 4.000
## 1090 2.482
## 1091 5.517
## 1092 4.793
## 1093 6.276
## 1094 3.274
## 1095 5.517
## 1096 3.966
## 1097 4.033
## 1098 4.275
## 1099 4.378
## 1100 5.517
## 1101 4.896
## 1102 3.000
## 1103 6.172
## 1104 3.965
## 1105 3.724
## 1106 3.793
## 1107 4.517
## 1108 4.654
## 1109 4.723
## 1110 7.000
## 1111 4.241
## 1112 4.000
## 1113 3.965
## 1114 3.000
## 1115 6.241
## 1116 5.413
## 1117 7.000
## 1118 2.654
## 1119 2.724
## 1120 3.276
## 1121 3.689
## 1122 5.000
## 1123 3.034
## 1124 7.000
## 1125 4.965
## 1126 7.000
## 1127 4.034
## 1128 4.000
## 1129 3.517
## 1130 4.758
## 1131 4.000
## 1132 4.724
## 1133 3.758
## 1134 3.724
## 1135 6.000
## 1136 4.654
## 1137 4.171
## 1138 6.241
## 1139 4.207
## 1140 5.276
## 1141 1.000
## 1142 2.517
## 1143 4.517
## 1144 5.344
## 1145 4.241
## 1146 6.517
## 1147 3.689
## 1148 5.483
## 1149 3.724
## 1150 4.656
## 1151 4.586
## 1152 4.276
## 1153 4.965
## 1154 6.241
## 1155 4.276
## 1156 1.000
## 1157 3.241
## 1158 4.827
## 1159 4.758
## 1160 3.517
## 1161 4.241
## 1162 6.276
## 1163 6.000
## 1164 5.034
## 1165 2.446
## 1166 2.414
## 1167 4.758
## 1168 6.241
## 1169 5.724
## 1170 3.000
## 1171 3.758
## 1172 2.517
## 1173 5.241
## 1174 3.551
## 1175 4.551
## 1176 2.482
## 1177 4.000
## 1178 4.000
## 1179 6.172
## 1180 4.999
## 1181 3.550
## 1182 4.448
## 1183 2.241
## 1184 2.483
## 1185 3.516
## 1186 2.448
## 1187 6.724
## 1188 3.965
## 1189 5.000
## 1190 4.241
## 1191 6.241
## 1192 4.793
## 1193 1.000
## 1194 3.896
## 1195 3.173
## 1196 3.725
## 1197 4.759
## 1198 3.276
## 1199 4.724
## 1200 3.483
## 1201 5.000
## 1202 4.000
## 1203 3.275
## 1204 5.965
## 1205 7.000
## 1206 2.448
## 1207 3.861
## 1208 4.724
## 1209 7.000
## 1210 3.757
## 1211 4.724
## 1212 2.965
## 1213 5.241
## 1214 4.000
## 1215 6.277
## 1216 3.724
## 1217 4.827
## 1218 6.069
## 1219 3.793
## 1220 5.517
## 1221 2.276
## 1222 4.034
## 1223 3.448
## 1224 6.517
## 1225 5.689
## 1226 4.241
## 1227 5.724
## 1228 5.034
## 1229 4.482
## 1230 4.585
## 1231 4.309
## 1232 6.241
## 1233 4.758
## 1234 4.483
## 1235 3.896
## 1236 3.724
## 1237 4.758
## 1238 4.517
## 1239 4.930
## 1240 5.482
## 1241 4.517
## 1242 5.000
## 1243 4.448
## 1244 6.103
## 1245 3.310
## 1246 4.827
## 1247 4.207
## 1248 5.449
## 1249 4.517
## 1250 3.758
## 1251 6.034
## 1252 5.068
## 1253 6.241
## 1254 4.827
## 1255 7.000
## 1256 5.275
## 1257 3.241
## 1258 4.724
## 1259 3.448
## 1260 5.896
## 1261 2.690
## 1262 6.586
## 1263 6.724
## 1264 5.724
## 1265 5.965
## 1266 6.241
## 1267 2.758
## 1268 3.276
## 1269 5.551
## 1270 3.861
## 1271 2.586
## 1272 3.896
## 1273 3.034
## 1274 7.000
## 1275 2.241
## 1276 5.000
## 1277 5.793
## 1278 3.000
## 1279 5.069
## 1280 2.034
## 1281 3.827
## 1282 3.517
## 1283 5.000
## 1284 5.241
## 1285 2.724
## 1286 5.758
## 1287 4.861
## 1288 2.724
## 1289 6.483
## 1290 4.448
## 1291 7.000
## 1292 5.483
## 1293 4.000
## 1294 5.793
## 1295 3.276
## 1296 5.034
## 1297 5.551
## 1298 4.999
## 1299 1.724
## 1300 5.000
## 1301 4.482
## 1302 2.999
## 1303 3.759
## 1304 4.310
## 1305 3.724
## 1306 5.000
## 1307 7.000
## 1308 4.345
## 1309 5.206
## 1310 5.069
## 1311 6.310
## 1312 4.758
## 1313 4.241
## 1314 3.276
## 1315 4.793
## 1316 4.241
## 1317 4.517
## 1318 4.724
## 1319 3.034
## 1320 2.724
## 1321 6.034
## 1322 2.000
## 1323 5.482
## 1324 4.724
## 1325 5.241
## 1326 4.482
## 1327 2.931
## 1328 7.000
## 1329 6.000
## 1330 5.965
## 1331 7.000
## 1332 4.069
## 1333 4.517
## 1334 6.172
## 1335 6.103
## 1336 5.551
## 1337 4.276
## 1338 4.861
## 1339 4.654
## 1340 6.517
## 1341 2.999
## 1342 4.000
## 1343 4.241
## 1344 5.206
## 1345 4.552
## 1346 2.275
## 1347 5.000
## 1348 3.689
## 1349 5.517
## 1350 2.552
## 1351 6.448
## 1352 4.999
## 1353 3.758
## 1354 2.965
## 1355 2.724
## 1356 2.759
## 1357 7.000
## 1358 4.241
## 1359 2.518
## 1360 4.000
## 1361 7.000
## 1362 4.138
## 1363 4.724
## 1364 4.000
## 1365 3.862
## 1366 3.792
## 1367 3.964
## 1368 7.000
## 1369 4.724
## 1370 5.586
## 1371 2.000
## 1372 3.000
## 1373 4.517
## 1374 3.482
## 1375 3.000
## 1376 3.758
## 1377 4.173
## 1378 4.758
## 1379 4.000
## 1380 3.757
## 1381 5.793
## 1382 5.759
## 1383 4.620
## 1384 5.068
## 1385 3.481
## 1386 4.482
## 1387 4.138
## 1388 2.000
## 1389 4.241
## 1390 4.000
## 1391 5.206
## 1392 3.448
## 1393 4.345
## 1394 2.483
## 1395 4.310
## 1396 3.000
## 1397 4.759
## 1398 3.759
## 1399 5.276
## 1400 2.517
## 1401 5.034
## 1402 4.620
## 1403 2.000
## 1404 4.792
## 1405 3.241
## 1406 7.000
## 1407 4.309
## 1408 4.207
## 1409 1.000
## 1410 4.999
## 1411 4.240
## 1412 4.482
## 1413 5.103
## 1414 5.000
## 1415 3.034
## 1416 5.758
## 1417 7.000
## 1418 6.034
## 1419 4.241
## 1420 4.068
## 1421 5.276
## 1422 4.896
## 1423 4.033
## 1424 4.069
## 1425 5.206
## 1426 5.551
## 1427 4.792
## 1428 7.000
## 1429 7.000
## 1430 3.724
## 1431 7.000
## 1432 4.000
## 1433 7.000
## 1434 4.758
## 1435 4.517
## 1436 7.000
## 1437 4.000
## 1438 3.033
## 1439 2.517
## 1440 4.793
## 1441 4.275
## 1442 5.793
## 1443 4.621
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans73=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans73)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 40.80 54.02 55.12 70.41 100.00
round(sd(IH_trans73),2)
## [1] 22.08
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=CaliyPalmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 8:11) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(8:11)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:4])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 54.01667 54.60000 54.01667 54.01667 51.15000 54.60000 54.01667 54.01667
## [9] 54.00000 54.58333 54.00000 54.60000 56.88333 54.01667 54.01667 54.01667
## [17] 54.03333 54.01667 54.01667 54.01667 54.58333 54.01667 53.45000 54.01667
## [25] 54.01667 54.01667 54.00000 54.58333 54.60000 54.01667 54.60000 54.01667
## [33] 54.58333 52.28333 54.58333 54.58333 54.01667 54.01667 54.01667 54.01667
## [41] 54.01667 54.01667 54.01667 54.60000 54.60000 53.45000 54.01667 54.01667
## [49] 54.01667 54.01667 54.01667 55.16667 54.01667 54.01667 54.58333 54.01667
## [57] 54.60000 54.01667 54.01667 52.86667 54.01667 54.01667 54.01667 54.01667
## [65] 54.01667 54.03333 53.45000 54.01667 54.01667 54.01667 54.58333 54.01667
## [73] 54.58333 54.01667 54.01667 54.60000 55.15000 54.01667 54.01667 54.01667
## [81] 54.01667 54.58333 52.30000 54.01667 55.16667 54.58333 54.60000 54.01667
## [89] 54.01667 54.01667 54.01667 54.01667 54.01667 53.45000 54.01667 54.01667
## [97] 54.58333 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [105] 54.01667 54.01667 54.60000 54.60000 54.01667 54.58333 54.01667 55.75000
## [113] 54.01667 54.01667 52.86667 54.60000 54.60000 54.01667 54.60000 54.60000
## [121] 54.60000 54.01667 54.01667 54.60000 54.01667 54.01667 54.60000 54.01667
## [129] 54.58333 54.01667 53.43333 54.01667 54.01667 54.01667 54.58333 54.01667
## [137] 54.60000 54.60000 54.01667 54.58333 54.01667 54.60000 54.03333 54.01667
## [145] 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667 54.58333
## [153] 54.01667 54.01667 54.58333 53.43333 54.01667 54.60000 54.01667 54.01667
## [161] 54.60000 55.16667 54.01667 54.01667 54.01667 54.01667 54.01667 54.00000
## [169] 52.86667 54.60000 54.01667 54.01667 54.60000 54.01667 54.01667 54.01667
## [177] 54.01667 55.16667 54.58333 54.01667 54.01667 54.60000 54.60000 54.03333
## [185] 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667 54.60000 54.58333
## [193] 54.60000 54.58333 54.01667 54.01667 55.15000 54.01667 54.01667 54.58333
## [201] 54.03333 54.03333 54.01667 54.58333 54.01667 55.75000 54.01667 54.01667
## [209] 54.58333 54.01667 54.03333 54.01667 54.01667 54.01667 54.60000 55.16667
## [217] 54.01667 54.01667 54.01667 54.01667 54.01667 54.60000 54.60000 54.01667
## [225] 53.45000 54.58333 54.03333 54.01667 55.16667 54.01667 54.60000 54.01667
## [233] 54.60000 54.60000 54.01667 55.16667 54.01667 54.01667 54.01667 55.15000
## [241] 54.01667 54.01667 54.01667 54.01667 54.03333 54.01667 54.01667 53.45000
## [249] 54.01667 54.01667 55.15000 54.01667 54.01667 54.01667 54.01667 54.01667
## [257] 54.01667 54.01667 53.45000 54.01667 54.01667 54.01667 54.01667 54.01667
## [265] 55.15000 54.01667 53.45000 54.01667 54.01667 55.15000 55.15000 54.01667
## [273] 54.01667 54.01667 54.60000 54.60000 54.01667 54.60000 54.58333 54.01667
## [281] 54.01667 53.45000 54.01667 54.01667 54.00000 55.15000 54.01667 54.01667
## [289] 54.01667 54.01667 54.60000 54.01667 54.01667 54.60000 54.58333 54.01667
## [297] 54.01667 54.01667 54.01667 55.16667 54.01667 54.00000 54.01667 54.01667
## [305] 54.01667 54.60000 54.01667 54.00000 57.45000 54.01667 54.01667 55.75000
## [313] 54.01667 54.01667 54.58333 54.01667 54.01667 54.01667 54.60000 54.58333
## [321] 54.01667 54.00000 54.60000 54.01667 54.01667 54.01667 54.01667 54.60000
## [329] 54.58333 54.01667 54.01667 54.01667 55.16667 54.01667 54.01667 54.58333
## [337] 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667
## [345] 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667
## [353] 55.15000 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667
## [361] 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667
## [369] 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 53.45000 54.01667
## [377] 53.43333 54.01667 54.01667 54.00000 54.60000 54.01667 54.01667 54.03333
## [385] 54.01667 54.01667 54.01667 54.01667 53.45000 54.01667 54.01667 53.43333
## [393] 53.45000 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667
## [401] 54.01667 54.01667 54.58333 54.01667 52.86667 54.01667 54.01667 54.01667
## [409] 54.58333 54.01667 54.01667 52.30000 54.01667 54.60000 55.16667 54.60000
## [417] 52.88333 57.46667 54.01667 54.01667 54.58333 54.60000 54.01667 54.58333
## [425] 54.01667 54.01667 53.43333 54.60000 54.01667 54.00000 54.01667 54.01667
## [433] 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667 58.03333 54.01667
## [441] 52.86667 54.01667 54.60000 54.01667 54.60000 54.58333 54.01667 54.58333
## [449] 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [457] 55.16667 54.01667 54.01667 54.58333 54.01667 54.01667 54.01667 55.16667
## [465] 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667
## [473] 54.01667 54.01667 54.58333 54.01667 54.01667 55.73333 54.01667 54.01667
## [481] 54.01667 54.58333 54.01667 54.58333 54.01667 55.15000 54.01667 54.58333
## [489] 54.01667 54.01667 54.01667 51.71667 54.58333 54.01667 54.01667 54.58333
## [497] 54.60000 54.00000 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [505] 54.01667 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667
## [513] 54.01667 54.58333 54.58333 54.01667 54.58333 54.01667 54.01667 54.01667
## [521] 54.01667 54.01667 54.01667 54.03333 54.01667 54.01667 54.01667 54.01667
## [529] 53.45000 54.01667 54.01667 55.15000 54.60000 53.45000 54.58333 54.58333
## [537] 54.58333 53.45000 54.01667 54.01667 54.01667 54.58333 54.01667 54.01667
## [545] 55.16667 54.03333 54.01667 54.01667 53.45000 55.16667 53.45000 52.86667
## [553] 54.58333 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [561] 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667 54.01667 57.45000
## [569] 54.58333 54.01667 54.01667 54.58333 54.01667 53.45000 54.01667 55.75000
## [577] 54.01667 54.01667 54.60000 54.03333 54.60000 54.60000 54.60000 54.01667
## [585] 54.60000 54.01667 54.01667 54.58333 54.60000 54.01667 54.01667 54.60000
## [593] 54.01667 55.16667 54.01667 54.03333 54.58333 54.01667 54.01667 54.58333
## [601] 54.01667 54.60000 54.60000 54.01667 54.01667 54.01667 54.60000 54.01667
## [609] 54.60000 54.60000 54.01667 51.15000 54.01667 54.01667 54.58333 54.01667
## [617] 54.01667 54.60000 53.43333 54.01667 54.01667 54.01667 54.60000 55.15000
## [625] 54.01667 54.01667 54.58333 54.60000 54.01667 54.01667 54.01667 54.01667
## [633] 54.01667 54.01667 53.45000 54.58333 54.58333 54.01667 54.01667 54.60000
## [641] 54.01667 54.58333 54.03333 54.01667 54.58333 54.01667 52.88333 54.01667
## [649] 54.01667 54.01667 54.01667 54.60000 54.03333 54.60000 54.01667 54.01667
## [657] 54.01667 54.58333 54.01667 54.01667 54.58333 54.01667 54.01667 54.01667
## [665] 54.01667 54.01667 54.60000 54.01667 55.15000 54.01667 54.01667 54.60000
## [673] 55.15000 54.01667 54.01667 54.58333 54.01667 54.01667 54.01667 54.01667
## [681] 54.60000 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667 52.85000
## [689] 54.01667 54.60000 54.01667 54.01667 54.01667 53.45000 54.01667 54.01667
## [697] 54.58333 54.01667 54.01667 54.01667 54.01667 54.01667 54.60000 55.16667
## [705] 54.01667 54.01667 54.01667 54.01667 54.58333 54.01667 54.60000 54.01667
## [713] 54.01667 54.58333 54.01667 54.01667 54.01667 54.01667 54.58333 54.60000
## [721] 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [729] 54.01667 54.58333 54.01667 54.01667 54.01667 54.01667 54.58333 54.01667
## [737] 54.60000 54.60000 54.58333 54.01667 54.01667 54.01667 54.58333 54.01667
## [745] 54.01667 54.00000 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667
## [753] 54.01667 53.45000 54.01667 54.58333 54.01667 51.71667 54.01667 55.15000
## [761] 54.60000 54.01667 54.01667 55.15000 54.01667 54.58333 54.58333 54.01667
## [769] 54.58333 54.01667 54.01667 54.01667 54.58333 57.46667 54.60000 54.01667
## [777] 54.01667 54.58333 54.01667 53.43333 54.01667 53.43333 54.01667 54.01667
## [785] 54.01667 51.13333 54.01667 54.58333 54.01667 54.60000 54.00000 54.01667
## [793] 54.60000 54.01667 54.58333 54.01667 54.01667 54.01667 54.58333 54.01667
## [801] 54.01667 52.86667 54.01667 54.60000 54.60000 54.01667 54.58333 54.58333
## [809] 54.01667 54.01667 54.01667 55.16667 54.01667 54.01667 54.01667 54.01667
## [817] 54.60000 54.01667 54.60000 54.01667 53.45000 54.58333 54.58333 54.58333
## [825] 54.00000 54.01667 54.01667 53.45000 54.01667 54.01667 54.58333 54.01667
## [833] 54.60000 54.60000 54.01667 54.01667 54.01667 54.60000 54.01667 55.16667
## [841] 55.16667 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667
## [849] 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [857] 54.01667 54.01667 54.58333 54.58333 54.01667 54.01667 54.60000 54.01667
## [865] 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.58333 53.43333
## [873] 54.01667 54.03333 54.01667 54.03333 54.01667 54.01667 54.58333 54.01667
## [881] 54.60000 54.01667 54.58333 54.03333 54.01667 54.58333 54.01667 54.01667
## [889] 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667 54.01667
## [897] 54.01667 54.01667 54.60000 54.01667 55.15000 54.58333 54.01667 54.01667
## [905] 54.58333 54.01667 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667
## [913] 54.01667 54.01667 54.60000 54.60000 54.01667 55.15000 54.58333 57.46667
## [921] 54.01667 54.01667 54.01667 54.01667 54.01667 54.00000 54.01667 54.01667
## [929] 54.58333 54.01667 54.01667 54.01667 54.58333 54.01667 54.01667 54.58333
## [937] 54.01667 54.01667 54.01667 54.01667 53.45000 54.60000 54.01667 54.01667
## [945] 54.01667 54.03333 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667
## [953] 55.16667 54.01667 54.03333 54.01667 54.01667 54.01667 54.01667 54.60000
## [961] 54.01667 54.60000 54.01667 54.01667 54.01667 54.60000 54.01667 54.60000
## [969] 54.01667 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667 54.01667
## [977] 54.01667 54.01667 54.60000 54.60000 54.01667 52.86667 51.70000 54.01667
## [985] 54.01667 54.01667 54.60000 54.01667 54.01667 54.01667 54.01667 54.01667
## [993] 54.01667 54.01667 54.01667 54.01667 54.60000 54.01667 54.03333 54.01667
I_mediana=median(NfinalMedia);
#I_ref=54.02
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans73))^2+(median(NfinalMedia)-median(IH_trans73))^2,2);EE
## [1] 23.81
SUSCEPTIBILIDAD
temp_K<-c()
lista_vacia <- vector("list", length = 1443)
celsius_to_kelvin <- function(temp_C) {
for (i in 12:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(12:16)]
}
return(datosnew)
};susceptibilidad=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(susceptibilidad[ ,1:5]);IH
## [1] 1.694 1.748 3.108 3.303 4.162 4.884 1.942 3.329 1.305 1.748 3.746 2.359
## [13] 4.107 5.716 2.968 3.746 1.748 3.135 4.135 2.330 3.496 0.777 2.137 1.970
## [25] 4.023 1.554 0.944 3.718 2.136 2.913 3.885 3.913 2.746 4.938 4.302 1.748
## [37] 3.330 4.689 5.300 2.135 3.664 2.499 1.941 4.717 3.247 0.971 1.748 2.691
## [49] 2.524 3.191 2.524 1.942 2.470 4.079 3.134 2.330 2.330 2.525 1.553 2.359
## [61] 5.327 2.692 1.359 1.554 2.858 3.025 4.107 3.274 5.689 4.273 2.331 1.554
## [73] 2.886 1.165 2.135 3.108 3.192 3.691 5.439 3.108 4.273 2.719 3.302 2.525
## [85] 2.136 4.634 2.164 1.748 4.273 2.913 3.108 3.162 2.886 4.107 2.940 3.663
## [97] 2.553 1.554 2.109 2.525 3.885 1.554 2.331 2.524 5.661 3.857 5.494 5.883
## [109] 3.746 3.302 4.107 4.329 3.136 4.301 2.552 2.551 1.332 2.331 2.719 3.302
## [121] 4.690 4.607 3.690 2.774 1.165 3.108 5.439 3.718 4.079 2.220 4.274 3.524
## [133] 5.078 2.358 3.691 1.748 2.553 4.551 2.525 1.748 5.689 4.079 4.329 3.691
## [145] 0.777 2.109 3.442 0.777 2.913 2.276 2.302 0.777 5.134 3.330 5.273 2.331
## [157] 2.913 3.302 3.330 6.549 2.470 5.883 3.552 3.108 3.940 6.105 2.719 2.498
## [169] 3.136 2.136 5.883 4.911 2.331 2.386 2.941 2.414 1.554 1.748 3.524 3.746
## [181] 4.691 2.524 5.661 1.554 3.885 3.662 1.943 3.303 4.273 2.580 2.553 2.941
## [193] 0.999 2.524 5.439 1.942 3.524 4.356 1.749 1.554 2.360 1.942 2.553 4.079
## [205] 3.080 3.829 1.803 3.106 2.331 4.717 4.689 2.911 3.302 2.497 3.081 3.718
## [217] 3.108 5.245 1.776 4.106 3.523 2.581 3.107 3.107 3.913 2.386 3.108 3.329
## [229] 1.554 3.108 5.106 3.441 4.217 5.106 3.302 1.554 1.332 2.719 2.525 0.777
## [241] 2.303 2.581 3.718 2.109 2.969 1.553 2.054 3.857 2.775 3.884 2.330 2.164
## [253] 3.302 4.578 3.330 2.581 3.329 1.554 3.941 3.496 4.107 2.109 3.968 1.748
## [265] 2.136 2.330 2.331 2.276 4.940 2.359 4.717 2.941 1.165 2.136 2.330 3.302
## [277] 2.886 3.912 4.273 3.108 2.525 2.886 3.330 2.886 1.305 2.719 4.884 1.748
## [289] 3.663 3.496 4.079 2.913 1.748 3.885 1.970 1.748 2.525 1.915 3.940 4.275
## [301] 2.331 2.831 0.777 1.332 3.885 3.136 2.969 3.136 4.578 4.052 3.108 5.078
## [313] 3.052 1.748 2.163 4.662 2.719 0.777 4.273 1.554 3.912 2.276 1.970 1.554
## [325] 3.108 3.885 3.551 2.137 3.080 2.913 3.525 3.524 3.523 5.300 2.969 1.748
## [337] 2.692 4.273 2.720 0.777 1.360 2.525 2.913 1.942 3.219 2.135 1.775 3.330
## [349] 3.302 3.496 3.940 3.136 2.691 2.525 3.302 1.748 4.939 2.414 2.524 4.857
## [361] 3.912 5.078 2.524 1.914 2.525 2.330 4.884 0.777 3.330 2.136 3.108 1.554
## [373] 4.662 3.884 5.328 3.164 1.779 1.554 1.415 3.691 3.524 6.327 2.386 4.523
## [385] 3.107 2.553 5.411 1.165 2.719 2.524 2.802 1.332 2.719 1.747 2.525 2.109
## [397] 2.331 3.468 2.525 1.748 3.524 1.445 1.970 1.941 3.301 0.777 2.885 1.415
## [409] 3.690 3.108 5.272 4.357 1.776 2.443 4.551 4.550 4.134 3.884 1.721 4.495
## [421] 3.134 1.111 3.525 3.912 4.911 3.107 3.608 3.469 3.081 2.163 3.941 5.106
## [433] 3.301 2.664 5.661 5.217 3.995 2.664 2.524 1.554 2.303 2.385 4.523 5.883
## [445] 3.691 3.107 5.716 4.718 4.301 4.745 2.524 4.884 6.327 3.108 3.108 4.107
## [457] 3.857 5.883 2.968 4.356 1.776 3.108 2.969 2.386 3.108 3.330 2.137 2.498
## [469] 5.217 2.913 5.661 4.190 2.331 5.883 1.748 1.387 5.494 3.829 2.136 2.720
## [481] 1.970 4.273 4.163 2.553 2.747 1.165 4.745 4.329 4.662 2.525 3.774 3.108
## [493] 1.554 1.332 3.302 3.330 4.717 3.913 2.498 3.690 1.554 4.079 4.301 2.889
## [505] 3.274 2.303 3.496 2.359 2.192 2.136 2.524 4.412 3.108 2.997 1.554 2.109
## [517] 3.913 2.497 2.941 2.525 2.552 5.301 1.970 1.554 3.552 2.720 3.913 1.554
## [529] 2.137 4.134 3.080 1.554 2.719 2.553 3.496 1.776 1.554 1.360 3.746 2.358
## [541] 1.942 2.525 4.884 1.748 4.052 3.774 3.108 4.717 3.552 2.330 3.108 3.912
## [553] 3.664 1.138 2.553 5.106 1.332 2.358 3.552 0.971 2.553 2.192 1.804 1.554
## [565] 3.718 2.330 4.329 0.971 3.607 1.554 2.331 4.523 2.943 3.468 1.526 2.969
## [577] 3.136 2.331 3.469 2.747 2.913 2.691 3.912 1.971 1.748 2.664 1.554 2.553
## [589] 0.971 3.136 2.525 1.554 3.330 3.579 3.941 3.524 2.497 2.081 2.997 3.718
## [601] 4.024 1.554 2.525 1.943 0.999 0.971 1.748 1.748 3.553 5.522 0.777 2.331
## [613] 3.302 4.052 3.524 4.107 1.165 5.078 3.941 1.554 5.883 3.691 0.777 2.276
## [625] 2.608 3.691 1.942 4.301 1.942 2.942 3.690 3.357 2.109 3.469 2.719 2.803
## [637] 0.971 4.274 1.499 1.581 0.777 1.721 3.552 3.330 2.774 2.913 3.330 2.331
## [649] 1.554 5.883 5.300 3.885 3.108 2.747 2.776 5.772 3.774 3.690 3.302 1.748
## [661] 3.469 1.804 5.245 1.748 4.634 3.302 3.108 2.942 1.554 2.747 5.439 4.690
## [673] 3.496 1.499 3.609 2.718 2.331 0.944 5.883 3.857 4.995 2.941 3.108 3.940
## [685] 3.885 2.331 1.138 3.330 0.999 2.691 2.302 2.525 2.747 2.497 3.108 3.524
## [697] 4.551 4.107 4.523 1.861 2.692 1.526 2.691 3.496 6.549 4.134 3.081 2.552
## [709] 1.554 3.080 2.553 3.830 0.999 1.970 3.107 3.108 1.554 3.024 3.302 2.108
## [721] 3.329 1.942 2.719 3.330 2.886 3.413 2.331 2.524 2.164 2.331 2.136 3.080
## [733] 1.748 4.690 3.912 1.554 1.775 1.970 4.273 2.692 3.468 4.107 4.024 4.690
## [745] 3.968 4.273 1.942 7.743 3.330 3.302 3.441 3.913 5.023 5.106 3.496 1.942
## [757] 5.106 4.273 3.383 3.496 3.552 2.941 1.305 1.998 4.079 2.136 3.108 2.498
## [769] 3.329 0.944 3.912 4.995 3.885 4.273 0.777 3.330 2.136 1.970 2.553 3.108
## [781] 3.885 2.524 2.441 2.525 5.522 1.776 3.108 3.107 0.971 4.163 3.327 2.331
## [793] 4.301 4.107 2.524 4.718 2.358 3.664 1.359 0.999 2.830 5.328 3.552 1.554
## [805] 2.886 2.553 4.107 5.050 2.165 2.386 1.942 2.719 4.495 3.302 3.885 3.108
## [817] 3.691 4.329 3.107 3.108 1.970 1.915 1.165 2.359 2.691 3.469 2.858 2.692
## [829] 4.912 3.135 1.776 1.970 3.885 3.940 3.690 3.746 2.331 4.856 2.940 3.302
## [841] 3.330 1.721 5.383 3.330 3.550 3.330 2.359 4.245 3.330 4.912 1.941 4.356
## [853] 1.554 3.442 3.968 3.718 1.748 2.359 3.080 1.748 4.162 1.694 2.913 5.300
## [865] 4.967 0.777 2.331 3.690 1.998 2.137 3.080 3.108 2.525 2.720 3.885 4.801
## [877] 2.109 4.080 1.665 3.330 4.107 4.689 2.886 2.277 2.914 2.525 3.912 5.522
## [889] 3.913 2.525 2.192 1.554 2.941 5.883 3.080 2.525 2.330 0.999 2.330 4.495
## [901] 2.304 1.888 2.358 1.165 4.078 4.052 0.777 4.745 1.776 3.329 3.885 3.691
## [913] 1.333 3.302 3.690 4.301 3.024 3.857 4.772 3.885 2.525 3.690 2.303 3.885
## [925] 4.274 3.052 1.915 3.164 0.944 4.690 2.552 1.942 1.720 3.497 3.218 1.472
## [937] 4.079 3.496 1.748 5.661 1.776 2.524 5.661 3.885 6.105 2.886 3.330 2.553
## [949] 1.941 5.273 4.107 4.274 5.300 3.080 3.552 4.107 1.554 4.524 2.108 3.746
## [961] 4.690 3.108 2.746 2.192 0.971 1.748 3.108 4.329 3.330 4.495 4.662 2.663
## [973] 3.718 3.885 5.106 1.747 4.857 4.579 5.106 3.134 2.525 2.330 2.969 1.554
## [985] 2.331 2.331 3.108 2.358 6.105 4.301 5.495 4.301 1.554 0.777 2.331 1.747
## [997] 3.385 5.273 3.746 4.301 1.693 1.748 4.302 4.662 4.052 2.525 3.496 3.330
## [1009] 3.108 3.302 2.524 3.135 1.748 4.356 5.467 3.108 1.332 0.971 5.661 6.105
## [1021] 2.524 5.134 4.107 5.495 4.217 2.552 2.719 3.524 4.134 2.498 3.302 5.245
## [1033] 4.079 0.971 3.912 2.108 1.554 2.331 2.331 1.776 3.302 4.273 2.553 4.495
## [1045] 4.301 4.275 2.470 3.552 2.137 4.495 4.662 1.554 3.302 2.913 3.884 3.746
## [1057] 4.079 0.777 3.968 4.912 3.108 1.554 3.108 2.524 5.744 1.860 5.079 5.661
## [1069] 2.553 2.330 4.107 2.331 2.969 2.719 3.524 2.720 2.831 4.079 2.331 2.303
## [1081] 4.329 1.779 2.886 3.524 6.549 4.273 3.912 2.663 2.498 1.942 4.107 3.275
## [1093] 5.300 1.554 4.329 2.275 2.580 2.164 2.940 4.662 0.777 2.914 5.273 1.915
## [1105] 4.107 2.331 3.496 5.050 3.552 5.245 3.552 3.108 2.719 3.690 3.302 2.747
## [1117] 3.107 0.777 2.747 2.552 2.692 3.108 1.554 4.856 3.108 5.661 2.136 3.330
## [1129] 2.941 4.107 2.719 3.302 2.525 2.720 5.550 2.858 4.052 4.884 4.107 3.663
## [1141] 0.999 1.915 0.971 1.554 3.996 5.328 2.110 3.885 3.108 5.717 2.525 2.746
## [1153] 2.775 4.107 3.552 0.999 2.747 4.079 2.525 2.553 2.719 5.300 3.717 4.772
## [1165] 0.777 1.915 3.080 6.105 3.885 2.331 2.109 3.107 3.330 2.055 2.553 1.554
## [1177] 4.080 5.523 3.329 2.302 2.442 2.525 1.360 2.525 1.941 1.138 4.578 2.109
## [1189] 3.524 2.525 4.107 3.940 0.777 1.915 4.135 4.717 3.025 2.914 2.831 3.746
## [1201] 3.885 3.968 1.748 3.108 5.661 3.329 2.302 5.106 5.300 2.359 3.857 1.748
## [1213] 3.524 1.942 5.661 3.136 4.440 4.301 2.553 4.578 1.554 2.940 3.497 4.329
## [1225] 4.079 4.107 5.522 2.747 3.718 2.719 2.719 3.108 3.108 4.135 2.859 3.330
## [1237] 3.913 2.331 1.748 3.691 3.746 3.774 3.885 4.913 2.747 4.080 3.690 5.939
## [1249] 3.719 4.107 3.885 2.719 5.133 2.330 5.883 3.524 1.915 3.552 3.829 2.942
## [1261] 3.330 3.885 4.523 5.078 2.717 4.329 2.330 3.357 1.888 3.191 0.777 3.302
## [1273] 2.136 3.078 1.776 3.885 3.690 1.776 3.802 2.940 2.913 2.969 4.551 5.717
## [1285] 3.496 4.884 3.302 2.553 5.467 3.718 5.439 4.939 3.718 4.107 2.719 4.301
## [1297] 5.661 4.800 1.942 3.690 3.302 2.552 2.331 2.774 3.913 3.885 5.382 3.717
## [1309] 4.689 3.719 5.549 3.108 3.330 3.191 2.331 4.690 3.746 4.716 2.137 1.748
## [1321] 4.329 0.777 3.885 4.549 4.718 3.274 2.942 4.495 4.079 3.302 3.690 2.553
## [1333] 4.550 6.105 5.938 4.080 3.053 5.217 2.329 4.663 1.970 3.690 3.524 4.495
## [1345] 3.691 0.777 4.107 2.137 4.634 1.554 5.495 3.468 2.691 2.913 3.107 2.331
## [1357] 5.661 4.856 4.189 3.552 4.995 1.831 4.690 3.108 4.328 1.554 2.330 5.078
## [1369] 2.524 3.607 2.330 1.915 3.358 3.719 2.832 2.331 4.302 2.358 3.912 2.330
## [1381] 3.524 4.301 4.717 4.717 1.554 2.997 3.912 1.748 3.496 2.304 1.915 3.330
## [1393] 3.108 4.885 2.747 2.525 3.912 2.471 3.885 1.942 5.328 1.554 1.332 1.554
## [1405] 2.525 3.108 3.135 3.524 0.777 4.051 3.108 3.108 3.745 3.690 1.942 3.275
## [1417] 5.661 3.690 4.439 1.332 4.273 2.416 2.331 2.524 3.247 1.941 4.107 5.883
## [1429] 3.494 3.912 5.273 2.331 5.883 3.108 3.329 5.661 5.328 1.941 2.721 3.080
## [1441] 2.886 4.328 2.581
data.frame(IH)
## IH
## 1 1.694
## 2 1.748
## 3 3.108
## 4 3.303
## 5 4.162
## 6 4.884
## 7 1.942
## 8 3.329
## 9 1.305
## 10 1.748
## 11 3.746
## 12 2.359
## 13 4.107
## 14 5.716
## 15 2.968
## 16 3.746
## 17 1.748
## 18 3.135
## 19 4.135
## 20 2.330
## 21 3.496
## 22 0.777
## 23 2.137
## 24 1.970
## 25 4.023
## 26 1.554
## 27 0.944
## 28 3.718
## 29 2.136
## 30 2.913
## 31 3.885
## 32 3.913
## 33 2.746
## 34 4.938
## 35 4.302
## 36 1.748
## 37 3.330
## 38 4.689
## 39 5.300
## 40 2.135
## 41 3.664
## 42 2.499
## 43 1.941
## 44 4.717
## 45 3.247
## 46 0.971
## 47 1.748
## 48 2.691
## 49 2.524
## 50 3.191
## 51 2.524
## 52 1.942
## 53 2.470
## 54 4.079
## 55 3.134
## 56 2.330
## 57 2.330
## 58 2.525
## 59 1.553
## 60 2.359
## 61 5.327
## 62 2.692
## 63 1.359
## 64 1.554
## 65 2.858
## 66 3.025
## 67 4.107
## 68 3.274
## 69 5.689
## 70 4.273
## 71 2.331
## 72 1.554
## 73 2.886
## 74 1.165
## 75 2.135
## 76 3.108
## 77 3.192
## 78 3.691
## 79 5.439
## 80 3.108
## 81 4.273
## 82 2.719
## 83 3.302
## 84 2.525
## 85 2.136
## 86 4.634
## 87 2.164
## 88 1.748
## 89 4.273
## 90 2.913
## 91 3.108
## 92 3.162
## 93 2.886
## 94 4.107
## 95 2.940
## 96 3.663
## 97 2.553
## 98 1.554
## 99 2.109
## 100 2.525
## 101 3.885
## 102 1.554
## 103 2.331
## 104 2.524
## 105 5.661
## 106 3.857
## 107 5.494
## 108 5.883
## 109 3.746
## 110 3.302
## 111 4.107
## 112 4.329
## 113 3.136
## 114 4.301
## 115 2.552
## 116 2.551
## 117 1.332
## 118 2.331
## 119 2.719
## 120 3.302
## 121 4.690
## 122 4.607
## 123 3.690
## 124 2.774
## 125 1.165
## 126 3.108
## 127 5.439
## 128 3.718
## 129 4.079
## 130 2.220
## 131 4.274
## 132 3.524
## 133 5.078
## 134 2.358
## 135 3.691
## 136 1.748
## 137 2.553
## 138 4.551
## 139 2.525
## 140 1.748
## 141 5.689
## 142 4.079
## 143 4.329
## 144 3.691
## 145 0.777
## 146 2.109
## 147 3.442
## 148 0.777
## 149 2.913
## 150 2.276
## 151 2.302
## 152 0.777
## 153 5.134
## 154 3.330
## 155 5.273
## 156 2.331
## 157 2.913
## 158 3.302
## 159 3.330
## 160 6.549
## 161 2.470
## 162 5.883
## 163 3.552
## 164 3.108
## 165 3.940
## 166 6.105
## 167 2.719
## 168 2.498
## 169 3.136
## 170 2.136
## 171 5.883
## 172 4.911
## 173 2.331
## 174 2.386
## 175 2.941
## 176 2.414
## 177 1.554
## 178 1.748
## 179 3.524
## 180 3.746
## 181 4.691
## 182 2.524
## 183 5.661
## 184 1.554
## 185 3.885
## 186 3.662
## 187 1.943
## 188 3.303
## 189 4.273
## 190 2.580
## 191 2.553
## 192 2.941
## 193 0.999
## 194 2.524
## 195 5.439
## 196 1.942
## 197 3.524
## 198 4.356
## 199 1.749
## 200 1.554
## 201 2.360
## 202 1.942
## 203 2.553
## 204 4.079
## 205 3.080
## 206 3.829
## 207 1.803
## 208 3.106
## 209 2.331
## 210 4.717
## 211 4.689
## 212 2.911
## 213 3.302
## 214 2.497
## 215 3.081
## 216 3.718
## 217 3.108
## 218 5.245
## 219 1.776
## 220 4.106
## 221 3.523
## 222 2.581
## 223 3.107
## 224 3.107
## 225 3.913
## 226 2.386
## 227 3.108
## 228 3.329
## 229 1.554
## 230 3.108
## 231 5.106
## 232 3.441
## 233 4.217
## 234 5.106
## 235 3.302
## 236 1.554
## 237 1.332
## 238 2.719
## 239 2.525
## 240 0.777
## 241 2.303
## 242 2.581
## 243 3.718
## 244 2.109
## 245 2.969
## 246 1.553
## 247 2.054
## 248 3.857
## 249 2.775
## 250 3.884
## 251 2.330
## 252 2.164
## 253 3.302
## 254 4.578
## 255 3.330
## 256 2.581
## 257 3.329
## 258 1.554
## 259 3.941
## 260 3.496
## 261 4.107
## 262 2.109
## 263 3.968
## 264 1.748
## 265 2.136
## 266 2.330
## 267 2.331
## 268 2.276
## 269 4.940
## 270 2.359
## 271 4.717
## 272 2.941
## 273 1.165
## 274 2.136
## 275 2.330
## 276 3.302
## 277 2.886
## 278 3.912
## 279 4.273
## 280 3.108
## 281 2.525
## 282 2.886
## 283 3.330
## 284 2.886
## 285 1.305
## 286 2.719
## 287 4.884
## 288 1.748
## 289 3.663
## 290 3.496
## 291 4.079
## 292 2.913
## 293 1.748
## 294 3.885
## 295 1.970
## 296 1.748
## 297 2.525
## 298 1.915
## 299 3.940
## 300 4.275
## 301 2.331
## 302 2.831
## 303 0.777
## 304 1.332
## 305 3.885
## 306 3.136
## 307 2.969
## 308 3.136
## 309 4.578
## 310 4.052
## 311 3.108
## 312 5.078
## 313 3.052
## 314 1.748
## 315 2.163
## 316 4.662
## 317 2.719
## 318 0.777
## 319 4.273
## 320 1.554
## 321 3.912
## 322 2.276
## 323 1.970
## 324 1.554
## 325 3.108
## 326 3.885
## 327 3.551
## 328 2.137
## 329 3.080
## 330 2.913
## 331 3.525
## 332 3.524
## 333 3.523
## 334 5.300
## 335 2.969
## 336 1.748
## 337 2.692
## 338 4.273
## 339 2.720
## 340 0.777
## 341 1.360
## 342 2.525
## 343 2.913
## 344 1.942
## 345 3.219
## 346 2.135
## 347 1.775
## 348 3.330
## 349 3.302
## 350 3.496
## 351 3.940
## 352 3.136
## 353 2.691
## 354 2.525
## 355 3.302
## 356 1.748
## 357 4.939
## 358 2.414
## 359 2.524
## 360 4.857
## 361 3.912
## 362 5.078
## 363 2.524
## 364 1.914
## 365 2.525
## 366 2.330
## 367 4.884
## 368 0.777
## 369 3.330
## 370 2.136
## 371 3.108
## 372 1.554
## 373 4.662
## 374 3.884
## 375 5.328
## 376 3.164
## 377 1.779
## 378 1.554
## 379 1.415
## 380 3.691
## 381 3.524
## 382 6.327
## 383 2.386
## 384 4.523
## 385 3.107
## 386 2.553
## 387 5.411
## 388 1.165
## 389 2.719
## 390 2.524
## 391 2.802
## 392 1.332
## 393 2.719
## 394 1.747
## 395 2.525
## 396 2.109
## 397 2.331
## 398 3.468
## 399 2.525
## 400 1.748
## 401 3.524
## 402 1.445
## 403 1.970
## 404 1.941
## 405 3.301
## 406 0.777
## 407 2.885
## 408 1.415
## 409 3.690
## 410 3.108
## 411 5.272
## 412 4.357
## 413 1.776
## 414 2.443
## 415 4.551
## 416 4.550
## 417 4.134
## 418 3.884
## 419 1.721
## 420 4.495
## 421 3.134
## 422 1.111
## 423 3.525
## 424 3.912
## 425 4.911
## 426 3.107
## 427 3.608
## 428 3.469
## 429 3.081
## 430 2.163
## 431 3.941
## 432 5.106
## 433 3.301
## 434 2.664
## 435 5.661
## 436 5.217
## 437 3.995
## 438 2.664
## 439 2.524
## 440 1.554
## 441 2.303
## 442 2.385
## 443 4.523
## 444 5.883
## 445 3.691
## 446 3.107
## 447 5.716
## 448 4.718
## 449 4.301
## 450 4.745
## 451 2.524
## 452 4.884
## 453 6.327
## 454 3.108
## 455 3.108
## 456 4.107
## 457 3.857
## 458 5.883
## 459 2.968
## 460 4.356
## 461 1.776
## 462 3.108
## 463 2.969
## 464 2.386
## 465 3.108
## 466 3.330
## 467 2.137
## 468 2.498
## 469 5.217
## 470 2.913
## 471 5.661
## 472 4.190
## 473 2.331
## 474 5.883
## 475 1.748
## 476 1.387
## 477 5.494
## 478 3.829
## 479 2.136
## 480 2.720
## 481 1.970
## 482 4.273
## 483 4.163
## 484 2.553
## 485 2.747
## 486 1.165
## 487 4.745
## 488 4.329
## 489 4.662
## 490 2.525
## 491 3.774
## 492 3.108
## 493 1.554
## 494 1.332
## 495 3.302
## 496 3.330
## 497 4.717
## 498 3.913
## 499 2.498
## 500 3.690
## 501 1.554
## 502 4.079
## 503 4.301
## 504 2.889
## 505 3.274
## 506 2.303
## 507 3.496
## 508 2.359
## 509 2.192
## 510 2.136
## 511 2.524
## 512 4.412
## 513 3.108
## 514 2.997
## 515 1.554
## 516 2.109
## 517 3.913
## 518 2.497
## 519 2.941
## 520 2.525
## 521 2.552
## 522 5.301
## 523 1.970
## 524 1.554
## 525 3.552
## 526 2.720
## 527 3.913
## 528 1.554
## 529 2.137
## 530 4.134
## 531 3.080
## 532 1.554
## 533 2.719
## 534 2.553
## 535 3.496
## 536 1.776
## 537 1.554
## 538 1.360
## 539 3.746
## 540 2.358
## 541 1.942
## 542 2.525
## 543 4.884
## 544 1.748
## 545 4.052
## 546 3.774
## 547 3.108
## 548 4.717
## 549 3.552
## 550 2.330
## 551 3.108
## 552 3.912
## 553 3.664
## 554 1.138
## 555 2.553
## 556 5.106
## 557 1.332
## 558 2.358
## 559 3.552
## 560 0.971
## 561 2.553
## 562 2.192
## 563 1.804
## 564 1.554
## 565 3.718
## 566 2.330
## 567 4.329
## 568 0.971
## 569 3.607
## 570 1.554
## 571 2.331
## 572 4.523
## 573 2.943
## 574 3.468
## 575 1.526
## 576 2.969
## 577 3.136
## 578 2.331
## 579 3.469
## 580 2.747
## 581 2.913
## 582 2.691
## 583 3.912
## 584 1.971
## 585 1.748
## 586 2.664
## 587 1.554
## 588 2.553
## 589 0.971
## 590 3.136
## 591 2.525
## 592 1.554
## 593 3.330
## 594 3.579
## 595 3.941
## 596 3.524
## 597 2.497
## 598 2.081
## 599 2.997
## 600 3.718
## 601 4.024
## 602 1.554
## 603 2.525
## 604 1.943
## 605 0.999
## 606 0.971
## 607 1.748
## 608 1.748
## 609 3.553
## 610 5.522
## 611 0.777
## 612 2.331
## 613 3.302
## 614 4.052
## 615 3.524
## 616 4.107
## 617 1.165
## 618 5.078
## 619 3.941
## 620 1.554
## 621 5.883
## 622 3.691
## 623 0.777
## 624 2.276
## 625 2.608
## 626 3.691
## 627 1.942
## 628 4.301
## 629 1.942
## 630 2.942
## 631 3.690
## 632 3.357
## 633 2.109
## 634 3.469
## 635 2.719
## 636 2.803
## 637 0.971
## 638 4.274
## 639 1.499
## 640 1.581
## 641 0.777
## 642 1.721
## 643 3.552
## 644 3.330
## 645 2.774
## 646 2.913
## 647 3.330
## 648 2.331
## 649 1.554
## 650 5.883
## 651 5.300
## 652 3.885
## 653 3.108
## 654 2.747
## 655 2.776
## 656 5.772
## 657 3.774
## 658 3.690
## 659 3.302
## 660 1.748
## 661 3.469
## 662 1.804
## 663 5.245
## 664 1.748
## 665 4.634
## 666 3.302
## 667 3.108
## 668 2.942
## 669 1.554
## 670 2.747
## 671 5.439
## 672 4.690
## 673 3.496
## 674 1.499
## 675 3.609
## 676 2.718
## 677 2.331
## 678 0.944
## 679 5.883
## 680 3.857
## 681 4.995
## 682 2.941
## 683 3.108
## 684 3.940
## 685 3.885
## 686 2.331
## 687 1.138
## 688 3.330
## 689 0.999
## 690 2.691
## 691 2.302
## 692 2.525
## 693 2.747
## 694 2.497
## 695 3.108
## 696 3.524
## 697 4.551
## 698 4.107
## 699 4.523
## 700 1.861
## 701 2.692
## 702 1.526
## 703 2.691
## 704 3.496
## 705 6.549
## 706 4.134
## 707 3.081
## 708 2.552
## 709 1.554
## 710 3.080
## 711 2.553
## 712 3.830
## 713 0.999
## 714 1.970
## 715 3.107
## 716 3.108
## 717 1.554
## 718 3.024
## 719 3.302
## 720 2.108
## 721 3.329
## 722 1.942
## 723 2.719
## 724 3.330
## 725 2.886
## 726 3.413
## 727 2.331
## 728 2.524
## 729 2.164
## 730 2.331
## 731 2.136
## 732 3.080
## 733 1.748
## 734 4.690
## 735 3.912
## 736 1.554
## 737 1.775
## 738 1.970
## 739 4.273
## 740 2.692
## 741 3.468
## 742 4.107
## 743 4.024
## 744 4.690
## 745 3.968
## 746 4.273
## 747 1.942
## 748 7.743
## 749 3.330
## 750 3.302
## 751 3.441
## 752 3.913
## 753 5.023
## 754 5.106
## 755 3.496
## 756 1.942
## 757 5.106
## 758 4.273
## 759 3.383
## 760 3.496
## 761 3.552
## 762 2.941
## 763 1.305
## 764 1.998
## 765 4.079
## 766 2.136
## 767 3.108
## 768 2.498
## 769 3.329
## 770 0.944
## 771 3.912
## 772 4.995
## 773 3.885
## 774 4.273
## 775 0.777
## 776 3.330
## 777 2.136
## 778 1.970
## 779 2.553
## 780 3.108
## 781 3.885
## 782 2.524
## 783 2.441
## 784 2.525
## 785 5.522
## 786 1.776
## 787 3.108
## 788 3.107
## 789 0.971
## 790 4.163
## 791 3.327
## 792 2.331
## 793 4.301
## 794 4.107
## 795 2.524
## 796 4.718
## 797 2.358
## 798 3.664
## 799 1.359
## 800 0.999
## 801 2.830
## 802 5.328
## 803 3.552
## 804 1.554
## 805 2.886
## 806 2.553
## 807 4.107
## 808 5.050
## 809 2.165
## 810 2.386
## 811 1.942
## 812 2.719
## 813 4.495
## 814 3.302
## 815 3.885
## 816 3.108
## 817 3.691
## 818 4.329
## 819 3.107
## 820 3.108
## 821 1.970
## 822 1.915
## 823 1.165
## 824 2.359
## 825 2.691
## 826 3.469
## 827 2.858
## 828 2.692
## 829 4.912
## 830 3.135
## 831 1.776
## 832 1.970
## 833 3.885
## 834 3.940
## 835 3.690
## 836 3.746
## 837 2.331
## 838 4.856
## 839 2.940
## 840 3.302
## 841 3.330
## 842 1.721
## 843 5.383
## 844 3.330
## 845 3.550
## 846 3.330
## 847 2.359
## 848 4.245
## 849 3.330
## 850 4.912
## 851 1.941
## 852 4.356
## 853 1.554
## 854 3.442
## 855 3.968
## 856 3.718
## 857 1.748
## 858 2.359
## 859 3.080
## 860 1.748
## 861 4.162
## 862 1.694
## 863 2.913
## 864 5.300
## 865 4.967
## 866 0.777
## 867 2.331
## 868 3.690
## 869 1.998
## 870 2.137
## 871 3.080
## 872 3.108
## 873 2.525
## 874 2.720
## 875 3.885
## 876 4.801
## 877 2.109
## 878 4.080
## 879 1.665
## 880 3.330
## 881 4.107
## 882 4.689
## 883 2.886
## 884 2.277
## 885 2.914
## 886 2.525
## 887 3.912
## 888 5.522
## 889 3.913
## 890 2.525
## 891 2.192
## 892 1.554
## 893 2.941
## 894 5.883
## 895 3.080
## 896 2.525
## 897 2.330
## 898 0.999
## 899 2.330
## 900 4.495
## 901 2.304
## 902 1.888
## 903 2.358
## 904 1.165
## 905 4.078
## 906 4.052
## 907 0.777
## 908 4.745
## 909 1.776
## 910 3.329
## 911 3.885
## 912 3.691
## 913 1.333
## 914 3.302
## 915 3.690
## 916 4.301
## 917 3.024
## 918 3.857
## 919 4.772
## 920 3.885
## 921 2.525
## 922 3.690
## 923 2.303
## 924 3.885
## 925 4.274
## 926 3.052
## 927 1.915
## 928 3.164
## 929 0.944
## 930 4.690
## 931 2.552
## 932 1.942
## 933 1.720
## 934 3.497
## 935 3.218
## 936 1.472
## 937 4.079
## 938 3.496
## 939 1.748
## 940 5.661
## 941 1.776
## 942 2.524
## 943 5.661
## 944 3.885
## 945 6.105
## 946 2.886
## 947 3.330
## 948 2.553
## 949 1.941
## 950 5.273
## 951 4.107
## 952 4.274
## 953 5.300
## 954 3.080
## 955 3.552
## 956 4.107
## 957 1.554
## 958 4.524
## 959 2.108
## 960 3.746
## 961 4.690
## 962 3.108
## 963 2.746
## 964 2.192
## 965 0.971
## 966 1.748
## 967 3.108
## 968 4.329
## 969 3.330
## 970 4.495
## 971 4.662
## 972 2.663
## 973 3.718
## 974 3.885
## 975 5.106
## 976 1.747
## 977 4.857
## 978 4.579
## 979 5.106
## 980 3.134
## 981 2.525
## 982 2.330
## 983 2.969
## 984 1.554
## 985 2.331
## 986 2.331
## 987 3.108
## 988 2.358
## 989 6.105
## 990 4.301
## 991 5.495
## 992 4.301
## 993 1.554
## 994 0.777
## 995 2.331
## 996 1.747
## 997 3.385
## 998 5.273
## 999 3.746
## 1000 4.301
## 1001 1.693
## 1002 1.748
## 1003 4.302
## 1004 4.662
## 1005 4.052
## 1006 2.525
## 1007 3.496
## 1008 3.330
## 1009 3.108
## 1010 3.302
## 1011 2.524
## 1012 3.135
## 1013 1.748
## 1014 4.356
## 1015 5.467
## 1016 3.108
## 1017 1.332
## 1018 0.971
## 1019 5.661
## 1020 6.105
## 1021 2.524
## 1022 5.134
## 1023 4.107
## 1024 5.495
## 1025 4.217
## 1026 2.552
## 1027 2.719
## 1028 3.524
## 1029 4.134
## 1030 2.498
## 1031 3.302
## 1032 5.245
## 1033 4.079
## 1034 0.971
## 1035 3.912
## 1036 2.108
## 1037 1.554
## 1038 2.331
## 1039 2.331
## 1040 1.776
## 1041 3.302
## 1042 4.273
## 1043 2.553
## 1044 4.495
## 1045 4.301
## 1046 4.275
## 1047 2.470
## 1048 3.552
## 1049 2.137
## 1050 4.495
## 1051 4.662
## 1052 1.554
## 1053 3.302
## 1054 2.913
## 1055 3.884
## 1056 3.746
## 1057 4.079
## 1058 0.777
## 1059 3.968
## 1060 4.912
## 1061 3.108
## 1062 1.554
## 1063 3.108
## 1064 2.524
## 1065 5.744
## 1066 1.860
## 1067 5.079
## 1068 5.661
## 1069 2.553
## 1070 2.330
## 1071 4.107
## 1072 2.331
## 1073 2.969
## 1074 2.719
## 1075 3.524
## 1076 2.720
## 1077 2.831
## 1078 4.079
## 1079 2.331
## 1080 2.303
## 1081 4.329
## 1082 1.779
## 1083 2.886
## 1084 3.524
## 1085 6.549
## 1086 4.273
## 1087 3.912
## 1088 2.663
## 1089 2.498
## 1090 1.942
## 1091 4.107
## 1092 3.275
## 1093 5.300
## 1094 1.554
## 1095 4.329
## 1096 2.275
## 1097 2.580
## 1098 2.164
## 1099 2.940
## 1100 4.662
## 1101 0.777
## 1102 2.914
## 1103 5.273
## 1104 1.915
## 1105 4.107
## 1106 2.331
## 1107 3.496
## 1108 5.050
## 1109 3.552
## 1110 5.245
## 1111 3.552
## 1112 3.108
## 1113 2.719
## 1114 3.690
## 1115 3.302
## 1116 2.747
## 1117 3.107
## 1118 0.777
## 1119 2.747
## 1120 2.552
## 1121 2.692
## 1122 3.108
## 1123 1.554
## 1124 4.856
## 1125 3.108
## 1126 5.661
## 1127 2.136
## 1128 3.330
## 1129 2.941
## 1130 4.107
## 1131 2.719
## 1132 3.302
## 1133 2.525
## 1134 2.720
## 1135 5.550
## 1136 2.858
## 1137 4.052
## 1138 4.884
## 1139 4.107
## 1140 3.663
## 1141 0.999
## 1142 1.915
## 1143 0.971
## 1144 1.554
## 1145 3.996
## 1146 5.328
## 1147 2.110
## 1148 3.885
## 1149 3.108
## 1150 5.717
## 1151 2.525
## 1152 2.746
## 1153 2.775
## 1154 4.107
## 1155 3.552
## 1156 0.999
## 1157 2.747
## 1158 4.079
## 1159 2.525
## 1160 2.553
## 1161 2.719
## 1162 5.300
## 1163 3.717
## 1164 4.772
## 1165 0.777
## 1166 1.915
## 1167 3.080
## 1168 6.105
## 1169 3.885
## 1170 2.331
## 1171 2.109
## 1172 3.107
## 1173 3.330
## 1174 2.055
## 1175 2.553
## 1176 1.554
## 1177 4.080
## 1178 5.523
## 1179 3.329
## 1180 2.302
## 1181 2.442
## 1182 2.525
## 1183 1.360
## 1184 2.525
## 1185 1.941
## 1186 1.138
## 1187 4.578
## 1188 2.109
## 1189 3.524
## 1190 2.525
## 1191 4.107
## 1192 3.940
## 1193 0.777
## 1194 1.915
## 1195 4.135
## 1196 4.717
## 1197 3.025
## 1198 2.914
## 1199 2.831
## 1200 3.746
## 1201 3.885
## 1202 3.968
## 1203 1.748
## 1204 3.108
## 1205 5.661
## 1206 3.329
## 1207 2.302
## 1208 5.106
## 1209 5.300
## 1210 2.359
## 1211 3.857
## 1212 1.748
## 1213 3.524
## 1214 1.942
## 1215 5.661
## 1216 3.136
## 1217 4.440
## 1218 4.301
## 1219 2.553
## 1220 4.578
## 1221 1.554
## 1222 2.940
## 1223 3.497
## 1224 4.329
## 1225 4.079
## 1226 4.107
## 1227 5.522
## 1228 2.747
## 1229 3.718
## 1230 2.719
## 1231 2.719
## 1232 3.108
## 1233 3.108
## 1234 4.135
## 1235 2.859
## 1236 3.330
## 1237 3.913
## 1238 2.331
## 1239 1.748
## 1240 3.691
## 1241 3.746
## 1242 3.774
## 1243 3.885
## 1244 4.913
## 1245 2.747
## 1246 4.080
## 1247 3.690
## 1248 5.939
## 1249 3.719
## 1250 4.107
## 1251 3.885
## 1252 2.719
## 1253 5.133
## 1254 2.330
## 1255 5.883
## 1256 3.524
## 1257 1.915
## 1258 3.552
## 1259 3.829
## 1260 2.942
## 1261 3.330
## 1262 3.885
## 1263 4.523
## 1264 5.078
## 1265 2.717
## 1266 4.329
## 1267 2.330
## 1268 3.357
## 1269 1.888
## 1270 3.191
## 1271 0.777
## 1272 3.302
## 1273 2.136
## 1274 3.078
## 1275 1.776
## 1276 3.885
## 1277 3.690
## 1278 1.776
## 1279 3.802
## 1280 2.940
## 1281 2.913
## 1282 2.969
## 1283 4.551
## 1284 5.717
## 1285 3.496
## 1286 4.884
## 1287 3.302
## 1288 2.553
## 1289 5.467
## 1290 3.718
## 1291 5.439
## 1292 4.939
## 1293 3.718
## 1294 4.107
## 1295 2.719
## 1296 4.301
## 1297 5.661
## 1298 4.800
## 1299 1.942
## 1300 3.690
## 1301 3.302
## 1302 2.552
## 1303 2.331
## 1304 2.774
## 1305 3.913
## 1306 3.885
## 1307 5.382
## 1308 3.717
## 1309 4.689
## 1310 3.719
## 1311 5.549
## 1312 3.108
## 1313 3.330
## 1314 3.191
## 1315 2.331
## 1316 4.690
## 1317 3.746
## 1318 4.716
## 1319 2.137
## 1320 1.748
## 1321 4.329
## 1322 0.777
## 1323 3.885
## 1324 4.549
## 1325 4.718
## 1326 3.274
## 1327 2.942
## 1328 4.495
## 1329 4.079
## 1330 3.302
## 1331 3.690
## 1332 2.553
## 1333 4.550
## 1334 6.105
## 1335 5.938
## 1336 4.080
## 1337 3.053
## 1338 5.217
## 1339 2.329
## 1340 4.663
## 1341 1.970
## 1342 3.690
## 1343 3.524
## 1344 4.495
## 1345 3.691
## 1346 0.777
## 1347 4.107
## 1348 2.137
## 1349 4.634
## 1350 1.554
## 1351 5.495
## 1352 3.468
## 1353 2.691
## 1354 2.913
## 1355 3.107
## 1356 2.331
## 1357 5.661
## 1358 4.856
## 1359 4.189
## 1360 3.552
## 1361 4.995
## 1362 1.831
## 1363 4.690
## 1364 3.108
## 1365 4.328
## 1366 1.554
## 1367 2.330
## 1368 5.078
## 1369 2.524
## 1370 3.607
## 1371 2.330
## 1372 1.915
## 1373 3.358
## 1374 3.719
## 1375 2.832
## 1376 2.331
## 1377 4.302
## 1378 2.358
## 1379 3.912
## 1380 2.330
## 1381 3.524
## 1382 4.301
## 1383 4.717
## 1384 4.717
## 1385 1.554
## 1386 2.997
## 1387 3.912
## 1388 1.748
## 1389 3.496
## 1390 2.304
## 1391 1.915
## 1392 3.330
## 1393 3.108
## 1394 4.885
## 1395 2.747
## 1396 2.525
## 1397 3.912
## 1398 2.471
## 1399 3.885
## 1400 1.942
## 1401 5.328
## 1402 1.554
## 1403 1.332
## 1404 1.554
## 1405 2.525
## 1406 3.108
## 1407 3.135
## 1408 3.524
## 1409 0.777
## 1410 4.051
## 1411 3.108
## 1412 3.108
## 1413 3.745
## 1414 3.690
## 1415 1.942
## 1416 3.275
## 1417 5.661
## 1418 3.690
## 1419 4.439
## 1420 1.332
## 1421 4.273
## 1422 2.416
## 1423 2.331
## 1424 2.524
## 1425 3.247
## 1426 1.941
## 1427 4.107
## 1428 5.883
## 1429 3.494
## 1430 3.912
## 1431 5.273
## 1432 2.331
## 1433 5.883
## 1434 3.108
## 1435 3.329
## 1436 5.661
## 1437 5.328
## 1438 1.941
## 1439 2.721
## 1440 3.080
## 1441 2.886
## 1442 4.328
## 1443 2.581
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans83=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans83)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 22.31 33.46 34.43 45.41 100.00
round(sd(IH_trans83),2)
## [1] 17.35
#hist(IH_trans8,col="azure2",xlab="IPSU",main = "Distribución de IPSU",freq = FALSE,ylim = c(0,0.035))
ecm
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=CaliyPalmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 12:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(12:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:5])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 33.46253 33.44818 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253
## [9] 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [17] 33.44818 33.46253 33.46253 33.83577 33.46253 33.46253 33.46253 33.46253
## [25] 33.43382 33.46253 33.46253 33.07494 33.46253 33.46253 33.46253 33.44818
## [33] 33.46253 33.46253 33.44818 33.44818 33.46253 33.46253 33.46253 33.46253
## [41] 33.46253 33.07494 33.46253 33.46253 33.46253 33.44818 33.44818 33.46253
## [49] 33.06058 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [57] 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253
## [65] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [73] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [81] 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [89] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [97] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253
## [105] 33.46253 33.07494 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [113] 33.46253 33.46253 33.46253 33.83577 33.46253 33.46253 33.46253 33.85013
## [121] 33.46253 33.46253 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253
## [129] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.85013
## [137] 33.46253 33.85013 33.46253 33.46253 33.46253 33.46253 33.46253 33.85013
## [145] 33.46253 33.46253 33.43382 33.86448 33.46253 33.46253 33.46253 33.46253
## [153] 33.46253 33.46253 34.26644 33.46253 33.44818 33.46253 33.46253 33.46253
## [161] 33.46253 33.46253 33.46253 33.06058 33.46253 33.46253 33.44818 33.46253
## [169] 33.46253 33.46253 33.46253 33.06058 33.46253 33.44818 33.06058 33.46253
## [177] 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.06058 33.46253
## [185] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [193] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [201] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [209] 33.46253 33.46253 33.06058 33.07494 33.46253 33.46253 33.46253 33.46253
## [217] 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.44818
## [225] 33.07494 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253
## [233] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [241] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [249] 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [257] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818
## [265] 33.44818 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [273] 33.46253 33.83577 33.46253 33.46253 33.86448 33.06058 33.46253 33.46253
## [281] 33.46253 33.44818 33.46253 33.86448 33.46253 33.46253 33.46253 33.46253
## [289] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [297] 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [305] 33.46253 33.83577 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [313] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [321] 33.46253 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253 33.46253
## [329] 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253 33.46253 33.46253
## [337] 33.06058 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.07494
## [345] 33.86448 33.46253 33.46253 33.44818 33.46253 33.44818 33.46253 33.06058
## [353] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.86448 33.85013
## [361] 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [369] 33.46253 33.44818 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253
## [377] 33.46253 33.07494 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253
## [385] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [393] 33.44818 33.46253 33.46253 33.44818 33.46253 32.27103 33.46253 33.46253
## [401] 33.46253 33.46253 33.44818 33.46253 33.46253 33.44818 33.44818 33.46253
## [409] 33.46253 33.46253 33.85013 33.46253 33.83577 33.46253 33.46253 33.46253
## [417] 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253
## [425] 33.46253 33.06058 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253
## [433] 33.46253 33.86448 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [441] 33.46253 33.44818 33.46253 33.44818 33.46253 33.46253 33.44818 33.46253
## [449] 33.46253 33.46253 33.46253 33.46253 33.83577 33.44818 33.46253 33.46253
## [457] 33.46253 33.46253 33.44818 33.46253 33.46253 33.06058 33.46253 33.46253
## [465] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.07494 33.44818
## [473] 33.46253 33.46253 33.46253 33.06058 33.46253 33.46253 33.46253 33.46253
## [481] 33.85013 33.46253 33.83577 33.46253 33.46253 33.46253 33.46253 33.46253
## [489] 33.85013 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818
## [497] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [505] 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253
## [513] 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [521] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [529] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [537] 33.46253 33.46253 33.46253 33.85013 33.46253 33.46253 33.46253 33.44818
## [545] 33.46253 33.06058 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [553] 33.46253 33.46253 33.46253 33.46253 33.44818 33.44818 33.46253 33.46253
## [561] 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.85013
## [569] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.44818
## [577] 33.46253 33.46253 33.44818 33.46253 33.46253 33.44818 33.46253 33.46253
## [585] 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.44818
## [593] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253
## [601] 33.44818 33.46253 33.06058 33.44818 33.46253 33.46253 33.46253 33.46253
## [609] 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253
## [617] 33.46253 33.46253 33.46253 33.44818 33.44818 33.46253 33.44818 33.46253
## [625] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [633] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [641] 33.46253 33.46253 33.46253 34.26644 33.46253 33.46253 33.46253 33.46253
## [649] 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253
## [657] 33.46253 33.44818 33.44818 33.44818 33.44818 33.46253 33.44818 33.46253
## [665] 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253
## [673] 33.46253 33.46253 33.46253 33.46253 33.83577 33.46253 33.46253 33.06058
## [681] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [689] 33.46253 33.46253 33.46253 33.46253 33.46253 33.85013 33.46253 33.46253
## [697] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [705] 33.86448 33.46253 33.44818 33.06058 33.44818 33.46253 33.43382 33.46253
## [713] 33.46253 33.44818 33.46253 33.07494 33.46253 33.46253 33.46253 33.46253
## [721] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.06058 33.46253
## [729] 33.46253 33.46253 33.46253 33.46253 33.46253 33.06058 33.46253 33.44818
## [737] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253
## [745] 33.44818 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [753] 33.07494 33.83577 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253
## [761] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 36.24749 33.46253
## [769] 33.46253 33.46253 33.46253 33.46253 35.85989 33.46253 33.46253 33.46253
## [777] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [785] 33.46253 33.46253 33.46253 33.86448 33.46253 33.46253 33.46253 33.46253
## [793] 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253 33.46253 31.46713
## [801] 33.46253 33.46253 33.46253 33.46253 33.85013 33.46253 33.46253 33.44818
## [809] 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [817] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [825] 33.46253 33.46253 33.46253 31.86908 33.07494 33.46253 33.46253 33.46253
## [833] 33.44818 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [841] 33.46253 33.46253 33.44818 33.46253 33.44818 33.06058 33.46253 33.46253
## [849] 33.46253 33.46253 33.44818 33.46253 33.06058 33.46253 33.46253 33.46253
## [857] 33.46253 33.44818 33.85013 33.46253 33.44818 33.46253 33.46253 33.46253
## [865] 33.46253 33.46253 33.46253 33.06058 33.44818 33.46253 33.46253 33.46253
## [873] 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253
## [881] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [889] 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [897] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [905] 33.44818 33.46253 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253
## [913] 33.06058 33.46253 33.07494 33.46253 33.46253 33.46253 33.46253 33.46253
## [921] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253
## [929] 33.46253 33.46253 33.46253 33.46253 33.46253 33.46253 33.86448 33.86448
## [937] 33.46253 33.46253 33.44818 33.44818 33.46253 33.46253 33.46253 33.83577
## [945] 33.44818 33.46253 33.43382 33.46253 33.46253 33.46253 33.46253 33.46253
## [953] 33.46253 33.46253 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253
## [961] 33.07494 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818 33.46253
## [969] 33.46253 33.46253 33.46253 33.44818 33.46253 33.46253 33.44818 33.85013
## [977] 33.46253 32.27103 33.46253 33.46253 33.46253 33.46253 33.46253 33.44818
## [985] 33.46253 33.07494 33.44818 33.46253 33.46253 33.46253 33.46253 33.46253
## [993] 33.46253 33.46253 33.46253 33.07494 33.46253 33.46253 33.46253 33.46253
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
#I_ref=33.44
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans83))^2+(median(NfinalMedia)-median(IH_trans83))^2,2);EE
## [1] 0.02
CALI
CaliyPalmira$Ciudad<-as.factor(CaliyPalmira$Ciudad)
Cali<-filter(CaliyPalmira, CaliyPalmira$Ciudad=="Cali")
IPRG
# INDICE DE PERCEPCIÓN DE RIESGO GLOBAL
Datos=Cali[,c(19:34)]
pesos=c(
#probabilidad de contagio
0.061,0.055,0.061,0.048,0.041,0.055,0.055,
#severidad
0.080,0.092,0.092,0.069,
#susceptibilidad
0.065,0.065,0.057,0.049,0.057
)
temp_K<-c()
lista_vacia <- vector("list", length = 797)
celsius_to_kelvin <- function(temp_C) {
for (i in 1:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(IHPRG1[ ,1:16]);IH
## [1] 2.989 2.811 3.660 3.388 3.935 4.516 3.120 4.300 4.037 2.458 4.252 3.276
## [13] 3.867 4.218 4.008 3.363 2.897 3.650 4.681 3.647 4.657 2.602 3.219 3.121
## [25] 4.016 3.400 2.790 3.570 3.052 3.474 4.376 4.193 2.956 4.904 4.195 2.481
## [37] 3.439 5.158 4.389 3.782 5.093 2.690 3.661 3.864 3.252 1.962 2.883 3.365
## [49] 2.829 3.639 3.223 3.086 3.196 4.886 3.901 3.744 2.954 3.481 2.824 2.953
## [61] 5.384 3.204 2.119 2.686 3.815 3.376 4.443 3.350 5.557 5.340 3.774 2.824
## [73] 3.642 1.592 2.803 4.274 3.172 4.119 5.707 3.602 4.580 3.842 4.519 3.568
## [85] 2.928 4.831 2.803 3.471 4.745 3.421 3.000 3.589 3.471 4.108 3.211 4.774
## [97] 3.618 2.388 2.965 3.845 5.105 2.532 3.171 3.461 6.322 5.003 4.523 5.142
## [109] 4.027 4.097 4.838 4.785 4.427 4.973 3.260 3.296 3.128 4.467 3.173 4.531
## [121] 4.556 5.259 4.398 4.402 1.786 3.806 4.855 4.283 5.114 2.444 4.702 4.462
## [133] 4.632 2.256 4.072 2.644 3.106 5.422 3.929 2.621 5.467 3.615 4.198 3.896
## [145] 3.319 3.432 3.750 2.373 4.009 3.600 2.587 3.196 5.801 3.305 5.029 3.330
## [157] 4.304 3.421 3.574 5.658 3.699 5.760 3.637 3.524 4.352 5.805 3.986 3.089
## [169] 4.879 3.156 6.101 5.042 3.493 2.617 4.076 4.035 3.014 4.002 3.708 4.011
## [181] 4.466 3.386 6.158 3.176 4.845 3.954 3.324 3.516 4.219 3.537 4.142 4.246
## [193] 2.908 3.440 6.093 3.340 3.823 3.742 2.405 3.855 3.517 3.768 3.611 5.125
## [205] 3.917 4.673 3.700 4.304 3.401 4.731 5.757 3.029 4.503 3.975 3.926 4.132
## [217] 4.073 4.365 3.392 4.904 3.749 3.774 3.781 4.389 4.335 3.238 3.721 3.072
## [229] 3.063 3.627 4.688 4.117 3.917 3.987 3.846 1.982 1.550 3.572 2.935 2.254
## [241] 3.949 3.648 4.144 3.091 3.029 2.253 3.623 4.963 3.365 4.756 3.141 2.878
## [253] 4.212 3.849 4.125 3.077 3.897 2.392 4.861 4.012 4.756 3.626 3.718 2.563
## [265] 3.444 3.863 2.997 3.808 4.379 2.913 4.532 3.199 2.547 2.998 2.949 3.699
## [277] 4.150 4.662 4.910 4.190 3.667 4.468 4.722 3.541 2.992 3.670 4.858 3.112
## [289] 4.407 4.599 4.301 4.361 3.108 3.802 2.843 2.100 3.102 4.057 4.277 5.751
## [301] 3.052 3.987 2.395 3.500 4.879 4.004 3.231 3.669 4.405 4.862 3.937 5.265
## [313] 2.823 3.199 4.283 3.860 3.618 1.733 4.598 2.980 4.554 3.826 2.908 2.425
## [325] 3.625 4.819 4.640 3.403 3.880 2.992 4.254 3.793 4.893 5.360 4.119 3.159
## [337] 3.650 4.950 3.219 1.335 2.978 3.609 3.706 3.226 3.754 3.373 2.564 4.023
## [349] 4.304 4.929 4.834 3.513 3.294 4.259 4.089 2.910 5.610 3.373 3.192 4.884
## [361] 4.223 4.822 3.086 2.663 3.879 3.412 5.009 2.671 5.474 3.205 3.836 3.556
## [373] 5.153 3.787 4.960 3.948 5.019 2.284 3.103 4.226 3.519 5.340 3.219 4.535
## [385] 4.714 3.526 5.090 2.649 3.278 3.753 3.279 2.857 4.161 2.072 3.557 3.659
## [397] 3.016 3.965 3.188 3.244 3.911 3.330 2.261 3.417 3.435 2.083 2.730 3.207
## [409] 4.534 3.597 5.791 4.532 3.433 3.395 4.431 5.152 3.784 4.173 2.607 3.943
## [421] 3.772 2.469 4.771 4.880 5.227 4.528 5.376 4.223 3.648 4.041 4.408 5.633
## [433] 3.169 3.266 6.048 5.844 4.053 3.158 3.717 3.034 3.392 2.614 4.119 5.495
## [445] 3.105 3.438 4.755 4.443 4.652 4.772 3.557 5.621 5.645 4.379 3.609 4.275
## [457] 4.555 5.533 3.798 5.262 2.584 3.734 4.005 2.962 3.708 3.919 3.520 4.090
## [469] 6.064 4.379 6.322 4.041 3.320 5.495 3.635 3.942 5.632 4.391 3.547 3.796
## [481] 3.492 5.184 3.820 3.812 3.708 2.913 4.781 4.891 5.156 3.301 4.254 4.441
## [493] 2.982 3.576 4.891 4.173 4.203 4.391 3.619 4.718 2.201 5.572 4.171 2.906
## [505] 3.419 3.595 3.908 2.814 2.650 3.066 2.653 4.552 3.932 3.668 2.645 2.650
## [517] 5.032 3.764 3.376 3.335 3.149 4.833 3.059 3.085 4.446 4.501 4.831 2.072
## [529] 3.373 3.834 3.916 3.165 3.656 3.543 3.616 2.864 2.738 2.486 4.462 3.459
## [541] 3.032 3.648 5.207 4.011 5.342 4.585 4.045 4.341 4.325 3.323 3.973 4.810
## [553] 3.970 2.762 3.129 4.697 3.456 3.125 4.417 1.248 3.252 3.225 4.109 3.063
## [565] 4.245 2.772 4.308 2.858 3.558 3.284 3.778 5.214 3.969 4.110 2.211 4.696
## [577] 3.276 3.817 4.644 4.229 4.352 4.682 4.314 3.218 3.566 3.049 3.291 3.842
## [589] 2.060 3.759 3.741 3.510 3.741 4.218 3.666 4.360 3.764 2.765 4.290 4.220
## [601] 4.278 3.867 3.793 3.224 1.854 2.245 3.973 2.660 3.740 4.879 2.145 3.774
## [613] 4.127 4.894 4.250 4.577 2.591 5.688 4.566 2.844 5.299 4.771 1.902 4.246
## [625] 3.933 3.562 4.676 4.889 2.683 3.406 5.008 4.091 2.925 5.495 4.069 3.596
## [637] 3.265 5.501 2.621 2.352 0.937 3.308 4.089 3.880 2.623 3.363 3.750 4.091
## [649] 3.140 6.387 4.847 4.607 4.239 3.719 4.389 5.975 3.858 5.151 4.594 4.347
## [661] 4.955 2.804 5.796 3.907 5.353 4.526 3.017 4.727 2.742 4.108 6.202 4.491
## [673] 4.651 4.135 5.720 4.301 3.953 1.932 5.517 4.098 4.099 4.052 3.657 4.156
## [685] 4.511 2.597 2.604 4.414 2.555 4.245 3.363 4.388 3.530 3.866 4.783 4.064
## [697] 5.162 4.389 4.627 3.359 3.365 4.225 4.266 4.006 5.576 4.856 4.111 3.910
## [709] 2.456 3.805 3.993 5.275 2.828 2.864 3.812 3.557 2.616 4.532 3.696 4.168
## [721] 3.811 2.768 3.836 4.285 3.944 4.823 3.501 3.149 3.711 3.328 2.823 3.444
## [733] 2.771 4.395 3.920 2.945 2.835 3.698 4.249 3.414 4.395 4.626 4.810 4.914
## [745] 4.278 5.038 3.825 5.594 3.749 4.169 4.803 4.146 6.135 5.131 4.215 3.660
## [757] 5.149 4.481 3.802 4.068 3.648 3.831 2.911 3.542 3.793 3.169 3.436 3.181
## [769] 3.522 1.521 3.577 4.863 4.813 5.375 1.481 3.865 3.383 3.746 4.172 5.135
## [781] 5.378 4.520 3.831 3.880 5.728 3.293 4.442 4.502 2.431 5.079 3.761 4.163
## [793] 4.127 4.586 3.231 4.940 3.212
data.frame(IH)
## IH
## 1 2.989
## 2 2.811
## 3 3.660
## 4 3.388
## 5 3.935
## 6 4.516
## 7 3.120
## 8 4.300
## 9 4.037
## 10 2.458
## 11 4.252
## 12 3.276
## 13 3.867
## 14 4.218
## 15 4.008
## 16 3.363
## 17 2.897
## 18 3.650
## 19 4.681
## 20 3.647
## 21 4.657
## 22 2.602
## 23 3.219
## 24 3.121
## 25 4.016
## 26 3.400
## 27 2.790
## 28 3.570
## 29 3.052
## 30 3.474
## 31 4.376
## 32 4.193
## 33 2.956
## 34 4.904
## 35 4.195
## 36 2.481
## 37 3.439
## 38 5.158
## 39 4.389
## 40 3.782
## 41 5.093
## 42 2.690
## 43 3.661
## 44 3.864
## 45 3.252
## 46 1.962
## 47 2.883
## 48 3.365
## 49 2.829
## 50 3.639
## 51 3.223
## 52 3.086
## 53 3.196
## 54 4.886
## 55 3.901
## 56 3.744
## 57 2.954
## 58 3.481
## 59 2.824
## 60 2.953
## 61 5.384
## 62 3.204
## 63 2.119
## 64 2.686
## 65 3.815
## 66 3.376
## 67 4.443
## 68 3.350
## 69 5.557
## 70 5.340
## 71 3.774
## 72 2.824
## 73 3.642
## 74 1.592
## 75 2.803
## 76 4.274
## 77 3.172
## 78 4.119
## 79 5.707
## 80 3.602
## 81 4.580
## 82 3.842
## 83 4.519
## 84 3.568
## 85 2.928
## 86 4.831
## 87 2.803
## 88 3.471
## 89 4.745
## 90 3.421
## 91 3.000
## 92 3.589
## 93 3.471
## 94 4.108
## 95 3.211
## 96 4.774
## 97 3.618
## 98 2.388
## 99 2.965
## 100 3.845
## 101 5.105
## 102 2.532
## 103 3.171
## 104 3.461
## 105 6.322
## 106 5.003
## 107 4.523
## 108 5.142
## 109 4.027
## 110 4.097
## 111 4.838
## 112 4.785
## 113 4.427
## 114 4.973
## 115 3.260
## 116 3.296
## 117 3.128
## 118 4.467
## 119 3.173
## 120 4.531
## 121 4.556
## 122 5.259
## 123 4.398
## 124 4.402
## 125 1.786
## 126 3.806
## 127 4.855
## 128 4.283
## 129 5.114
## 130 2.444
## 131 4.702
## 132 4.462
## 133 4.632
## 134 2.256
## 135 4.072
## 136 2.644
## 137 3.106
## 138 5.422
## 139 3.929
## 140 2.621
## 141 5.467
## 142 3.615
## 143 4.198
## 144 3.896
## 145 3.319
## 146 3.432
## 147 3.750
## 148 2.373
## 149 4.009
## 150 3.600
## 151 2.587
## 152 3.196
## 153 5.801
## 154 3.305
## 155 5.029
## 156 3.330
## 157 4.304
## 158 3.421
## 159 3.574
## 160 5.658
## 161 3.699
## 162 5.760
## 163 3.637
## 164 3.524
## 165 4.352
## 166 5.805
## 167 3.986
## 168 3.089
## 169 4.879
## 170 3.156
## 171 6.101
## 172 5.042
## 173 3.493
## 174 2.617
## 175 4.076
## 176 4.035
## 177 3.014
## 178 4.002
## 179 3.708
## 180 4.011
## 181 4.466
## 182 3.386
## 183 6.158
## 184 3.176
## 185 4.845
## 186 3.954
## 187 3.324
## 188 3.516
## 189 4.219
## 190 3.537
## 191 4.142
## 192 4.246
## 193 2.908
## 194 3.440
## 195 6.093
## 196 3.340
## 197 3.823
## 198 3.742
## 199 2.405
## 200 3.855
## 201 3.517
## 202 3.768
## 203 3.611
## 204 5.125
## 205 3.917
## 206 4.673
## 207 3.700
## 208 4.304
## 209 3.401
## 210 4.731
## 211 5.757
## 212 3.029
## 213 4.503
## 214 3.975
## 215 3.926
## 216 4.132
## 217 4.073
## 218 4.365
## 219 3.392
## 220 4.904
## 221 3.749
## 222 3.774
## 223 3.781
## 224 4.389
## 225 4.335
## 226 3.238
## 227 3.721
## 228 3.072
## 229 3.063
## 230 3.627
## 231 4.688
## 232 4.117
## 233 3.917
## 234 3.987
## 235 3.846
## 236 1.982
## 237 1.550
## 238 3.572
## 239 2.935
## 240 2.254
## 241 3.949
## 242 3.648
## 243 4.144
## 244 3.091
## 245 3.029
## 246 2.253
## 247 3.623
## 248 4.963
## 249 3.365
## 250 4.756
## 251 3.141
## 252 2.878
## 253 4.212
## 254 3.849
## 255 4.125
## 256 3.077
## 257 3.897
## 258 2.392
## 259 4.861
## 260 4.012
## 261 4.756
## 262 3.626
## 263 3.718
## 264 2.563
## 265 3.444
## 266 3.863
## 267 2.997
## 268 3.808
## 269 4.379
## 270 2.913
## 271 4.532
## 272 3.199
## 273 2.547
## 274 2.998
## 275 2.949
## 276 3.699
## 277 4.150
## 278 4.662
## 279 4.910
## 280 4.190
## 281 3.667
## 282 4.468
## 283 4.722
## 284 3.541
## 285 2.992
## 286 3.670
## 287 4.858
## 288 3.112
## 289 4.407
## 290 4.599
## 291 4.301
## 292 4.361
## 293 3.108
## 294 3.802
## 295 2.843
## 296 2.100
## 297 3.102
## 298 4.057
## 299 4.277
## 300 5.751
## 301 3.052
## 302 3.987
## 303 2.395
## 304 3.500
## 305 4.879
## 306 4.004
## 307 3.231
## 308 3.669
## 309 4.405
## 310 4.862
## 311 3.937
## 312 5.265
## 313 2.823
## 314 3.199
## 315 4.283
## 316 3.860
## 317 3.618
## 318 1.733
## 319 4.598
## 320 2.980
## 321 4.554
## 322 3.826
## 323 2.908
## 324 2.425
## 325 3.625
## 326 4.819
## 327 4.640
## 328 3.403
## 329 3.880
## 330 2.992
## 331 4.254
## 332 3.793
## 333 4.893
## 334 5.360
## 335 4.119
## 336 3.159
## 337 3.650
## 338 4.950
## 339 3.219
## 340 1.335
## 341 2.978
## 342 3.609
## 343 3.706
## 344 3.226
## 345 3.754
## 346 3.373
## 347 2.564
## 348 4.023
## 349 4.304
## 350 4.929
## 351 4.834
## 352 3.513
## 353 3.294
## 354 4.259
## 355 4.089
## 356 2.910
## 357 5.610
## 358 3.373
## 359 3.192
## 360 4.884
## 361 4.223
## 362 4.822
## 363 3.086
## 364 2.663
## 365 3.879
## 366 3.412
## 367 5.009
## 368 2.671
## 369 5.474
## 370 3.205
## 371 3.836
## 372 3.556
## 373 5.153
## 374 3.787
## 375 4.960
## 376 3.948
## 377 5.019
## 378 2.284
## 379 3.103
## 380 4.226
## 381 3.519
## 382 5.340
## 383 3.219
## 384 4.535
## 385 4.714
## 386 3.526
## 387 5.090
## 388 2.649
## 389 3.278
## 390 3.753
## 391 3.279
## 392 2.857
## 393 4.161
## 394 2.072
## 395 3.557
## 396 3.659
## 397 3.016
## 398 3.965
## 399 3.188
## 400 3.244
## 401 3.911
## 402 3.330
## 403 2.261
## 404 3.417
## 405 3.435
## 406 2.083
## 407 2.730
## 408 3.207
## 409 4.534
## 410 3.597
## 411 5.791
## 412 4.532
## 413 3.433
## 414 3.395
## 415 4.431
## 416 5.152
## 417 3.784
## 418 4.173
## 419 2.607
## 420 3.943
## 421 3.772
## 422 2.469
## 423 4.771
## 424 4.880
## 425 5.227
## 426 4.528
## 427 5.376
## 428 4.223
## 429 3.648
## 430 4.041
## 431 4.408
## 432 5.633
## 433 3.169
## 434 3.266
## 435 6.048
## 436 5.844
## 437 4.053
## 438 3.158
## 439 3.717
## 440 3.034
## 441 3.392
## 442 2.614
## 443 4.119
## 444 5.495
## 445 3.105
## 446 3.438
## 447 4.755
## 448 4.443
## 449 4.652
## 450 4.772
## 451 3.557
## 452 5.621
## 453 5.645
## 454 4.379
## 455 3.609
## 456 4.275
## 457 4.555
## 458 5.533
## 459 3.798
## 460 5.262
## 461 2.584
## 462 3.734
## 463 4.005
## 464 2.962
## 465 3.708
## 466 3.919
## 467 3.520
## 468 4.090
## 469 6.064
## 470 4.379
## 471 6.322
## 472 4.041
## 473 3.320
## 474 5.495
## 475 3.635
## 476 3.942
## 477 5.632
## 478 4.391
## 479 3.547
## 480 3.796
## 481 3.492
## 482 5.184
## 483 3.820
## 484 3.812
## 485 3.708
## 486 2.913
## 487 4.781
## 488 4.891
## 489 5.156
## 490 3.301
## 491 4.254
## 492 4.441
## 493 2.982
## 494 3.576
## 495 4.891
## 496 4.173
## 497 4.203
## 498 4.391
## 499 3.619
## 500 4.718
## 501 2.201
## 502 5.572
## 503 4.171
## 504 2.906
## 505 3.419
## 506 3.595
## 507 3.908
## 508 2.814
## 509 2.650
## 510 3.066
## 511 2.653
## 512 4.552
## 513 3.932
## 514 3.668
## 515 2.645
## 516 2.650
## 517 5.032
## 518 3.764
## 519 3.376
## 520 3.335
## 521 3.149
## 522 4.833
## 523 3.059
## 524 3.085
## 525 4.446
## 526 4.501
## 527 4.831
## 528 2.072
## 529 3.373
## 530 3.834
## 531 3.916
## 532 3.165
## 533 3.656
## 534 3.543
## 535 3.616
## 536 2.864
## 537 2.738
## 538 2.486
## 539 4.462
## 540 3.459
## 541 3.032
## 542 3.648
## 543 5.207
## 544 4.011
## 545 5.342
## 546 4.585
## 547 4.045
## 548 4.341
## 549 4.325
## 550 3.323
## 551 3.973
## 552 4.810
## 553 3.970
## 554 2.762
## 555 3.129
## 556 4.697
## 557 3.456
## 558 3.125
## 559 4.417
## 560 1.248
## 561 3.252
## 562 3.225
## 563 4.109
## 564 3.063
## 565 4.245
## 566 2.772
## 567 4.308
## 568 2.858
## 569 3.558
## 570 3.284
## 571 3.778
## 572 5.214
## 573 3.969
## 574 4.110
## 575 2.211
## 576 4.696
## 577 3.276
## 578 3.817
## 579 4.644
## 580 4.229
## 581 4.352
## 582 4.682
## 583 4.314
## 584 3.218
## 585 3.566
## 586 3.049
## 587 3.291
## 588 3.842
## 589 2.060
## 590 3.759
## 591 3.741
## 592 3.510
## 593 3.741
## 594 4.218
## 595 3.666
## 596 4.360
## 597 3.764
## 598 2.765
## 599 4.290
## 600 4.220
## 601 4.278
## 602 3.867
## 603 3.793
## 604 3.224
## 605 1.854
## 606 2.245
## 607 3.973
## 608 2.660
## 609 3.740
## 610 4.879
## 611 2.145
## 612 3.774
## 613 4.127
## 614 4.894
## 615 4.250
## 616 4.577
## 617 2.591
## 618 5.688
## 619 4.566
## 620 2.844
## 621 5.299
## 622 4.771
## 623 1.902
## 624 4.246
## 625 3.933
## 626 3.562
## 627 4.676
## 628 4.889
## 629 2.683
## 630 3.406
## 631 5.008
## 632 4.091
## 633 2.925
## 634 5.495
## 635 4.069
## 636 3.596
## 637 3.265
## 638 5.501
## 639 2.621
## 640 2.352
## 641 0.937
## 642 3.308
## 643 4.089
## 644 3.880
## 645 2.623
## 646 3.363
## 647 3.750
## 648 4.091
## 649 3.140
## 650 6.387
## 651 4.847
## 652 4.607
## 653 4.239
## 654 3.719
## 655 4.389
## 656 5.975
## 657 3.858
## 658 5.151
## 659 4.594
## 660 4.347
## 661 4.955
## 662 2.804
## 663 5.796
## 664 3.907
## 665 5.353
## 666 4.526
## 667 3.017
## 668 4.727
## 669 2.742
## 670 4.108
## 671 6.202
## 672 4.491
## 673 4.651
## 674 4.135
## 675 5.720
## 676 4.301
## 677 3.953
## 678 1.932
## 679 5.517
## 680 4.098
## 681 4.099
## 682 4.052
## 683 3.657
## 684 4.156
## 685 4.511
## 686 2.597
## 687 2.604
## 688 4.414
## 689 2.555
## 690 4.245
## 691 3.363
## 692 4.388
## 693 3.530
## 694 3.866
## 695 4.783
## 696 4.064
## 697 5.162
## 698 4.389
## 699 4.627
## 700 3.359
## 701 3.365
## 702 4.225
## 703 4.266
## 704 4.006
## 705 5.576
## 706 4.856
## 707 4.111
## 708 3.910
## 709 2.456
## 710 3.805
## 711 3.993
## 712 5.275
## 713 2.828
## 714 2.864
## 715 3.812
## 716 3.557
## 717 2.616
## 718 4.532
## 719 3.696
## 720 4.168
## 721 3.811
## 722 2.768
## 723 3.836
## 724 4.285
## 725 3.944
## 726 4.823
## 727 3.501
## 728 3.149
## 729 3.711
## 730 3.328
## 731 2.823
## 732 3.444
## 733 2.771
## 734 4.395
## 735 3.920
## 736 2.945
## 737 2.835
## 738 3.698
## 739 4.249
## 740 3.414
## 741 4.395
## 742 4.626
## 743 4.810
## 744 4.914
## 745 4.278
## 746 5.038
## 747 3.825
## 748 5.594
## 749 3.749
## 750 4.169
## 751 4.803
## 752 4.146
## 753 6.135
## 754 5.131
## 755 4.215
## 756 3.660
## 757 5.149
## 758 4.481
## 759 3.802
## 760 4.068
## 761 3.648
## 762 3.831
## 763 2.911
## 764 3.542
## 765 3.793
## 766 3.169
## 767 3.436
## 768 3.181
## 769 3.522
## 770 1.521
## 771 3.577
## 772 4.863
## 773 4.813
## 774 5.375
## 775 1.481
## 776 3.865
## 777 3.383
## 778 3.746
## 779 4.172
## 780 5.135
## 781 5.378
## 782 4.520
## 783 3.831
## 784 3.880
## 785 5.728
## 786 3.293
## 787 4.442
## 788 4.502
## 789 2.431
## 790 5.079
## 791 3.761
## 792 4.163
## 793 4.127
## 794 4.586
## 795 3.231
## 796 4.940
## 797 3.212
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans1=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans1)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 42.48 52.90 53.75 64.29 100.00
round(sd(IH_trans1),2)
## [1] 16.43
#hist(IH_trans,col="azure2",xlab="IPRG",main = "Distribución de IPRG",freq = FALSE,ylim = c(0,0.035))
ECM
#ERROR DE ESTIMACIÓN (EE)
n=round(797*0.80,0);n
## [1] 638
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=Cali[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 1:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:16])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 52.62385 51.68807 52.84404 52.62385 52.45872 52.40367 52.89908 52.95413
## [9] 52.40367 52.95413 52.84404 52.64220 52.40367 52.67890 52.40367 53.68807
## [17] 52.89908 52.56881 53.76147 53.10092 52.49541 52.62385 52.62385 52.05505
## [25] 53.15596 53.35780 52.56881 52.67890 53.30275 52.45872 52.75229 52.45872
## [33] 52.89908 53.10092 53.30275 52.45872 53.19266 53.10092 53.37615 53.30275
## [41] 53.54128 52.20183 52.95413 52.40367 53.19266 52.75229 52.99083 52.56881
## [49] 52.49541 52.40367 53.63303 53.19266 52.84404 52.67890 52.40367 52.45872
## [57] 52.64220 53.63303 52.29358 52.23853 52.75229 52.20183 52.75229 52.75229
## [65] 52.05505 53.76147 52.05505 52.73394 52.05505 52.84404 53.54128 52.95413
## [73] 52.49541 53.19266 52.45872 52.12844 53.10092 52.75229 52.80734 52.99083
## [81] 53.30275 54.66055 52.29358 53.15596 52.12844 53.70642 53.43119 52.56881
## [89] 53.68807 54.51376 52.62385 52.23853 52.99083 52.75229 55.35780 52.67890
## [97] 52.95413 55.00917 52.95413 53.10092 52.73394 53.72477 51.94495 54.66055
## [105] 52.89908 52.45872 53.30275 52.40367 52.05505 52.40367 52.29358 54.55046
## [113] 53.37615 52.62385 51.77982 53.19266 52.95413 53.74312 51.68807 52.67890
## [121] 52.62385 53.15596 51.94495 52.84404 53.15596 52.73394 53.54128 52.40367
## [129] 52.56881 52.23853 52.29358 52.40367 54.55046 53.15596 53.59633 54.49541
## [137] 52.75229 52.05505 51.81651 52.64220 54.00000 52.40367 53.00917 52.95413
## [145] 53.63303 52.40367 54.00000 53.68807 52.05505 54.67890 52.89908 54.00000
## [153] 53.54128 52.40367 53.19266 54.67890 53.74312 52.49541 52.40367 54.29358
## [161] 52.45872 52.12844 52.64220 53.30275 53.72477 52.99083 52.56881 53.59633
## [169] 53.19266 53.19266 53.10092 52.99083 52.73394 53.10092 51.87156 52.40367
## [177] 51.77982 54.51376 52.40367 52.49541 52.64220 53.54128 53.19266 52.56881
## [185] 53.35780 52.40367 53.98165 53.63303 52.73394 51.87156 52.95413 52.40367
## [193] 53.19266 51.81651 52.45872 53.30275 53.72477 53.35780 53.54128 52.75229
## [201] 53.10092 53.35780 51.87156 53.15596 53.35780 54.31193 52.64220 52.99083
## [209] 52.89908 52.56881 53.10092 53.15596 52.45872 52.45872 53.98165 53.15596
## [217] 52.05505 52.95413 52.67890 52.73394 52.56881 52.80734 52.12844 53.37615
## [225] 53.43119 52.01835 52.23853 52.99083 53.68807 53.35780 52.40367 53.15596
## [233] 53.63303 53.37615 52.75229 53.43119 52.99083 52.20183 53.35780 52.99083
## [241] 51.50459 53.00917 53.76147 53.43119 53.76147 54.00000 53.15596 52.64220
## [249] 52.56881 53.37615 53.30275 53.37615 53.59633 52.40367 52.56881 52.75229
## [257] 52.67890 52.75229 53.15596 52.75229 52.84404 52.99083 52.40367 52.89908
## [265] 52.75229 53.30275 52.05505 53.30275 52.67890 51.87156 51.81651 53.35780
## [273] 53.19266 51.81651 52.89908 52.89908 53.30275 52.56881 53.59633 52.05505
## [281] 52.56881 53.68807 52.89908 53.00917 53.10092 52.80734 53.70642 52.40367
## [289] 52.49541 53.15596 53.15596 52.75229 52.84404 53.10092 53.76147 52.99083
## [297] 52.05505 52.89908 52.84404 52.23853 52.75229 52.99083 52.18349 52.80734
## [305] 53.68807 52.99083 53.00917 51.87156 52.67890 52.64220 52.99083 52.67890
## [313] 52.80734 53.72477 52.01835 53.00917 53.59633 52.20183 52.62385 52.40367
## [321] 52.89908 52.75229 52.62385 53.43119 54.00000 52.62385 52.75229 52.45872
## [329] 53.00917 52.99083 53.63303 52.73394 53.30275 53.35780 51.87156 52.73394
## [337] 53.59633 53.00917 53.70642 52.20183 52.56881 52.73394 53.15596 52.75229
## [345] 52.40367 52.99083 52.45872 53.43119 52.95413 54.49541 52.56881 52.20183
## [353] 53.37615 53.63303 52.40367 52.45872 53.15596 52.64220 52.75229 52.75229
## [361] 53.19266 52.84404 52.56881 53.70642 53.00917 54.38532 52.95413 53.35780
## [369] 53.59633 52.49541 51.68807 52.99083 51.66972 52.45872 52.18349 53.74312
## [377] 52.29358 52.12844 52.99083 52.56881 52.56881 52.75229 53.68807 52.89908
## [385] 52.29358 53.10092 52.18349 52.80734 52.56881 53.30275 52.99083 52.62385
## [393] 53.30275 53.30275 53.19266 53.37615 51.59633 53.00917 52.56881 53.35780
## [401] 52.89908 53.59633 52.73394 52.95413 54.31193 53.00917 54.29358 53.54128
## [409] 53.19266 53.19266 53.37615 52.40367 52.75229 52.75229 52.45872 52.75229
## [417] 52.40367 52.56881 52.75229 52.45872 52.64220 52.56881 53.10092 52.80734
## [425] 52.56881 52.01835 53.43119 52.75229 52.67890 52.18349 53.68807 53.15596
## [433] 53.15596 53.15596 53.98165 53.19266 52.40367 53.10092 53.19266 53.19266
## [441] 53.76147 53.43119 52.95413 53.10092 53.19266 52.64220 53.10092 52.40367
## [449] 54.31193 52.56881 53.00917 52.40367 52.67890 52.40367 52.75229 52.56881
## [457] 52.56881 53.43119 51.61468 52.84404 52.62385 53.10092 52.45872 52.95413
## [465] 52.64220 51.87156 53.10092 52.75229 53.76147 52.75229 53.10092 53.15596
## [473] 53.59633 53.54128 53.19266 52.75229 52.40367 53.19266 53.70642 53.19266
## [481] 52.40367 52.95413 52.49541 52.67890 52.67890 52.80734 53.59633 52.95413
## [489] 53.76147 52.40367 53.10092 53.59633 52.49541 53.30275 53.37615 52.84404
## [497] 52.64220 53.63303 52.56881 53.15596 52.40367 53.10092 52.67890 52.62385
## [505] 52.75229 53.43119 52.40367 53.10092 54.31193 52.75229 51.81651 54.00000
## [513] 53.35780 52.56881 52.23853 54.29358 52.80734 52.40367 53.10092 53.59633
## [521] 53.70642 53.72477 52.56881 52.99083 52.95413 52.05505 52.95413 51.50459
## [529] 53.35780 52.80734 52.20183 53.30275 53.59633 54.00000 52.23853 52.89908
## [537] 52.23853 52.40367 52.84404 52.67890 52.62385 53.10092 52.49541 52.99083
## [545] 52.75229 52.62385 52.75229 53.68807 52.73394 52.99083 52.67890 52.64220
## [553] 53.43119 52.40367 52.62385 53.76147 53.30275 52.40367 54.00000 52.75229
## [561] 52.29358 54.51376 53.37615 52.84404 52.56881 53.63303 52.84404 52.56881
## [569] 52.89908 52.95413 52.56881 52.75229 53.72477 52.49541 52.64220 53.15596
## [577] 52.67890 53.10092 52.40367 52.20183 54.00000 53.15596 52.67890 51.87156
## [585] 53.30275 53.68807 53.10092 52.64220 52.45872 53.54128 53.10092 52.89908
## [593] 52.05505 53.30275 53.43119 52.23853 53.70642 52.01835 53.35780 54.51376
## [601] 52.67890 53.10092 52.89908 53.59633 53.19266 52.40367 52.75229 53.19266
## [609] 53.30275 52.18349 53.72477 52.40367 53.76147 52.89908 51.44954 52.49541
## [617] 54.00000 52.95413 53.10092 53.00917 53.19266 52.75229 53.10092 53.00917
## [625] 53.10092 52.40367 52.12844 52.40367 54.00000 53.10092 51.87156 52.80734
## [633] 53.72477 52.49541 53.00917 52.62385 53.30275 52.64220 53.54128 53.74312
## [641] 52.75229 51.87156 53.59633 52.49541 53.37615 53.59633 53.15596 52.75229
## [649] 53.54128 52.62385 54.00000 53.10092 52.40367 53.43119 52.89908 52.40367
## [657] 53.00917 52.23853 52.73394 53.00917 52.23853 52.05505 53.59633 53.76147
## [665] 53.35780 51.87156 53.19266 52.45872 53.43119 53.19266 53.19266 52.62385
## [673] 53.35780 53.30275 52.67890 52.73394 53.63303 52.67890 52.67890 53.70642
## [681] 52.80734 52.89908 52.40367 52.67890 52.29358 53.68807 53.70642 53.43119
## [689] 52.40367 53.10092 53.70642 52.80734 53.30275 53.10092 52.23853 53.43119
## [697] 53.19266 53.30275 53.35780 52.80734 53.15596 52.84404 52.23853 53.98165
## [705] 53.54128 52.12844 52.40367 52.12844 53.43119 53.74312 52.29358 53.43119
## [713] 52.40367 52.12844 53.10092 53.54128 53.68807 52.40367 53.54128 53.10092
## [721] 53.30275 52.05505 52.95413 52.40367 52.23853 52.62385 52.67890 52.45872
## [729] 53.30275 52.73394 52.80734 53.63303 52.80734 52.67890 52.40367 52.64220
## [737] 52.75229 52.23853 52.23853 52.29358 53.15596 53.70642 52.89908 53.43119
## [745] 52.56881 52.73394 53.43119 52.75229 52.84404 52.89908 52.40367 52.29358
## [753] 53.72477 51.94495 52.75229 52.05505 52.20183 53.15596 52.95413 52.05505
## [761] 52.73394 53.15596 53.10092 52.95413 53.19266 52.95413 51.87156 53.30275
## [769] 53.30275 52.75229 53.15596 52.64220 52.12844 52.80734 53.35780 52.73394
## [777] 53.30275 52.80734 53.30275 51.87156 52.99083 52.12844 53.15596 54.56881
## [785] 52.18349 54.51376 52.29358 52.89908 52.89908 52.49541 52.56881 52.95413
## [793] 53.43119 52.84404 53.30275 53.30275 53.30275 52.05505 53.10092 53.63303
## [801] 52.40367 53.19266 51.61468 54.51376 52.64220 53.30275 52.95413 52.05505
## [809] 53.15596 53.19266 53.10092 53.70642 52.73394 52.75229 52.95413 52.40367
## [817] 53.37615 52.56881 52.62385 53.30275 52.64220 52.01835 52.99083 52.49541
## [825] 52.40367 52.45872 52.80734 52.80734 53.00917 53.30275 53.10092 52.01835
## [833] 52.40367 52.84404 54.00000 51.77982 52.20183 52.20183 52.73394 52.45872
## [841] 53.43119 53.37615 52.40367 52.62385 52.56881 53.98165 53.00917 52.45872
## [849] 52.56881 52.99083 52.56881 52.75229 53.54128 53.59633 52.99083 53.00917
## [857] 51.66972 53.59633 53.30275 52.75229 52.80734 52.18349 53.15596 53.37615
## [865] 52.40367 53.10092 52.05505 53.10092 53.30275 53.15596 53.15596 52.95413
## [873] 52.18349 52.05505 52.75229 53.43119 52.01835 53.63303 52.62385 53.35780
## [881] 53.43119 53.10092 52.23853 52.62385 52.75229 52.99083 52.56881 52.73394
## [889] 51.87156 52.05505 52.62385 52.75229 53.15596 53.35780 52.05505 52.89908
## [897] 53.10092 52.01835 53.43119 52.99083 54.73394 53.30275 53.70642 52.75229
## [905] 53.59633 52.80734 52.40367 53.19266 52.84404 52.75229 52.40367 52.75229
## [913] 52.89908 52.64220 53.19266 53.19266 53.59633 52.99083 52.40367 53.10092
## [921] 52.89908 53.30275 53.43119 52.75229 52.49541 52.56881 53.68807 53.00917
## [929] 53.30275 52.80734 54.38532 52.75229 52.56881 52.67890 53.19266 52.45872
## [937] 52.12844 52.99083 53.30275 51.61468 53.59633 52.45872 53.76147 54.67890
## [945] 52.84404 54.56881 52.20183 52.75229 52.84404 52.45872 53.00917 51.68807
## [953] 52.45872 54.00000 52.67890 53.30275 52.40367 52.75229 52.95413 53.35780
## [961] 52.80734 52.64220 52.67890 52.73394 52.99083 52.56881 53.35780 53.00917
## [969] 52.73394 52.67890 52.20183 51.81651 53.37615 52.05505 52.62385 52.49541
## [977] 53.15596 52.56881 52.20183 52.75229 53.54128 52.56881 54.31193 52.40367
## [985] 53.74312 52.40367 52.84404 53.30275 53.35780 53.15596 53.00917 52.67890
## [993] 52.84404 51.77982 53.00917 52.64220 52.95413 52.80734 52.80734 53.37615
hist(NfinalMedia)
I_mediana=median(NfinalMedia);I_mediana
## [1] 52.84404
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans1))^2+(median(NfinalMedia)-median(IH_trans1))^2,2);EE
## [1] 0.27
grupos
#Datos=Cali[,c(19:34)]
#falta activar incertidumbre
pesos=c(
#voluntariedad
0.50,0.50,
#conocimiento
0.171,0.220,0.171,0.195,0.244,
#incertidumbre
#0.032,0.024,0.024,
#confianza gubernamental
0.241,0.276,0.241,0.241,
#confianza sector salud
0.438,0.563,
#confianza medios
0.467,0.533,
#probabilidad de contagio
0.164,0.145,0.164,0.127,0.109,0.145,0.145,
#severidad
0.241,0.276,0.276,0.207,
#susceptibilidad
0.222,0.222,0.194,0.167,0.194,
#cumplimiento
0.190,0.190,0.190,0.143,0.143,0.143)
PROBABILIDAD DE CONTAGIO
#ProbabilidadContagio=Datos[,c(16:22)]*pesos[c(16:22)];ProbabilidadContagio
temp_K<-c()
lista_vacia <- vector("list", length = 797)
celsius_to_kelvin <- function(temp_C) {
for (i in 1:7) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:7)]
}
return(datosnew)
};ProbabilidadContagio=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(ProbabilidadContagio[ ,1:7]);IH
## [1] 7.504 6.528 7.735 7.443 7.089 7.760 7.163 10.322 11.932 4.882
## [11] 6.052 8.393 7.418 6.881 10.517 5.393 7.882 8.138 9.102 11.408
## [21] 10.517 5.137 7.504 6.834 9.907 5.712 10.883 9.358 7.590 8.736
## [31] 9.395 9.187 6.894 10.492 6.978 4.930 7.614 10.737 8.090 9.663
## [41] 10.897 5.467 5.357 6.174 6.077 5.210 7.748 7.175 6.821 7.858
## [51] 7.114 7.260 9.469 11.396 7.138 11.432 5.979 9.126 7.566 8.199
## [61] 10.371 7.102 3.686 7.528 9.029 7.298 8.322 7.931 10.213 10.445
## [71] 7.760 8.846 7.858 4.002 8.248 7.711 7.931 8.431 10.712 6.614
## [81] 9.126 9.968 9.297 9.430 5.503 7.809 7.736 10.468 11.615 10.322
## [91] 4.808 6.065 6.638 7.528 7.614 10.786 8.833 5.808 5.552 11.932
## [101] 9.370 7.199 7.589 9.200 12.787 10.737 4.687 9.249 7.004 7.833
## [111] 8.590 9.615 10.737 10.005 6.589 6.247 10.273 11.371 4.638 10.517
## [121] 5.858 10.884 8.322 8.334 4.150 5.907 9.761 9.273 11.567 4.881
## [131] 10.102 11.322 12.103 5.784 7.809 5.723 7.199 12.787 12.103 7.662
## [141] 9.761 7.772 5.748 8.052 10.347 9.151 6.760 9.761 8.884 7.724
## [151] 7.150 8.761 11.103 7.309 7.566 7.174 8.175 7.370 7.125 12.127
## [161] 8.260 10.919 6.321 8.260 8.553 12.103 8.590 6.174 11.908 7.467
## [171] 11.103 10.225 8.406 5.332 10.700 10.908 9.761 8.077 7.565 7.687
## [181] 8.638 6.076 12.103 5.918 10.005 7.052 5.077 7.089 7.540 5.663
## [191] 11.103 10.493 11.811 4.870 12.103 6.150 9.638 3.345 6.552 8.711
## [201] 11.761 9.785 9.821 9.968 7.029 9.370 10.932 5.468 7.369 8.175
## [211] 11.103 5.797 8.431 9.053 8.724 9.346 8.541 7.577 8.761 11.261
## [221] 7.333 6.980 7.931 8.931 9.468 11.103 7.980 7.760 8.530 7.516
## [231] 5.223 6.869 7.127 7.199 8.760 3.942 3.478 6.564 7.613 6.248
## [241] 9.358 8.773 8.920 7.345 7.052 4.577 6.979 12.103 8.249 8.151
## [251] 10.055 5.955 7.760 5.698 6.833 5.540 7.809 8.223 10.005 9.151
## [261] 10.517 7.882 7.125 5.321 5.613 8.882 7.320 9.785 7.589 6.467
## [271] 7.956 6.601 7.345 7.247 8.103 8.516 12.103 10.712 10.103 11.323
## [281] 8.833 9.639 10.932 7.297 6.382 8.479 10.493 10.639 8.151 8.273
## [291] 8.175 7.418 6.589 6.126 7.063 4.442 6.296 9.383 9.675 12.103
## [301] 5.028 8.273 8.346 10.688 12.103 9.968 6.101 7.784 9.040 10.713
## [311] 9.115 10.541 7.711 8.638 11.006 6.614 9.126 3.417 8.322 8.626
## [321] 7.869 7.516 6.589 5.052 7.540 7.517 11.883 7.566 7.955 5.186
## [331] 8.151 7.882 10.726 10.371 6.028 7.065 8.004 8.809 7.979 2.978
## [341] 7.297 9.492 8.321 7.809 7.516 9.614 9.443 8.846 10.273 12.787
## [351] 10.250 7.394 9.651 11.323 8.992 7.931 11.274 11.603 8.041 8.591
## [361] 7.711 8.980 5.759 7.333 8.590 7.748 11.432 9.346 12.103 7.467
## [371] 7.833 11.761 10.542 7.126 6.784 8.285 12.103 6.454 9.615 7.650
## [381] 7.004 7.674 7.760 8.785 10.213 7.639 10.248 7.431 7.431 7.809
## [391] 7.638 6.101 9.627 5.650 10.615 8.969 6.625 10.493 7.211 7.980
## [401] 8.187 7.005 5.565 9.358 7.089 4.591 6.954 9.273 10.895 7.394
## [411] 12.103 7.773 6.175 4.053 9.419 10.079 6.077 9.419 5.127 6.699
## [421] 6.249 4.493 10.249 8.870 8.419 8.664 12.787 9.224 6.517 8.420
## [431] 9.187 11.177 5.637 6.711 11.713 12.103 7.442 9.369 9.649 6.907
## [441] 7.382 5.088 8.273 9.371 7.712 6.687 6.150 8.688 9.420 7.969
## [451] 10.250 11.421 9.311 12.787 6.589 8.517 8.469 11.201 8.297 12.067
## [461] 8.139 7.931 9.810 6.748 7.395 8.956 9.346 9.371 12.567 11.762
## [471] 12.787 9.456 9.115 10.639 10.079 12.787 8.884 8.748 11.396 10.933
## [481] 8.846 10.250 8.724 11.005 8.248 10.444 8.273 9.944 10.859 8.114
## [491] 8.445 11.396 9.445 11.676 12.287 8.980 7.347 8.883 8.982 10.359
## [501] 5.357 11.859 7.273 10.347 8.615 7.918 8.968 6.956 6.613 8.797
## [511] 6.687 8.395 8.957 6.711 5.492 6.028 10.615 11.652 7.102 9.102
## [521] 9.200 7.882 7.883 6.322 8.883 12.616 12.152 3.124 10.787 8.969
## [531] 8.834 7.822 8.249 8.200 8.493 6.931 6.638 6.272 10.419 7.736
## [541] 9.542 8.468 7.882 9.482 10.725 10.054 8.615 8.249 10.248 7.309
## [551] 9.395 12.787 8.273 5.553 6.882 7.870 10.688 7.553 11.128 3.124
## [561] 6.382 8.566 12.787 9.542 7.249 7.127 9.395 8.310 6.920 10.835
## [571] 10.359 10.872 3.661 8.419 4.357 10.677 8.565 9.895 9.201 9.663
## [581] 10.115 11.201 8.200 9.054 8.615 8.151 10.859 9.640 6.662 7.688
## [591] 8.493 11.225 8.469 9.810 6.930 9.298 8.127 7.187 9.810 8.578
## [601] 11.750 9.603 9.335 8.614 3.491 8.077 10.835 8.371 9.810 7.273
## [611] 7.906 10.139 11.055 9.274 11.055 7.480 6.075 9.396 10.432 9.346
## [621] 6.857 9.116 4.272 11.055 12.787 6.541 10.664 9.273 7.407 6.467
## [631] 11.372 8.492 6.919 12.787 8.419 9.213 9.274 12.787 7.920 5.663
## [641] 2.001 9.932 9.371 8.736 5.661 6.272 7.078 10.957 10.957 12.787
## [651] 9.164 8.664 10.701 9.078 7.176 11.274 9.859 9.616 10.005 12.787
## [661] 10.225 9.566 12.007 9.395 11.006 10.030 6.676 12.616 7.358 9.444
## [671] 12.592 5.176 10.737 12.787 12.787 8.469 8.444 5.247 9.615 7.223
## [681] 8.152 9.140 8.786 7.419 10.750 4.917 8.530 9.639 8.786 10.200
## [691] 8.884 10.787 8.297 8.664 9.615 8.993 9.786 6.565 9.371 8.688
## [701] 5.126 11.226 7.028 9.225 9.956 7.724 12.445 10.250 6.614 9.224
## [711] 11.592 11.616 5.981 8.321 11.201 4.441 8.725 9.737 8.224 9.224
## [721] 8.102 6.603 9.725 10.933 8.395 10.164 9.530 5.576 12.787 8.382
## [731] 6.492 7.992 4.638 8.394 8.224 7.602 7.347 9.347 9.175 8.736
## [741] 10.030 10.371 7.797 9.615 9.018 10.737 8.835 9.687 10.201 9.420
## [751] 10.957 8.469 12.787 9.249 8.395 9.663 9.273 10.030 7.713 9.420
## [761] 7.687 8.895 9.566 9.395 6.589 7.359 7.394 6.443 6.883 4.370
## [771] 6.639 8.273 9.810 11.250 3.661 10.968 8.871 12.787 11.567 12.116
## [781] 10.445 10.359 10.201 9.420 10.787 10.457 11.225 8.554 5.712 10.530
## [791] 4.821 10.445 8.224 8.395 7.882 10.555 7.881
data.frame(IH)
## IH
## 1 7.504
## 2 6.528
## 3 7.735
## 4 7.443
## 5 7.089
## 6 7.760
## 7 7.163
## 8 10.322
## 9 11.932
## 10 4.882
## 11 6.052
## 12 8.393
## 13 7.418
## 14 6.881
## 15 10.517
## 16 5.393
## 17 7.882
## 18 8.138
## 19 9.102
## 20 11.408
## 21 10.517
## 22 5.137
## 23 7.504
## 24 6.834
## 25 9.907
## 26 5.712
## 27 10.883
## 28 9.358
## 29 7.590
## 30 8.736
## 31 9.395
## 32 9.187
## 33 6.894
## 34 10.492
## 35 6.978
## 36 4.930
## 37 7.614
## 38 10.737
## 39 8.090
## 40 9.663
## 41 10.897
## 42 5.467
## 43 5.357
## 44 6.174
## 45 6.077
## 46 5.210
## 47 7.748
## 48 7.175
## 49 6.821
## 50 7.858
## 51 7.114
## 52 7.260
## 53 9.469
## 54 11.396
## 55 7.138
## 56 11.432
## 57 5.979
## 58 9.126
## 59 7.566
## 60 8.199
## 61 10.371
## 62 7.102
## 63 3.686
## 64 7.528
## 65 9.029
## 66 7.298
## 67 8.322
## 68 7.931
## 69 10.213
## 70 10.445
## 71 7.760
## 72 8.846
## 73 7.858
## 74 4.002
## 75 8.248
## 76 7.711
## 77 7.931
## 78 8.431
## 79 10.712
## 80 6.614
## 81 9.126
## 82 9.968
## 83 9.297
## 84 9.430
## 85 5.503
## 86 7.809
## 87 7.736
## 88 10.468
## 89 11.615
## 90 10.322
## 91 4.808
## 92 6.065
## 93 6.638
## 94 7.528
## 95 7.614
## 96 10.786
## 97 8.833
## 98 5.808
## 99 5.552
## 100 11.932
## 101 9.370
## 102 7.199
## 103 7.589
## 104 9.200
## 105 12.787
## 106 10.737
## 107 4.687
## 108 9.249
## 109 7.004
## 110 7.833
## 111 8.590
## 112 9.615
## 113 10.737
## 114 10.005
## 115 6.589
## 116 6.247
## 117 10.273
## 118 11.371
## 119 4.638
## 120 10.517
## 121 5.858
## 122 10.884
## 123 8.322
## 124 8.334
## 125 4.150
## 126 5.907
## 127 9.761
## 128 9.273
## 129 11.567
## 130 4.881
## 131 10.102
## 132 11.322
## 133 12.103
## 134 5.784
## 135 7.809
## 136 5.723
## 137 7.199
## 138 12.787
## 139 12.103
## 140 7.662
## 141 9.761
## 142 7.772
## 143 5.748
## 144 8.052
## 145 10.347
## 146 9.151
## 147 6.760
## 148 9.761
## 149 8.884
## 150 7.724
## 151 7.150
## 152 8.761
## 153 11.103
## 154 7.309
## 155 7.566
## 156 7.174
## 157 8.175
## 158 7.370
## 159 7.125
## 160 12.127
## 161 8.260
## 162 10.919
## 163 6.321
## 164 8.260
## 165 8.553
## 166 12.103
## 167 8.590
## 168 6.174
## 169 11.908
## 170 7.467
## 171 11.103
## 172 10.225
## 173 8.406
## 174 5.332
## 175 10.700
## 176 10.908
## 177 9.761
## 178 8.077
## 179 7.565
## 180 7.687
## 181 8.638
## 182 6.076
## 183 12.103
## 184 5.918
## 185 10.005
## 186 7.052
## 187 5.077
## 188 7.089
## 189 7.540
## 190 5.663
## 191 11.103
## 192 10.493
## 193 11.811
## 194 4.870
## 195 12.103
## 196 6.150
## 197 9.638
## 198 3.345
## 199 6.552
## 200 8.711
## 201 11.761
## 202 9.785
## 203 9.821
## 204 9.968
## 205 7.029
## 206 9.370
## 207 10.932
## 208 5.468
## 209 7.369
## 210 8.175
## 211 11.103
## 212 5.797
## 213 8.431
## 214 9.053
## 215 8.724
## 216 9.346
## 217 8.541
## 218 7.577
## 219 8.761
## 220 11.261
## 221 7.333
## 222 6.980
## 223 7.931
## 224 8.931
## 225 9.468
## 226 11.103
## 227 7.980
## 228 7.760
## 229 8.530
## 230 7.516
## 231 5.223
## 232 6.869
## 233 7.127
## 234 7.199
## 235 8.760
## 236 3.942
## 237 3.478
## 238 6.564
## 239 7.613
## 240 6.248
## 241 9.358
## 242 8.773
## 243 8.920
## 244 7.345
## 245 7.052
## 246 4.577
## 247 6.979
## 248 12.103
## 249 8.249
## 250 8.151
## 251 10.055
## 252 5.955
## 253 7.760
## 254 5.698
## 255 6.833
## 256 5.540
## 257 7.809
## 258 8.223
## 259 10.005
## 260 9.151
## 261 10.517
## 262 7.882
## 263 7.125
## 264 5.321
## 265 5.613
## 266 8.882
## 267 7.320
## 268 9.785
## 269 7.589
## 270 6.467
## 271 7.956
## 272 6.601
## 273 7.345
## 274 7.247
## 275 8.103
## 276 8.516
## 277 12.103
## 278 10.712
## 279 10.103
## 280 11.323
## 281 8.833
## 282 9.639
## 283 10.932
## 284 7.297
## 285 6.382
## 286 8.479
## 287 10.493
## 288 10.639
## 289 8.151
## 290 8.273
## 291 8.175
## 292 7.418
## 293 6.589
## 294 6.126
## 295 7.063
## 296 4.442
## 297 6.296
## 298 9.383
## 299 9.675
## 300 12.103
## 301 5.028
## 302 8.273
## 303 8.346
## 304 10.688
## 305 12.103
## 306 9.968
## 307 6.101
## 308 7.784
## 309 9.040
## 310 10.713
## 311 9.115
## 312 10.541
## 313 7.711
## 314 8.638
## 315 11.006
## 316 6.614
## 317 9.126
## 318 3.417
## 319 8.322
## 320 8.626
## 321 7.869
## 322 7.516
## 323 6.589
## 324 5.052
## 325 7.540
## 326 7.517
## 327 11.883
## 328 7.566
## 329 7.955
## 330 5.186
## 331 8.151
## 332 7.882
## 333 10.726
## 334 10.371
## 335 6.028
## 336 7.065
## 337 8.004
## 338 8.809
## 339 7.979
## 340 2.978
## 341 7.297
## 342 9.492
## 343 8.321
## 344 7.809
## 345 7.516
## 346 9.614
## 347 9.443
## 348 8.846
## 349 10.273
## 350 12.787
## 351 10.250
## 352 7.394
## 353 9.651
## 354 11.323
## 355 8.992
## 356 7.931
## 357 11.274
## 358 11.603
## 359 8.041
## 360 8.591
## 361 7.711
## 362 8.980
## 363 5.759
## 364 7.333
## 365 8.590
## 366 7.748
## 367 11.432
## 368 9.346
## 369 12.103
## 370 7.467
## 371 7.833
## 372 11.761
## 373 10.542
## 374 7.126
## 375 6.784
## 376 8.285
## 377 12.103
## 378 6.454
## 379 9.615
## 380 7.650
## 381 7.004
## 382 7.674
## 383 7.760
## 384 8.785
## 385 10.213
## 386 7.639
## 387 10.248
## 388 7.431
## 389 7.431
## 390 7.809
## 391 7.638
## 392 6.101
## 393 9.627
## 394 5.650
## 395 10.615
## 396 8.969
## 397 6.625
## 398 10.493
## 399 7.211
## 400 7.980
## 401 8.187
## 402 7.005
## 403 5.565
## 404 9.358
## 405 7.089
## 406 4.591
## 407 6.954
## 408 9.273
## 409 10.895
## 410 7.394
## 411 12.103
## 412 7.773
## 413 6.175
## 414 4.053
## 415 9.419
## 416 10.079
## 417 6.077
## 418 9.419
## 419 5.127
## 420 6.699
## 421 6.249
## 422 4.493
## 423 10.249
## 424 8.870
## 425 8.419
## 426 8.664
## 427 12.787
## 428 9.224
## 429 6.517
## 430 8.420
## 431 9.187
## 432 11.177
## 433 5.637
## 434 6.711
## 435 11.713
## 436 12.103
## 437 7.442
## 438 9.369
## 439 9.649
## 440 6.907
## 441 7.382
## 442 5.088
## 443 8.273
## 444 9.371
## 445 7.712
## 446 6.687
## 447 6.150
## 448 8.688
## 449 9.420
## 450 7.969
## 451 10.250
## 452 11.421
## 453 9.311
## 454 12.787
## 455 6.589
## 456 8.517
## 457 8.469
## 458 11.201
## 459 8.297
## 460 12.067
## 461 8.139
## 462 7.931
## 463 9.810
## 464 6.748
## 465 7.395
## 466 8.956
## 467 9.346
## 468 9.371
## 469 12.567
## 470 11.762
## 471 12.787
## 472 9.456
## 473 9.115
## 474 10.639
## 475 10.079
## 476 12.787
## 477 8.884
## 478 8.748
## 479 11.396
## 480 10.933
## 481 8.846
## 482 10.250
## 483 8.724
## 484 11.005
## 485 8.248
## 486 10.444
## 487 8.273
## 488 9.944
## 489 10.859
## 490 8.114
## 491 8.445
## 492 11.396
## 493 9.445
## 494 11.676
## 495 12.287
## 496 8.980
## 497 7.347
## 498 8.883
## 499 8.982
## 500 10.359
## 501 5.357
## 502 11.859
## 503 7.273
## 504 10.347
## 505 8.615
## 506 7.918
## 507 8.968
## 508 6.956
## 509 6.613
## 510 8.797
## 511 6.687
## 512 8.395
## 513 8.957
## 514 6.711
## 515 5.492
## 516 6.028
## 517 10.615
## 518 11.652
## 519 7.102
## 520 9.102
## 521 9.200
## 522 7.882
## 523 7.883
## 524 6.322
## 525 8.883
## 526 12.616
## 527 12.152
## 528 3.124
## 529 10.787
## 530 8.969
## 531 8.834
## 532 7.822
## 533 8.249
## 534 8.200
## 535 8.493
## 536 6.931
## 537 6.638
## 538 6.272
## 539 10.419
## 540 7.736
## 541 9.542
## 542 8.468
## 543 7.882
## 544 9.482
## 545 10.725
## 546 10.054
## 547 8.615
## 548 8.249
## 549 10.248
## 550 7.309
## 551 9.395
## 552 12.787
## 553 8.273
## 554 5.553
## 555 6.882
## 556 7.870
## 557 10.688
## 558 7.553
## 559 11.128
## 560 3.124
## 561 6.382
## 562 8.566
## 563 12.787
## 564 9.542
## 565 7.249
## 566 7.127
## 567 9.395
## 568 8.310
## 569 6.920
## 570 10.835
## 571 10.359
## 572 10.872
## 573 3.661
## 574 8.419
## 575 4.357
## 576 10.677
## 577 8.565
## 578 9.895
## 579 9.201
## 580 9.663
## 581 10.115
## 582 11.201
## 583 8.200
## 584 9.054
## 585 8.615
## 586 8.151
## 587 10.859
## 588 9.640
## 589 6.662
## 590 7.688
## 591 8.493
## 592 11.225
## 593 8.469
## 594 9.810
## 595 6.930
## 596 9.298
## 597 8.127
## 598 7.187
## 599 9.810
## 600 8.578
## 601 11.750
## 602 9.603
## 603 9.335
## 604 8.614
## 605 3.491
## 606 8.077
## 607 10.835
## 608 8.371
## 609 9.810
## 610 7.273
## 611 7.906
## 612 10.139
## 613 11.055
## 614 9.274
## 615 11.055
## 616 7.480
## 617 6.075
## 618 9.396
## 619 10.432
## 620 9.346
## 621 6.857
## 622 9.116
## 623 4.272
## 624 11.055
## 625 12.787
## 626 6.541
## 627 10.664
## 628 9.273
## 629 7.407
## 630 6.467
## 631 11.372
## 632 8.492
## 633 6.919
## 634 12.787
## 635 8.419
## 636 9.213
## 637 9.274
## 638 12.787
## 639 7.920
## 640 5.663
## 641 2.001
## 642 9.932
## 643 9.371
## 644 8.736
## 645 5.661
## 646 6.272
## 647 7.078
## 648 10.957
## 649 10.957
## 650 12.787
## 651 9.164
## 652 8.664
## 653 10.701
## 654 9.078
## 655 7.176
## 656 11.274
## 657 9.859
## 658 9.616
## 659 10.005
## 660 12.787
## 661 10.225
## 662 9.566
## 663 12.007
## 664 9.395
## 665 11.006
## 666 10.030
## 667 6.676
## 668 12.616
## 669 7.358
## 670 9.444
## 671 12.592
## 672 5.176
## 673 10.737
## 674 12.787
## 675 12.787
## 676 8.469
## 677 8.444
## 678 5.247
## 679 9.615
## 680 7.223
## 681 8.152
## 682 9.140
## 683 8.786
## 684 7.419
## 685 10.750
## 686 4.917
## 687 8.530
## 688 9.639
## 689 8.786
## 690 10.200
## 691 8.884
## 692 10.787
## 693 8.297
## 694 8.664
## 695 9.615
## 696 8.993
## 697 9.786
## 698 6.565
## 699 9.371
## 700 8.688
## 701 5.126
## 702 11.226
## 703 7.028
## 704 9.225
## 705 9.956
## 706 7.724
## 707 12.445
## 708 10.250
## 709 6.614
## 710 9.224
## 711 11.592
## 712 11.616
## 713 5.981
## 714 8.321
## 715 11.201
## 716 4.441
## 717 8.725
## 718 9.737
## 719 8.224
## 720 9.224
## 721 8.102
## 722 6.603
## 723 9.725
## 724 10.933
## 725 8.395
## 726 10.164
## 727 9.530
## 728 5.576
## 729 12.787
## 730 8.382
## 731 6.492
## 732 7.992
## 733 4.638
## 734 8.394
## 735 8.224
## 736 7.602
## 737 7.347
## 738 9.347
## 739 9.175
## 740 8.736
## 741 10.030
## 742 10.371
## 743 7.797
## 744 9.615
## 745 9.018
## 746 10.737
## 747 8.835
## 748 9.687
## 749 10.201
## 750 9.420
## 751 10.957
## 752 8.469
## 753 12.787
## 754 9.249
## 755 8.395
## 756 9.663
## 757 9.273
## 758 10.030
## 759 7.713
## 760 9.420
## 761 7.687
## 762 8.895
## 763 9.566
## 764 9.395
## 765 6.589
## 766 7.359
## 767 7.394
## 768 6.443
## 769 6.883
## 770 4.370
## 771 6.639
## 772 8.273
## 773 9.810
## 774 11.250
## 775 3.661
## 776 10.968
## 777 8.871
## 778 12.787
## 779 11.567
## 780 12.116
## 781 10.445
## 782 10.359
## 783 10.201
## 784 9.420
## 785 10.787
## 786 10.457
## 787 11.225
## 788 8.554
## 789 5.712
## 790 10.530
## 791 4.821
## 792 10.445
## 793 8.224
## 794 8.395
## 795 7.882
## 796 10.555
## 797 7.881
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans61=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans61)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 49.10 60.53 61.01 74.21 100.00
round(sd(IH_trans61),2)
## [1] 18.75
#hist(IH_trans6,col="azure2",xlab="IPPC",main = "Distribución de IPPC",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
#Datos=Cali[,-c(8:10,41,42)]
Datos=Cali[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 1:7) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:7)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:7])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 60.86594 59.73484 61.53347 59.27128 60.85667 59.96662 59.50306 60.40237
## [9] 59.96662 61.32023 61.08845 60.85667 61.32023 59.28055 60.05934 59.61431
## [17] 59.50306 60.63416 60.18913 59.28055 59.73484 59.96662 60.17986 60.18913
## [25] 60.86594 59.61431 60.05934 60.18913 60.18913 59.50306 59.96662 61.53347
## [33] 60.86594 60.85667 61.08845 61.08845 61.31096 59.96662 62.44205 59.96662
## [41] 59.50306 61.77452 59.95735 59.38253 61.53347 59.96662 61.32023 60.75468
## [49] 60.74541 59.96662 60.41164 60.41164 59.50306 60.41164 60.17986 59.28055
## [57] 60.41164 62.66457 61.42221 60.18913 61.32023 61.53347 60.53217 60.75468
## [65] 60.53217 60.18913 61.77452 61.77452 60.53217 59.95735 60.17986 60.74541
## [73] 59.96662 60.18913 59.96662 58.49249 58.59447 60.75468 60.17986 59.61431
## [81] 60.41164 59.96662 60.63416 60.18913 60.18913 61.08845 59.96662 60.85667
## [89] 60.97719 59.96662 62.33080 61.53347 60.63416 59.50306 61.42221 60.40237
## [97] 60.40237 60.97719 60.53217 60.05934 60.85667 61.08845 59.96662 61.99703
## [105] 60.63416 60.97719 61.32023 60.18913 61.08845 59.50306 61.08845 60.86594
## [113] 60.53217 62.21027 60.97719 62.34007 61.77452 59.96662 59.28055 60.41164
## [121] 62.89635 59.96662 58.71500 61.32023 61.32023 59.50306 59.61431 59.38253
## [129] 59.95735 61.09772 59.51233 59.28055 61.09772 59.51233 61.09772 60.74541
## [137] 61.32023 60.86594 60.85667 60.74541 60.18913 59.61431 60.63416 59.74411
## [145] 59.96662 61.08845 59.51233 59.61431 59.74411 60.40237 60.18913 59.96662
## [153] 59.51233 59.95735 61.53347 59.96662 60.17986 61.32023 60.05934 60.97719
## [161] 61.09772 63.11886 59.50306 59.96662 61.77452 60.85667 59.96662 61.32023
## [169] 60.97719 61.32023 60.63416 58.60375 59.96662 61.42221 60.75468 59.16002
## [177] 59.73484 61.32023 60.75468 60.74541 59.27128 60.17986 59.51233 60.53217
## [185] 59.28055 59.74411 60.05934 60.41164 60.41164 60.18913 59.96662 59.96662
## [193] 59.95735 61.09772 60.17986 61.32023 60.40237 60.63416 61.32023 62.90562
## [201] 59.96662 61.08845 60.75468 59.50306 58.71500 59.51233 60.75468 60.74541
## [209] 60.74541 61.08845 62.67384 60.97719 60.53217 59.96662 60.63416 60.74541
## [217] 61.32023 60.53217 60.41164 61.42221 60.74541 60.74541 61.08845 59.96662
## [225] 61.42221 59.74411 60.40237 62.55331 60.41164 59.28055 60.17986 60.97719
## [233] 60.97719 60.63416 60.53217 59.96662 60.74541 61.53347 60.18913 60.53217
## [241] 61.31096 59.50306 60.40237 59.61431 58.59447 61.32023 60.05934 60.18913
## [249] 60.17986 59.96662 60.74541 60.97719 61.08845 60.74541 61.08845 59.73484
## [257] 60.75468 62.90562 60.75468 61.08845 60.63416 60.40237 61.08845 61.77452
## [265] 60.41164 61.99703 60.40237 61.31096 60.63416 60.86594 60.40237 59.96662
## [273] 61.08845 60.63416 59.95735 60.40237 60.17986 61.32023 62.34007 61.32023
## [281] 60.75468 61.53347 60.75468 60.18913 60.53217 61.77452 61.08845 59.61431
## [289] 60.53217 60.97719 59.96662 61.32023 59.96662 58.82626 60.41164 60.40237
## [297] 60.86594 60.53217 61.99703 61.09772 59.74411 60.53217 61.32023 60.05934
## [305] 60.53217 61.77452 59.96662 59.96662 60.53217 59.73484 60.17986 59.73484
## [313] 59.26201 60.40237 58.71500 59.50306 61.32023 60.75468 59.50306 59.50306
## [321] 58.59447 59.61431 60.41164 62.34007 60.75468 58.59447 62.66457 60.18913
## [329] 59.61431 59.50306 61.77452 61.08845 61.08845 62.44205 59.28055 60.97719
## [337] 60.53217 59.50306 58.14945 61.08845 62.89635 59.50306 60.40237 59.51233
## [345] 60.05934 59.50306 60.85667 60.53217 60.18913 61.32023 59.51233 60.85667
## [353] 61.31096 59.50306 61.08845 61.08845 60.41164 58.59447 60.86594 60.05934
## [361] 61.77452 61.42221 59.50306 61.53347 59.16002 61.32023 62.21027 60.18913
## [369] 61.32023 61.53347 59.96662 59.05804 61.53347 61.08845 59.96662 59.96662
## [377] 60.53217 59.50306 59.51233 58.82626 61.09772 60.97719 60.41164 60.74541
## [385] 60.63416 59.28055 60.85667 59.74411 60.86594 59.73484 59.50306 60.86594
## [393] 59.05804 59.50306 60.40237 60.63416 60.63416 60.18913 61.77452 60.85667
## [401] 60.53217 60.74541 60.75468 59.61431 59.96662 62.44205 59.74411 61.08845
## [409] 60.53217 60.18913 60.18913 62.44205 60.41164 59.61431 60.18913 60.53217
## [417] 60.53217 59.50306 60.41164 60.75468 60.63416 61.77452 59.50306 61.08845
## [425] 61.08845 61.08845 60.74541 60.05934 60.40237 60.05934 60.63416 60.85667
## [433] 61.31096 59.50306 59.95735 59.95735 59.96662 59.51233 61.08845 60.85667
## [441] 59.95735 61.77452 61.08845 60.18913 59.61431 59.73484 60.75468 59.50306
## [449] 62.33080 60.97719 61.77452 61.53347 59.74411 59.50306 59.61431 61.09772
## [457] 59.26201 60.05934 59.96662 60.05934 61.31096 61.08845 60.40237 59.96662
## [465] 59.51233 60.53217 61.09772 61.53347 60.53217 61.08845 59.96662 59.38253
## [473] 60.53217 60.18913 61.08845 60.53217 60.53217 59.74411 61.09772 60.18913
## [481] 60.17986 62.55331 60.41164 61.08845 59.73484 61.08845 59.95735 61.42221
## [489] 60.40237 61.09772 60.97719 62.44205 60.40237 59.96662 61.08845 60.75468
## [497] 59.96662 61.08845 60.40237 61.08845 60.74541 59.96662 61.08845 60.63416
## [505] 59.73484 59.50306 59.96662 60.75468 59.28055 60.17986 60.17986 59.50306
## [513] 59.16002 60.74541 59.28055 61.99703 60.75468 59.73484 60.63416 59.28055
## [521] 59.28055 60.63416 59.74411 60.85667 61.09772 59.61431 59.73484 61.99703
## [529] 62.33080 59.61431 61.32023 61.77452 61.08845 60.18913 62.78509 62.90562
## [537] 60.85667 59.50306 61.53347 60.41164 60.05934 60.75468 60.53217 60.75468
## [545] 61.32023 61.53347 60.85667 61.32023 61.53347 60.74541 60.75468 60.53217
## [553] 59.50306 62.34007 60.40237 60.17986 61.08845 60.53217 59.61431 60.75468
## [561] 58.60375 61.08845 62.21027 59.96662 59.96662 60.40237 62.33080 60.86594
## [569] 60.97719 61.42221 61.32023 60.85667 61.09772 61.08845 61.08845 59.28055
## [577] 60.40237 61.32023 60.53217 60.41164 61.08845 59.73484 59.50306 59.51233
## [585] 59.50306 59.50306 60.53217 59.61431 61.77452 59.73484 59.96662 62.33080
## [593] 61.32023 59.61431 60.75468 61.08845 58.60375 60.75468 61.08845 61.32023
## [601] 59.74411 59.38253 59.26201 59.28055 61.32023 60.41164 59.61431 60.18913
## [609] 60.18913 61.32023 60.85667 60.18913 59.96662 59.28055 61.32023 59.73484
## [617] 61.77452 59.61431 61.32023 59.96662 61.77452 61.08845 60.41164 60.75468
## [625] 59.96662 61.32023 62.33080 60.41164 61.31096 61.08845 59.96662 59.74411
## [633] 61.08845 60.63416 60.17986 59.96662 59.61431 61.09772 60.97719 59.74411
## [641] 59.51233 59.95735 59.51233 60.53217 61.42221 59.50306 59.96662 60.63416
## [649] 60.97719 60.85667 60.85667 59.96662 60.63416 60.18913 60.53217 60.53217
## [657] 59.96662 60.17986 59.96662 60.97719 61.99703 59.74411 60.97719 61.09772
## [665] 60.05934 61.77452 61.09772 59.96662 62.21027 62.33080 60.41164 59.96662
## [673] 59.96662 60.53217 59.96662 61.53347 60.41164 60.18913 60.75468 60.86594
## [681] 59.50306 59.96662 61.32023 60.17986 60.41164 60.85667 61.08845 60.41164
## [689] 60.86594 61.08845 61.09772 59.51233 60.63416 60.18913 61.08845 60.41164
## [697] 59.96662 59.96662 59.95735 61.32023 58.59447 59.50306 60.74541 61.08845
## [705] 61.08845 59.50306 60.53217 58.60375 60.17986 62.67384 60.74541 60.18913
## [713] 60.53217 61.32023 60.85667 60.05934 61.08845 60.63416 59.95735 60.97719
## [721] 61.08845 62.55331 59.96662 61.09772 61.08845 59.51233 60.74541 60.17986
## [729] 60.41164 60.05934 60.05934 61.77452 60.97719 59.05804 60.41164 61.53347
## [737] 61.77452 59.38253 59.95735 60.97719 59.74411 61.08845 59.51233 60.63416
## [745] 60.17986 60.86594 59.96662 60.53217 60.53217 60.18913 61.32023 60.97719
## [753] 60.41164 60.05934 60.75468 59.95735 60.75468 61.09772 61.09772 61.08845
## [761] 59.96662 61.42221 59.38253 61.08845 61.32023 59.74411 62.67384 61.99703
## [769] 59.96662 62.66457 62.44205 60.18913 62.34007 59.27128 60.18913 59.73484
## [777] 60.41164 60.75468 59.96662 59.61431 59.96662 61.08845 59.16002 60.18913
## [785] 60.53217 60.86594 60.97719 61.08845 59.96662 60.85667 60.75468 60.97719
## [793] 60.86594 59.96662 60.86594 61.08845 60.18913 60.74541 59.96662 60.05934
## [801] 61.31096 60.53217 58.71500 60.85667 60.85667 60.05934 59.50306 60.97719
## [809] 60.97719 61.32023 59.74411 60.85667 60.85667 62.44205 62.34007 60.85667
## [817] 60.53217 58.02893 60.85667 60.53217 61.31096 60.75468 60.17986 60.63416
## [825] 60.86594 60.18913 60.86594 60.17986 61.53347 58.82626 60.05934 60.85667
## [833] 61.77452 61.77452 61.08845 60.75468 59.05804 61.31096 61.53347 61.08845
## [841] 60.86594 60.40237 61.08845 61.77452 60.41164 60.41164 61.32023 58.02893
## [849] 61.08845 60.75468 60.18913 60.18913 59.96662 59.74411 59.73484 60.74541
## [857] 60.40237 59.96662 59.96662 58.60375 60.17986 61.09772 61.08845 59.96662
## [865] 59.96662 58.82626 60.17986 59.50306 61.42221 60.18913 60.18913 59.38253
## [873] 60.17986 59.74411 62.33080 62.34007 60.97719 59.61431 60.75468 60.17986
## [881] 60.86594 61.08845 60.53217 61.08845 59.96662 61.77452 60.40237 61.53347
## [889] 60.97719 59.38253 59.50306 61.32023 61.32023 59.28055 59.28055 60.53217
## [897] 59.50306 60.86594 61.53347 60.86594 60.75468 59.51233 60.53217 59.16002
## [905] 59.96662 59.96662 60.74541 61.32023 61.77452 61.32023 60.97719 59.50306
## [913] 61.08845 59.50306 58.82626 63.00760 60.63416 60.05934 61.53347 61.09772
## [921] 62.21027 61.08845 59.50306 60.53217 59.74411 59.50306 59.96662 59.50306
## [929] 59.51233 61.09772 60.63416 60.17986 61.08845 60.85667 61.08845 60.40237
## [937] 61.42221 59.96662 59.96662 61.32023 59.28055 61.77452 60.63416 59.74411
## [945] 60.75468 60.18913 59.28055 59.28055 59.16002 60.75468 59.74411 61.08845
## [953] 59.50306 60.75468 59.96662 60.18913 61.77452 59.96662 59.96662 61.08845
## [961] 60.17986 60.53217 62.67384 61.77452 61.08845 61.99703 59.96662 59.74411
## [969] 60.40237 59.96662 59.28055 61.31096 60.74541 60.40237 61.32023 59.50306
## [977] 60.53217 59.61431 61.32023 60.86594 59.28055 59.38253 61.32023 60.18913
## [985] 59.73484 60.18913 61.09772 58.49249 60.53217 60.86594 59.28055 61.77452
## [993] 59.38253 61.77452 60.53217 60.53217 60.18913 60.53217 61.77452 60.18913
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
I_ref=61.22
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans61))^2+(median(NfinalMedia)-median(IH_trans61))^2,2);EE
## [1] 0.22
SEVERIDAD
#--------------------------------severidad-----------------------------------
#severidad=Datos[,c(23:26)]*pesos[c(23:26)];severidad
temp_K<-c()
lista_vacia <- vector("list", length = 797)
celsius_to_kelvin <- function(temp_C) {
for (i in 8:11) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(8:11)]
}
return(datosnew)
};severidad=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(severidad[ ,1:4]);IH
## [1] 3.514 2.962 3.996 3.203 4.272 5.030 3.720 4.478 4.684 2.927 6.235 3.514
## [13] 4.031 3.996 3.720 3.479 2.721 4.031 5.477 2.721 5.201 4.307 3.479 3.650
## [25] 3.308 5.442 1.516 2.480 2.686 3.273 4.513 4.513 2.756 4.789 5.271 2.962
## [37] 3.273 5.477 4.237 4.272 5.889 2.721 6.200 4.031 3.514 2.204 2.756 3.479
## [49] 2.550 3.755 3.444 3.514 2.239 4.719 4.960 3.032 3.479 3.238 2.445 2.239
## [61] 6.029 3.444 2.756 2.756 3.961 3.238 4.995 2.791 5.994 6.752 4.925 2.239
## [73] 3.996 1.481 1.792 5.753 2.239 4.513 6.476 4.237 4.960 3.755 5.442 3.479
## [85] 3.720 6.029 2.239 3.238 4.307 2.239 3.479 4.513 3.996 4.754 2.962 5.236
## [97] 3.755 2.721 3.996 3.032 6.752 1.998 3.238 3.238 6.993 5.718 5.547 5.306
## [109] 4.754 4.960 5.994 5.236 4.754 5.959 3.720 4.237 2.686 5.477 4.513 4.960
## [121] 5.959 5.753 5.201 6.270 1.722 4.960 4.478 4.478 5.236 2.480 4.995 4.478
## [133] 2.997 1.516 4.719 2.962 3.273 5.201 3.067 1.998 6.270 3.273 5.512 4.272
## [145] 4.101 3.479 4.307 0.999 4.202 4.272 2.033 4.373 6.717 2.962 5.924 4.202
## [157] 5.753 3.238 3.996 4.824 4.478 6.441 4.237 3.514 4.754 5.547 4.995 3.720
## [169] 5.442 3.479 6.993 5.477 3.755 2.756 4.272 3.996 2.239 6.165 3.996 4.478
## [181] 5.065 4.478 6.993 4.719 5.477 4.719 5.271 3.790 4.719 4.960 3.961 4.478
## [193] 1.481 4.995 6.993 4.443 3.514 5.306 1.998 5.442 2.550 4.478 3.238 6.476
## [205] 4.995 5.959 3.479 6.993 4.272 5.547 6.993 3.273 6.029 4.684 3.996 4.031
## [217] 4.995 4.443 3.685 4.960 3.996 5.030 4.237 5.547 4.272 1.481 3.996 1.998
## [229] 2.721 3.961 6.476 5.477 4.031 3.168 3.996 2.239 1.481 4.478 2.515 2.204
## [241] 4.754 3.755 4.272 3.479 2.756 2.721 5.166 4.960 2.997 6.200 1.792 3.514
## [253] 5.477 4.307 5.442 3.479 4.478 1.757 5.477 3.996 4.995 4.478 3.996 2.962
## [265] 4.995 4.754 2.997 3.926 4.789 2.997 4.995 3.479 2.721 3.273 1.757 3.720
## [277] 3.479 4.754 5.201 3.996 3.996 5.477 5.236 4.237 4.167 3.996 4.789 1.998
## [289] 5.477 5.994 4.719 6.511 3.961 4.513 3.273 2.239 3.514 4.960 4.237 6.993
## [301] 3.961 4.754 1.757 3.444 4.754 3.755 3.755 3.996 4.583 5.236 3.996 5.788
## [313] 1.516 3.479 5.030 3.996 3.479 2.445 5.236 2.721 5.994 5.271 3.238 2.962
## [325] 3.996 6.441 4.513 3.755 4.478 3.479 4.960 3.961 5.477 6.029 5.959 3.961
## [337] 4.202 6.511 3.273 1.481 3.891 3.238 3.720 3.755 4.272 3.238 1.516 4.272
## [349] 4.478 4.719 5.236 3.720 2.515 4.719 4.272 2.721 6.270 1.757 2.962 5.477
## [361] 5.030 5.271 3.961 2.239 4.443 4.167 4.684 2.204 6.993 3.755 4.478 3.168
## [373] 5.753 3.755 6.235 4.960 6.993 1.998 2.721 4.995 3.720 6.511 3.238 4.995
## [385] 5.683 4.202 5.030 2.721 3.273 4.754 3.273 3.961 4.960 1.516 2.756 4.307
## [397] 3.514 3.273 3.238 3.755 4.237 4.408 1.722 3.685 3.514 2.204 2.033 3.203
## [409] 4.719 3.996 6.270 5.271 5.236 5.477 4.031 5.788 4.513 4.031 3.238 4.272
## [421] 4.478 3.409 5.683 6.235 6.993 5.924 6.029 4.478 4.443 5.959 4.925 6.270
## [433] 3.755 3.549 6.993 6.441 4.443 2.515 4.237 3.720 3.720 2.997 3.755 6.441
## [445] 1.998 3.755 5.788 4.272 4.960 5.477 2.756 6.270 6.029 3.514 4.237 4.649
## [457] 5.477 5.306 4.202 5.236 1.998 3.996 3.996 2.721 3.996 3.996 3.514 4.960
## [469] 6.752 4.478 6.993 3.790 2.756 5.547 3.755 3.409 6.993 4.960 2.480 2.962
## [481] 3.961 5.994 3.032 3.203 3.996 2.274 5.477 5.512 5.547 3.238 4.237 4.272
## [493] 1.998 3.203 4.995 4.754 4.202 4.995 3.479 5.236 2.239 6.993 4.478 0.999
## [505] 2.480 4.513 3.685 2.239 2.239 2.515 1.998 4.995 3.755 4.513 3.168 2.721
## [517] 5.994 2.756 3.479 2.756 2.239 5.547 2.756 3.961 5.512 4.272 4.513 2.962
## [529] 1.963 3.032 3.996 3.720 3.996 3.720 2.962 3.203 2.962 2.686 4.719 3.996
## [541] 1.998 3.961 6.993 4.925 6.476 5.236 4.443 4.237 4.478 3.720 3.996 3.996
## [553] 3.996 3.755 3.273 5.065 3.444 2.997 3.996 0.999 3.720 2.721 3.685 2.480
## [565] 5.236 2.239 4.031 3.203 3.825 2.721 3.755 5.512 6.993 4.478 2.721 5.512
## [577] 2.515 3.961 5.442 4.995 4.995 5.442 5.236 2.962 4.237 2.480 2.480 3.961
## [589] 1.998 3.996 4.237 2.962 3.479 4.031 4.101 4.995 4.754 2.550 4.754 4.789
## [601] 2.997 4.995 3.961 2.997 2.445 1.481 4.443 1.757 2.721 5.547 1.722 3.755
## [613] 3.479 5.753 3.755 5.753 3.479 6.993 4.789 1.998 6.752 5.959 2.204 4.789
## [625] 2.480 3.961 6.993 5.994 2.274 3.996 5.477 4.995 3.238 6.441 4.995 3.273
## [637] 3.409 5.547 1.963 2.239 0.999 2.962 3.996 3.996 2.309 3.996 4.237 4.237
## [649] 2.033 6.993 4.789 5.512 3.996 3.996 6.717 6.752 2.791 6.441 5.236 4.513
## [661] 5.994 1.481 6.476 4.995 5.994 4.995 2.445 4.684 2.756 4.754 6.993 5.753
## [673] 4.995 3.891 6.993 5.753 4.995 2.239 6.029 5.030 3.273 4.443 3.238 4.513
## [685] 4.167 2.962 1.722 4.960 1.722 4.995 2.997 4.684 3.996 4.478 6.235 4.237
## [697] 5.959 5.994 4.754 3.755 4.307 5.236 6.235 3.961 5.753 6.476 2.997 3.755
## [709] 2.239 3.755 3.238 5.994 3.891 2.515 2.515 4.995 1.722 5.788 3.514 5.648
## [721] 3.996 2.721 3.479 3.996 4.513 5.959 2.997 3.926 2.239 3.479 2.997 3.238
## [733] 3.720 4.237 3.755 3.203 2.721 4.202 4.066 3.238 4.478 4.754 6.476 5.271
## [745] 4.478 5.477 4.719 5.442 2.515 4.478 5.477 4.237 6.993 5.924 4.754 3.996
## [757] 5.994 4.066 3.755 3.996 3.514 3.996 2.686 3.720 3.996 3.514 3.514 3.685
## [769] 3.720 0.999 3.479 5.547 5.442 6.200 1.481 3.032 3.203 2.515 3.755 5.959
## [781] 6.752 5.718 3.409 4.237 5.994 2.480 4.443 5.753 2.962 5.718 5.306 4.443
## [793] 3.961 5.718 3.168 4.960 3.168
data.frame(IH)
## IH
## 1 3.514
## 2 2.962
## 3 3.996
## 4 3.203
## 5 4.272
## 6 5.030
## 7 3.720
## 8 4.478
## 9 4.684
## 10 2.927
## 11 6.235
## 12 3.514
## 13 4.031
## 14 3.996
## 15 3.720
## 16 3.479
## 17 2.721
## 18 4.031
## 19 5.477
## 20 2.721
## 21 5.201
## 22 4.307
## 23 3.479
## 24 3.650
## 25 3.308
## 26 5.442
## 27 1.516
## 28 2.480
## 29 2.686
## 30 3.273
## 31 4.513
## 32 4.513
## 33 2.756
## 34 4.789
## 35 5.271
## 36 2.962
## 37 3.273
## 38 5.477
## 39 4.237
## 40 4.272
## 41 5.889
## 42 2.721
## 43 6.200
## 44 4.031
## 45 3.514
## 46 2.204
## 47 2.756
## 48 3.479
## 49 2.550
## 50 3.755
## 51 3.444
## 52 3.514
## 53 2.239
## 54 4.719
## 55 4.960
## 56 3.032
## 57 3.479
## 58 3.238
## 59 2.445
## 60 2.239
## 61 6.029
## 62 3.444
## 63 2.756
## 64 2.756
## 65 3.961
## 66 3.238
## 67 4.995
## 68 2.791
## 69 5.994
## 70 6.752
## 71 4.925
## 72 2.239
## 73 3.996
## 74 1.481
## 75 1.792
## 76 5.753
## 77 2.239
## 78 4.513
## 79 6.476
## 80 4.237
## 81 4.960
## 82 3.755
## 83 5.442
## 84 3.479
## 85 3.720
## 86 6.029
## 87 2.239
## 88 3.238
## 89 4.307
## 90 2.239
## 91 3.479
## 92 4.513
## 93 3.996
## 94 4.754
## 95 2.962
## 96 5.236
## 97 3.755
## 98 2.721
## 99 3.996
## 100 3.032
## 101 6.752
## 102 1.998
## 103 3.238
## 104 3.238
## 105 6.993
## 106 5.718
## 107 5.547
## 108 5.306
## 109 4.754
## 110 4.960
## 111 5.994
## 112 5.236
## 113 4.754
## 114 5.959
## 115 3.720
## 116 4.237
## 117 2.686
## 118 5.477
## 119 4.513
## 120 4.960
## 121 5.959
## 122 5.753
## 123 5.201
## 124 6.270
## 125 1.722
## 126 4.960
## 127 4.478
## 128 4.478
## 129 5.236
## 130 2.480
## 131 4.995
## 132 4.478
## 133 2.997
## 134 1.516
## 135 4.719
## 136 2.962
## 137 3.273
## 138 5.201
## 139 3.067
## 140 1.998
## 141 6.270
## 142 3.273
## 143 5.512
## 144 4.272
## 145 4.101
## 146 3.479
## 147 4.307
## 148 0.999
## 149 4.202
## 150 4.272
## 151 2.033
## 152 4.373
## 153 6.717
## 154 2.962
## 155 5.924
## 156 4.202
## 157 5.753
## 158 3.238
## 159 3.996
## 160 4.824
## 161 4.478
## 162 6.441
## 163 4.237
## 164 3.514
## 165 4.754
## 166 5.547
## 167 4.995
## 168 3.720
## 169 5.442
## 170 3.479
## 171 6.993
## 172 5.477
## 173 3.755
## 174 2.756
## 175 4.272
## 176 3.996
## 177 2.239
## 178 6.165
## 179 3.996
## 180 4.478
## 181 5.065
## 182 4.478
## 183 6.993
## 184 4.719
## 185 5.477
## 186 4.719
## 187 5.271
## 188 3.790
## 189 4.719
## 190 4.960
## 191 3.961
## 192 4.478
## 193 1.481
## 194 4.995
## 195 6.993
## 196 4.443
## 197 3.514
## 198 5.306
## 199 1.998
## 200 5.442
## 201 2.550
## 202 4.478
## 203 3.238
## 204 6.476
## 205 4.995
## 206 5.959
## 207 3.479
## 208 6.993
## 209 4.272
## 210 5.547
## 211 6.993
## 212 3.273
## 213 6.029
## 214 4.684
## 215 3.996
## 216 4.031
## 217 4.995
## 218 4.443
## 219 3.685
## 220 4.960
## 221 3.996
## 222 5.030
## 223 4.237
## 224 5.547
## 225 4.272
## 226 1.481
## 227 3.996
## 228 1.998
## 229 2.721
## 230 3.961
## 231 6.476
## 232 5.477
## 233 4.031
## 234 3.168
## 235 3.996
## 236 2.239
## 237 1.481
## 238 4.478
## 239 2.515
## 240 2.204
## 241 4.754
## 242 3.755
## 243 4.272
## 244 3.479
## 245 2.756
## 246 2.721
## 247 5.166
## 248 4.960
## 249 2.997
## 250 6.200
## 251 1.792
## 252 3.514
## 253 5.477
## 254 4.307
## 255 5.442
## 256 3.479
## 257 4.478
## 258 1.757
## 259 5.477
## 260 3.996
## 261 4.995
## 262 4.478
## 263 3.996
## 264 2.962
## 265 4.995
## 266 4.754
## 267 2.997
## 268 3.926
## 269 4.789
## 270 2.997
## 271 4.995
## 272 3.479
## 273 2.721
## 274 3.273
## 275 1.757
## 276 3.720
## 277 3.479
## 278 4.754
## 279 5.201
## 280 3.996
## 281 3.996
## 282 5.477
## 283 5.236
## 284 4.237
## 285 4.167
## 286 3.996
## 287 4.789
## 288 1.998
## 289 5.477
## 290 5.994
## 291 4.719
## 292 6.511
## 293 3.961
## 294 4.513
## 295 3.273
## 296 2.239
## 297 3.514
## 298 4.960
## 299 4.237
## 300 6.993
## 301 3.961
## 302 4.754
## 303 1.757
## 304 3.444
## 305 4.754
## 306 3.755
## 307 3.755
## 308 3.996
## 309 4.583
## 310 5.236
## 311 3.996
## 312 5.788
## 313 1.516
## 314 3.479
## 315 5.030
## 316 3.996
## 317 3.479
## 318 2.445
## 319 5.236
## 320 2.721
## 321 5.994
## 322 5.271
## 323 3.238
## 324 2.962
## 325 3.996
## 326 6.441
## 327 4.513
## 328 3.755
## 329 4.478
## 330 3.479
## 331 4.960
## 332 3.961
## 333 5.477
## 334 6.029
## 335 5.959
## 336 3.961
## 337 4.202
## 338 6.511
## 339 3.273
## 340 1.481
## 341 3.891
## 342 3.238
## 343 3.720
## 344 3.755
## 345 4.272
## 346 3.238
## 347 1.516
## 348 4.272
## 349 4.478
## 350 4.719
## 351 5.236
## 352 3.720
## 353 2.515
## 354 4.719
## 355 4.272
## 356 2.721
## 357 6.270
## 358 1.757
## 359 2.962
## 360 5.477
## 361 5.030
## 362 5.271
## 363 3.961
## 364 2.239
## 365 4.443
## 366 4.167
## 367 4.684
## 368 2.204
## 369 6.993
## 370 3.755
## 371 4.478
## 372 3.168
## 373 5.753
## 374 3.755
## 375 6.235
## 376 4.960
## 377 6.993
## 378 1.998
## 379 2.721
## 380 4.995
## 381 3.720
## 382 6.511
## 383 3.238
## 384 4.995
## 385 5.683
## 386 4.202
## 387 5.030
## 388 2.721
## 389 3.273
## 390 4.754
## 391 3.273
## 392 3.961
## 393 4.960
## 394 1.516
## 395 2.756
## 396 4.307
## 397 3.514
## 398 3.273
## 399 3.238
## 400 3.755
## 401 4.237
## 402 4.408
## 403 1.722
## 404 3.685
## 405 3.514
## 406 2.204
## 407 2.033
## 408 3.203
## 409 4.719
## 410 3.996
## 411 6.270
## 412 5.271
## 413 5.236
## 414 5.477
## 415 4.031
## 416 5.788
## 417 4.513
## 418 4.031
## 419 3.238
## 420 4.272
## 421 4.478
## 422 3.409
## 423 5.683
## 424 6.235
## 425 6.993
## 426 5.924
## 427 6.029
## 428 4.478
## 429 4.443
## 430 5.959
## 431 4.925
## 432 6.270
## 433 3.755
## 434 3.549
## 435 6.993
## 436 6.441
## 437 4.443
## 438 2.515
## 439 4.237
## 440 3.720
## 441 3.720
## 442 2.997
## 443 3.755
## 444 6.441
## 445 1.998
## 446 3.755
## 447 5.788
## 448 4.272
## 449 4.960
## 450 5.477
## 451 2.756
## 452 6.270
## 453 6.029
## 454 3.514
## 455 4.237
## 456 4.649
## 457 5.477
## 458 5.306
## 459 4.202
## 460 5.236
## 461 1.998
## 462 3.996
## 463 3.996
## 464 2.721
## 465 3.996
## 466 3.996
## 467 3.514
## 468 4.960
## 469 6.752
## 470 4.478
## 471 6.993
## 472 3.790
## 473 2.756
## 474 5.547
## 475 3.755
## 476 3.409
## 477 6.993
## 478 4.960
## 479 2.480
## 480 2.962
## 481 3.961
## 482 5.994
## 483 3.032
## 484 3.203
## 485 3.996
## 486 2.274
## 487 5.477
## 488 5.512
## 489 5.547
## 490 3.238
## 491 4.237
## 492 4.272
## 493 1.998
## 494 3.203
## 495 4.995
## 496 4.754
## 497 4.202
## 498 4.995
## 499 3.479
## 500 5.236
## 501 2.239
## 502 6.993
## 503 4.478
## 504 0.999
## 505 2.480
## 506 4.513
## 507 3.685
## 508 2.239
## 509 2.239
## 510 2.515
## 511 1.998
## 512 4.995
## 513 3.755
## 514 4.513
## 515 3.168
## 516 2.721
## 517 5.994
## 518 2.756
## 519 3.479
## 520 2.756
## 521 2.239
## 522 5.547
## 523 2.756
## 524 3.961
## 525 5.512
## 526 4.272
## 527 4.513
## 528 2.962
## 529 1.963
## 530 3.032
## 531 3.996
## 532 3.720
## 533 3.996
## 534 3.720
## 535 2.962
## 536 3.203
## 537 2.962
## 538 2.686
## 539 4.719
## 540 3.996
## 541 1.998
## 542 3.961
## 543 6.993
## 544 4.925
## 545 6.476
## 546 5.236
## 547 4.443
## 548 4.237
## 549 4.478
## 550 3.720
## 551 3.996
## 552 3.996
## 553 3.996
## 554 3.755
## 555 3.273
## 556 5.065
## 557 3.444
## 558 2.997
## 559 3.996
## 560 0.999
## 561 3.720
## 562 2.721
## 563 3.685
## 564 2.480
## 565 5.236
## 566 2.239
## 567 4.031
## 568 3.203
## 569 3.825
## 570 2.721
## 571 3.755
## 572 5.512
## 573 6.993
## 574 4.478
## 575 2.721
## 576 5.512
## 577 2.515
## 578 3.961
## 579 5.442
## 580 4.995
## 581 4.995
## 582 5.442
## 583 5.236
## 584 2.962
## 585 4.237
## 586 2.480
## 587 2.480
## 588 3.961
## 589 1.998
## 590 3.996
## 591 4.237
## 592 2.962
## 593 3.479
## 594 4.031
## 595 4.101
## 596 4.995
## 597 4.754
## 598 2.550
## 599 4.754
## 600 4.789
## 601 2.997
## 602 4.995
## 603 3.961
## 604 2.997
## 605 2.445
## 606 1.481
## 607 4.443
## 608 1.757
## 609 2.721
## 610 5.547
## 611 1.722
## 612 3.755
## 613 3.479
## 614 5.753
## 615 3.755
## 616 5.753
## 617 3.479
## 618 6.993
## 619 4.789
## 620 1.998
## 621 6.752
## 622 5.959
## 623 2.204
## 624 4.789
## 625 2.480
## 626 3.961
## 627 6.993
## 628 5.994
## 629 2.274
## 630 3.996
## 631 5.477
## 632 4.995
## 633 3.238
## 634 6.441
## 635 4.995
## 636 3.273
## 637 3.409
## 638 5.547
## 639 1.963
## 640 2.239
## 641 0.999
## 642 2.962
## 643 3.996
## 644 3.996
## 645 2.309
## 646 3.996
## 647 4.237
## 648 4.237
## 649 2.033
## 650 6.993
## 651 4.789
## 652 5.512
## 653 3.996
## 654 3.996
## 655 6.717
## 656 6.752
## 657 2.791
## 658 6.441
## 659 5.236
## 660 4.513
## 661 5.994
## 662 1.481
## 663 6.476
## 664 4.995
## 665 5.994
## 666 4.995
## 667 2.445
## 668 4.684
## 669 2.756
## 670 4.754
## 671 6.993
## 672 5.753
## 673 4.995
## 674 3.891
## 675 6.993
## 676 5.753
## 677 4.995
## 678 2.239
## 679 6.029
## 680 5.030
## 681 3.273
## 682 4.443
## 683 3.238
## 684 4.513
## 685 4.167
## 686 2.962
## 687 1.722
## 688 4.960
## 689 1.722
## 690 4.995
## 691 2.997
## 692 4.684
## 693 3.996
## 694 4.478
## 695 6.235
## 696 4.237
## 697 5.959
## 698 5.994
## 699 4.754
## 700 3.755
## 701 4.307
## 702 5.236
## 703 6.235
## 704 3.961
## 705 5.753
## 706 6.476
## 707 2.997
## 708 3.755
## 709 2.239
## 710 3.755
## 711 3.238
## 712 5.994
## 713 3.891
## 714 2.515
## 715 2.515
## 716 4.995
## 717 1.722
## 718 5.788
## 719 3.514
## 720 5.648
## 721 3.996
## 722 2.721
## 723 3.479
## 724 3.996
## 725 4.513
## 726 5.959
## 727 2.997
## 728 3.926
## 729 2.239
## 730 3.479
## 731 2.997
## 732 3.238
## 733 3.720
## 734 4.237
## 735 3.755
## 736 3.203
## 737 2.721
## 738 4.202
## 739 4.066
## 740 3.238
## 741 4.478
## 742 4.754
## 743 6.476
## 744 5.271
## 745 4.478
## 746 5.477
## 747 4.719
## 748 5.442
## 749 2.515
## 750 4.478
## 751 5.477
## 752 4.237
## 753 6.993
## 754 5.924
## 755 4.754
## 756 3.996
## 757 5.994
## 758 4.066
## 759 3.755
## 760 3.996
## 761 3.514
## 762 3.996
## 763 2.686
## 764 3.720
## 765 3.996
## 766 3.514
## 767 3.514
## 768 3.685
## 769 3.720
## 770 0.999
## 771 3.479
## 772 5.547
## 773 5.442
## 774 6.200
## 775 1.481
## 776 3.032
## 777 3.203
## 778 2.515
## 779 3.755
## 780 5.959
## 781 6.752
## 782 5.718
## 783 3.409
## 784 4.237
## 785 5.994
## 786 2.480
## 787 4.443
## 788 5.753
## 789 2.962
## 790 5.718
## 791 5.306
## 792 4.443
## 793 3.961
## 794 5.718
## 795 3.168
## 796 4.960
## 797 3.168
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans71=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans71)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 37.35 50.58 52.76 66.67 100.00
round(sd(IH_trans71),2)
## [1] 22.01
#hist(IH_trans7,col="azure2",xlab="IPSE",main = "Distribución de IPSE",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
#Datos=Cali[,-c(8:10,41,42)]
Datos=Cali[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 8:11) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(8:11)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:4])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 51.75175 50.00000 52.85285 51.16783 54.02069 50.58392 51.75175 50.00000
## [9] 50.58392 50.58392 50.00000 50.00000 50.00000 50.58392 50.58392 51.16783
## [17] 50.58392 50.58392 54.02069 52.85285 50.00000 50.58392 50.00000 50.00000
## [25] 50.58392 50.00000 53.43677 51.75175 50.58392 50.00000 50.00000 50.00000
## [33] 53.43677 50.00000 50.00000 50.00000 50.58392 50.58392 54.02069 53.43677
## [41] 50.00000 53.43677 50.00000 51.16783 50.00000 50.00000 50.58392 50.00000
## [49] 50.00000 50.58392 50.00000 50.58392 54.02069 53.43677 52.85285 50.00000
## [57] 50.00000 50.00000 50.58392 53.43677 50.58392 50.58392 50.00000 53.43677
## [65] 50.58392 51.16783 50.58392 50.00000 50.58392 51.75175 50.00000 50.58392
## [73] 50.58392 50.58392 53.43677 50.58392 53.43677 52.85285 50.58392 50.58392
## [81] 52.85285 51.75175 51.16783 50.00000 50.58392 54.02069 53.43677 50.00000
## [89] 50.58392 50.58392 51.75175 50.58392 50.00000 50.00000 50.00000 50.00000
## [97] 51.16783 50.00000 51.75175 52.85285 50.00000 50.00000 50.00000 54.02069
## [105] 54.02069 50.00000 50.58392 53.43677 50.58392 50.58392 50.58392 51.16783
## [113] 50.00000 50.00000 53.43677 50.00000 53.43677 50.00000 50.00000 50.00000
## [121] 50.00000 50.00000 53.43677 50.00000 52.85285 50.58392 50.00000 50.58392
## [129] 51.16783 50.00000 50.00000 53.43677 50.00000 50.00000 50.58392 50.00000
## [137] 50.58392 54.02069 50.00000 52.85285 51.75175 50.00000 50.00000 50.00000
## [145] 50.00000 50.58392 51.75175 50.58392 50.00000 50.00000 51.75175 50.58392
## [153] 52.85285 52.85285 50.58392 50.00000 51.75175 50.58392 50.00000 50.58392
## [161] 50.00000 51.75175 50.00000 52.85285 50.58392 50.58392 50.58392 51.75175
## [169] 54.02069 54.02069 50.00000 50.00000 51.75175 50.58392 50.00000 50.58392
## [177] 50.00000 50.00000 50.00000 52.85285 50.00000 50.00000 53.43677 50.00000
## [185] 50.58392 50.00000 50.00000 50.00000 50.00000 50.00000 51.75175 50.00000
## [193] 50.00000 52.85285 50.58392 50.58392 50.00000 52.85285 50.00000 50.58392
## [201] 53.43677 50.00000 53.43677 54.02069 52.85285 51.75175 50.00000 53.43677
## [209] 53.43677 50.00000 54.02069 54.02069 50.00000 50.58392 50.00000 50.00000
## [217] 50.00000 50.00000 50.58392 50.58392 51.16783 50.58392 53.43677 50.00000
## [225] 50.00000 54.02069 50.58392 50.00000 53.43677 50.00000 50.00000 50.58392
## [233] 50.00000 52.85285 53.43677 50.00000 51.75175 51.75175 52.85285 50.00000
## [241] 50.00000 53.43677 50.00000 50.58392 51.75175 50.00000 50.00000 51.16783
## [249] 50.00000 50.58392 50.00000 52.85285 53.43677 50.00000 50.00000 50.00000
## [257] 50.58392 51.75175 52.85285 50.00000 50.00000 50.58392 50.00000 50.00000
## [265] 50.58392 50.00000 53.43677 51.16783 50.00000 50.00000 50.00000 51.16783
## [273] 50.00000 50.00000 50.58392 50.00000 50.00000 50.00000 50.00000 50.00000
## [281] 50.00000 50.58392 50.00000 50.00000 50.00000 50.00000 54.02069 50.58392
## [289] 50.00000 50.00000 50.00000 54.02069 50.58392 50.58392 50.00000 53.43677
## [297] 51.16783 51.16783 53.43677 50.58392 50.00000 50.58392 51.75175 52.85285
## [305] 50.58392 50.00000 50.00000 53.43677 53.43677 50.00000 50.00000 50.58392
## [313] 50.58392 50.00000 50.58392 50.00000 50.00000 50.58392 50.58392 50.58392
## [321] 51.75175 50.00000 52.85285 50.58392 54.02069 52.85285 50.58392 52.85285
## [329] 50.58392 50.00000 53.43677 50.00000 50.58392 50.58392 50.00000 54.02069
## [337] 50.58392 50.58392 51.16783 50.00000 54.02069 50.00000 50.00000 54.02069
## [345] 50.58392 50.00000 50.00000 52.85285 53.43677 52.85285 50.58392 50.00000
## [353] 50.00000 50.00000 51.16783 50.58392 50.00000 50.00000 50.00000 53.43677
## [361] 52.85285 50.00000 54.02069 51.75175 50.58392 50.00000 50.00000 50.58392
## [369] 50.00000 50.00000 50.00000 51.16783 51.75175 51.16783 50.58392 51.16783
## [377] 50.58392 50.00000 50.00000 52.85285 52.85285 50.58392 53.43677 50.00000
## [385] 52.85285 50.00000 50.00000 50.00000 50.58392 50.58392 50.58392 51.16783
## [393] 50.58392 50.00000 50.00000 50.00000 50.58392 50.58392 50.00000 51.75175
## [401] 50.00000 50.58392 50.58392 50.00000 54.02069 50.00000 54.02069 52.85285
## [409] 50.58392 53.43677 51.75175 53.43677 50.58392 50.58392 51.75175 50.00000
## [417] 54.02069 54.02069 50.00000 50.00000 51.75175 50.58392 50.58392 50.00000
## [425] 50.00000 50.00000 50.58392 52.85285 53.43677 53.43677 50.00000 50.00000
## [433] 50.00000 50.00000 50.00000 50.58392 50.00000 50.58392 54.60460 50.00000
## [441] 51.16783 52.85285 50.58392 52.85285 50.00000 50.00000 50.00000 50.58392
## [449] 51.75175 54.02069 52.85285 50.00000 50.58392 53.43677 50.00000 50.00000
## [457] 50.00000 53.43677 50.00000 50.00000 51.75175 50.00000 51.75175 50.58392
## [465] 51.16783 50.00000 50.00000 50.58392 50.00000 50.58392 50.00000 51.75175
## [473] 54.60460 51.75175 50.58392 50.00000 51.75175 51.75175 50.00000 50.00000
## [481] 50.00000 50.58392 50.58392 50.58392 51.75175 50.58392 51.75175 50.00000
## [489] 50.00000 54.02069 50.00000 50.58392 53.43677 50.00000 50.58392 50.00000
## [497] 53.43677 50.00000 53.43677 50.00000 50.00000 50.58392 50.58392 54.02069
## [505] 53.43677 54.02069 50.00000 50.58392 50.00000 50.00000 51.75175 51.16783
## [513] 51.75175 50.00000 51.16783 50.00000 50.58392 50.00000 51.75175 53.43677
## [521] 50.00000 52.85285 50.58392 50.00000 50.00000 50.00000 50.58392 50.00000
## [529] 51.16783 50.00000 50.58392 50.00000 52.85285 51.75175 51.16783 50.00000
## [537] 52.85285 51.75175 50.00000 50.00000 51.16783 50.00000 50.58392 54.02069
## [545] 50.00000 53.43677 50.00000 50.00000 50.58392 50.58392 53.43677 50.00000
## [553] 50.00000 50.00000 50.00000 50.58392 50.00000 50.00000 50.00000 50.00000
## [561] 52.85285 50.00000 50.58392 50.58392 53.43677 53.43677 50.58392 50.58392
## [569] 50.00000 50.00000 50.58392 50.58392 54.02069 50.00000 53.43677 54.02069
## [577] 54.02069 50.58392 54.02069 50.58392 50.00000 50.00000 50.00000 50.00000
## [585] 50.00000 50.58392 50.00000 50.00000 53.43677 52.85285 50.00000 53.43677
## [593] 53.43677 50.00000 50.00000 54.02069 50.00000 53.43677 53.43677 50.00000
## [601] 51.16783 51.16783 52.85285 50.00000 50.58392 52.85285 51.16783 51.16783
## [609] 51.75175 54.02069 50.00000 50.00000 53.43677 50.00000 53.43677 50.00000
## [617] 50.00000 53.43677 50.00000 50.58392 50.58392 50.58392 50.00000 50.00000
## [625] 51.75175 50.58392 50.00000 53.43677 50.58392 50.58392 52.85285 53.43677
## [633] 51.16783 50.58392 53.43677 50.00000 50.00000 54.02069 50.00000 54.02069
## [641] 52.85285 53.43677 50.00000 50.58392 50.00000 50.58392 50.58392 50.00000
## [649] 54.02069 50.58392 54.02069 50.00000 54.02069 54.02069 50.58392 50.00000
## [657] 50.58392 50.00000 50.58392 50.00000 53.43677 50.58392 50.00000 50.00000
## [665] 50.58392 53.43677 52.85285 53.43677 51.75175 53.43677 50.00000 53.43677
## [673] 50.58392 53.43677 50.00000 52.85285 54.02069 52.85285 50.58392 54.02069
## [681] 50.00000 50.00000 50.58392 52.85285 50.00000 50.00000 50.58392 50.00000
## [689] 50.00000 50.00000 50.00000 50.00000 54.02069 50.00000 50.00000 50.00000
## [697] 50.00000 50.58392 51.75175 50.00000 52.85285 54.02069 50.00000 51.75175
## [705] 50.00000 54.02069 50.58392 50.00000 50.58392 50.00000 52.85285 50.00000
## [713] 53.43677 50.00000 52.85285 50.00000 50.58392 54.02069 51.75175 50.00000
## [721] 50.58392 50.00000 53.43677 50.00000 50.58392 53.43677 50.58392 50.00000
## [729] 50.58392 53.43677 53.43677 50.00000 50.00000 50.00000 50.00000 54.02069
## [737] 53.43677 50.00000 51.75175 52.85285 50.58392 50.00000 52.85285 50.00000
## [745] 50.58392 54.02069 50.00000 50.00000 52.85285 50.00000 52.85285 53.43677
## [753] 50.00000 51.16783 50.00000 51.75175 50.58392 50.00000 50.00000 50.00000
## [761] 50.00000 50.58392 51.16783 53.43677 50.00000 54.02069 50.00000 53.43677
## [769] 53.43677 51.75175 50.00000 50.00000 53.43677 50.58392 50.58392 50.00000
## [777] 50.58392 50.00000 54.02069 50.58392 50.00000 50.00000 50.00000 51.75175
## [785] 50.00000 50.00000 50.00000 50.00000 50.00000 50.00000 51.75175 54.02069
## [793] 50.00000 54.02069 50.00000 53.43677 50.00000 54.02069 51.75175 50.00000
## [801] 53.43677 50.00000 50.58392 50.00000 51.75175 50.00000 50.00000 50.58392
## [809] 50.00000 50.00000 51.16783 54.02069 54.02069 51.16783 50.58392 50.00000
## [817] 50.00000 54.02069 52.85285 50.58392 50.58392 50.58392 50.00000 54.02069
## [825] 51.75175 51.75175 50.58392 50.58392 50.58392 50.00000 50.00000 50.58392
## [833] 50.00000 52.85285 50.00000 50.00000 50.00000 51.75175 50.00000 50.58392
## [841] 50.00000 50.00000 54.02069 52.85285 52.85285 50.58392 54.02069 50.00000
## [849] 53.43677 50.00000 53.43677 50.00000 53.43677 50.00000 54.02069 50.00000
## [857] 51.75175 50.00000 50.00000 53.43677 52.85285 50.58392 52.85285 50.00000
## [865] 50.58392 51.16783 50.58392 50.00000 50.58392 51.16783 51.16783 50.58392
## [873] 50.00000 50.00000 50.58392 53.43677 50.58392 50.58392 50.00000 50.00000
## [881] 50.00000 50.00000 50.00000 53.43677 50.58392 50.00000 53.43677 50.00000
## [889] 50.00000 51.75175 52.85285 50.00000 54.02069 50.00000 50.00000 50.00000
## [897] 50.00000 50.58392 53.43677 50.00000 52.85285 50.00000 50.00000 50.58392
## [905] 50.58392 50.58392 50.00000 50.00000 50.58392 51.16783 50.00000 53.43677
## [913] 50.00000 50.00000 54.02069 50.58392 50.58392 50.58392 50.00000 51.75175
## [921] 50.58392 54.02069 50.00000 50.00000 50.00000 50.00000 50.00000 50.58392
## [929] 50.58392 50.00000 50.00000 52.85285 53.43677 51.16783 50.58392 51.75175
## [937] 53.43677 50.00000 53.43677 51.75175 50.00000 50.00000 53.43677 50.00000
## [945] 50.00000 51.75175 50.00000 50.00000 50.00000 50.58392 53.43677 50.00000
## [953] 50.58392 53.43677 50.00000 50.00000 54.02069 50.00000 50.00000 50.00000
## [961] 53.43677 54.02069 50.58392 50.58392 53.43677 50.00000 50.00000 50.58392
## [969] 52.85285 51.16783 50.58392 54.02069 50.00000 50.58392 50.58392 50.00000
## [977] 50.58392 50.00000 50.00000 50.58392 50.00000 50.58392 50.58392 50.00000
## [985] 50.58392 54.02069 50.00000 50.00000 50.00000 53.43677 50.58392 50.58392
## [993] 50.00000 50.00000 50.58392 50.00000 50.00000 50.00000 50.58392 51.16783
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
#I_ref=50.60
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans71))^2+(median(NfinalMedia)-median(IH_trans71))^2,2);EE
## [1] 272.94
SUSCEPTIBILIDAD
#--------------------------------susceptibilidad-----------------------------------
#susceptibilidad=Datos[,c(27:31)]*pesos[c(27:31)];susceptibilidad
temp_K<-c()
lista_vacia <- vector("list", length = 797)
celsius_to_kelvin <- function(temp_C) {
for (i in 12:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(12:16)]
}
return(datosnew)
};susceptibilidad=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(susceptibilidad[ ,1:5]);IH
## [1] 4.356 3.618 6.908 7.537 8.978 10.800 4.085 6.275 2.957 3.618
## [11] 8.073 5.277 8.467 11.616 5.400 8.376 3.618 6.236 9.169 4.110
## [21] 7.236 1.727 5.017 4.056 8.541 3.454 2.260 8.102 4.855 5.673
## [31] 8.510 8.909 5.140 10.490 9.399 3.618 7.043 9.868 11.527 3.178
## [41] 8.287 5.751 2.711 9.839 7.345 2.194 4.224 5.110 5.183 6.909
## [51] 4.274 3.782 5.012 8.799 5.771 4.110 4.413 5.345 3.595 5.152
## [61] 11.211 5.753 2.522 3.454 5.946 6.479 9.073 6.673 12.498 9.569
## [71] 5.181 3.454 6.345 2.055 3.481 6.908 7.552 8.346 12.089 6.908
## [81] 8.963 5.509 7.072 5.523 4.249 9.963 4.345 3.618 8.838 5.673
## [91] 6.908 6.045 6.345 8.948 5.482 8.072 5.619 3.151 4.315 5.648
## [101] 8.635 3.454 5.181 4.880 12.527 8.539 11.994 12.965 8.376 7.072
## [111] 9.073 9.636 6.879 9.237 4.851 4.208 2.891 5.181 5.812 7.072
## [121] 10.030 10.029 7.400 5.842 2.358 6.908 11.964 7.799 8.799 4.768
## [131] 9.606 7.813 10.964 4.384 8.346 3.618 5.619 9.949 5.345 3.618
## [141] 12.498 8.799 9.511 7.865 1.727 4.921 7.118 1.727 5.673 5.151
## [151] 3.711 1.727 11.031 7.774 11.771 4.878 5.673 6.466 7.346 14.279
## [161] 5.315 12.965 7.784 6.908 8.112 13.403 5.509 5.714 7.182 4.249
## [171] 12.965 10.306 5.181 4.658 5.644 4.879 3.454 4.224 7.510 7.948
## [181] 10.192 4.274 12.527 3.454 8.635 7.304 4.425 7.537 8.963 4.947
## [191] 5.744 6.375 2.165 4.274 12.089 3.782 7.510 9.089 3.958 3.454
## [201] 5.617 4.085 5.619 8.799 6.812 7.837 3.648 5.978 5.181 9.839
## [211] 9.993 5.046 7.072 5.249 6.974 7.977 6.908 11.925 3.892 8.430
## [221] 7.170 5.715 6.746 5.837 8.784 4.480 6.908 6.578 3.454 6.908
## [231] 11.238 7.384 8.758 11.238 7.375 3.454 2.891 5.812 5.220 1.727
## [241] 4.782 5.840 7.977 4.618 6.221 2.686 4.891 8.111 6.057 7.867
## [251] 4.716 4.345 7.072 9.527 7.774 6.018 6.275 3.454 8.577 7.236
## [261] 9.073 4.315 8.511 3.921 4.552 4.413 5.181 5.151 10.742 5.152
## [271] 9.839 5.947 2.055 3.946 5.625 7.072 6.345 8.266 8.963 6.908
## [281] 5.345 6.345 7.346 6.220 2.957 5.509 10.800 3.921 8.072 7.539
## [291] 8.799 5.673 3.618 8.385 4.181 3.618 5.345 4.151 8.540 11.105
## [301] 4.878 6.012 1.727 2.891 8.635 6.576 6.221 7.004 9.152 8.865
## [311] 6.908 10.964 6.110 3.618 3.149 10.362 5.509 1.727 9.266 3.454
## [321] 7.838 5.454 4.056 3.454 6.783 8.635 6.838 4.714 6.509 5.673
## [331] 8.153 7.510 6.742 11.402 6.471 3.618 6.181 8.838 6.152 1.727
## [341] 3.290 5.345 5.673 3.782 6.946 3.178 3.855 7.346 7.072 7.539
## [351] 8.540 7.182 5.716 5.345 7.072 3.618 10.527 5.485 4.274 11.597
## [361] 7.838 10.964 4.274 3.383 5.345 4.110 10.925 1.727 7.346 4.552
## [371] 6.908 3.454 10.237 7.867 11.676 7.581 4.925 3.454 2.892 8.346
## [381] 7.510 13.841 4.783 10.103 5.837 5.619 11.677 2.358 5.509 4.274
## [391] 5.813 2.891 5.509 2.850 5.345 4.315 5.181 6.837 5.345 3.921
## [401] 7.635 3.859 4.056 3.014 6.304 1.727 5.274 2.892 7.400 6.908
## [411] 11.556 9.607 3.892 5.078 10.074 9.431 8.704 7.867 3.987 9.151
## [421] 6.074 2.793 8.278 7.838 10.556 6.140 7.311 7.908 6.974 4.183
## [431] 8.577 10.935 6.304 5.782 12.527 11.401 8.320 5.782 5.183 3.454
## [441] 4.479 4.318 9.675 12.965 8.471 5.837 12.432 10.304 9.237 10.416
## [451] 4.880 10.497 13.841 6.908 6.908 9.073 8.236 12.965 5.703 9.570
## [461] 3.892 6.908 6.168 5.086 6.908 7.346 5.017 5.589 11.526 5.976
## [471] 12.527 8.468 5.181 12.965 3.618 3.099 11.994 8.140 3.946 6.580
## [481] 4.181 8.963 9.015 5.619 5.783 2.358 9.988 9.511 10.362 5.345
## [491] 7.741 6.908 3.454 2.891 7.072 7.346 10.142 8.606 5.714 7.703
## [501] 3.454 8.371 9.237 7.490 6.370 5.085 7.236 5.455 4.619 3.946
## [511] 4.274 9.262 6.908 6.495 3.454 4.315 8.909 4.946 6.553 5.345
## [521] 4.548 11.564 4.056 3.454 7.481 6.277 8.909 3.454 5.017 8.454
## [531] 6.509 3.454 5.509 5.744 7.842 3.892 3.454 3.165 8.073 4.812
## [541] 4.388 5.345 10.800 3.315 9.168 8.222 6.908 10.089 7.731 4.413
## [551] 6.783 7.838 8.412 2.727 5.619 11.238 2.891 4.812 7.784 1.891
## [561] 5.619 4.922 3.988 3.454 8.102 4.716 9.511 1.891 7.511 3.454
## [571] 5.181 9.675 5.909 6.837 2.752 5.918 7.182 5.181 7.177 5.908
## [581] 5.673 5.110 8.266 4.824 3.618 5.176 3.454 5.619 1.891 7.004
## [591] 5.345 3.454 7.346 7.540 8.274 7.510 4.946 3.916 6.383 7.674
## [601] 9.072 3.454 5.648 4.853 2.165 1.891 3.618 3.618 8.552 11.840
## [611] 1.727 5.181 7.375 8.865 7.813 9.073 2.055 10.839 8.702 3.454
## [621] 12.965 7.918 1.727 4.848 5.346 8.221 3.782 9.237 3.782 6.715
## [631] 7.400 7.155 4.618 7.605 5.384 6.153 1.891 10.034 3.727 3.085
## [641] 1.727 3.862 7.784 7.346 4.986 5.976 7.346 5.181 3.454 12.965
## [651] 11.402 8.635 6.908 5.783 5.376 12.552 8.347 7.400 7.072 3.618
## [661] 7.908 4.166 11.925 3.618 9.963 7.072 5.999 7.018 3.454 6.211
## [671] 12.089 10.208 7.236 3.727 8.507 4.741 5.181 2.260 12.965 8.236
## [681] 10.963 6.250 6.908 8.415 8.635 5.181 2.424 7.043 2.165 5.110
## [691] 3.711 5.345 5.908 4.946 6.908 7.207 9.949 9.073 9.800 4.461
## [701] 5.450 3.055 4.807 7.539 14.279 8.276 6.849 4.548 3.454 6.509
## [711] 5.619 8.605 2.165 4.359 5.837 6.908 3.454 5.711 7.072 4.153
## [721] 6.703 4.085 5.509 7.043 6.345 6.807 5.181 4.274 4.220 5.181
## [731] 3.946 6.206 3.618 10.636 7.838 3.454 3.249 4.056 8.963 6.181
## [741] 6.837 8.948 8.466 10.208 8.511 8.963 4.085 17.291 7.346 7.072
## [751] 7.509 8.909 11.059 11.238 7.236 3.782 10.935 8.963 6.446 7.236
## [761] 7.784 6.250 2.957 4.455 8.674 3.946 6.908 5.892 6.275 2.260
## [771] 7.838 10.838 8.635 8.963 1.727 7.649 4.249 4.056 5.619 6.908
## [781] 8.635 4.274 5.544 5.345 12.268 4.017 6.908 5.837 2.194 9.081
## [791] 5.951 5.056 9.237 9.073 4.274 10.732 4.812
data.frame(IH)
## IH
## 1 4.356
## 2 3.618
## 3 6.908
## 4 7.537
## 5 8.978
## 6 10.800
## 7 4.085
## 8 6.275
## 9 2.957
## 10 3.618
## 11 8.073
## 12 5.277
## 13 8.467
## 14 11.616
## 15 5.400
## 16 8.376
## 17 3.618
## 18 6.236
## 19 9.169
## 20 4.110
## 21 7.236
## 22 1.727
## 23 5.017
## 24 4.056
## 25 8.541
## 26 3.454
## 27 2.260
## 28 8.102
## 29 4.855
## 30 5.673
## 31 8.510
## 32 8.909
## 33 5.140
## 34 10.490
## 35 9.399
## 36 3.618
## 37 7.043
## 38 9.868
## 39 11.527
## 40 3.178
## 41 8.287
## 42 5.751
## 43 2.711
## 44 9.839
## 45 7.345
## 46 2.194
## 47 4.224
## 48 5.110
## 49 5.183
## 50 6.909
## 51 4.274
## 52 3.782
## 53 5.012
## 54 8.799
## 55 5.771
## 56 4.110
## 57 4.413
## 58 5.345
## 59 3.595
## 60 5.152
## 61 11.211
## 62 5.753
## 63 2.522
## 64 3.454
## 65 5.946
## 66 6.479
## 67 9.073
## 68 6.673
## 69 12.498
## 70 9.569
## 71 5.181
## 72 3.454
## 73 6.345
## 74 2.055
## 75 3.481
## 76 6.908
## 77 7.552
## 78 8.346
## 79 12.089
## 80 6.908
## 81 8.963
## 82 5.509
## 83 7.072
## 84 5.523
## 85 4.249
## 86 9.963
## 87 4.345
## 88 3.618
## 89 8.838
## 90 5.673
## 91 6.908
## 92 6.045
## 93 6.345
## 94 8.948
## 95 5.482
## 96 8.072
## 97 5.619
## 98 3.151
## 99 4.315
## 100 5.648
## 101 8.635
## 102 3.454
## 103 5.181
## 104 4.880
## 105 12.527
## 106 8.539
## 107 11.994
## 108 12.965
## 109 8.376
## 110 7.072
## 111 9.073
## 112 9.636
## 113 6.879
## 114 9.237
## 115 4.851
## 116 4.208
## 117 2.891
## 118 5.181
## 119 5.812
## 120 7.072
## 121 10.030
## 122 10.029
## 123 7.400
## 124 5.842
## 125 2.358
## 126 6.908
## 127 11.964
## 128 7.799
## 129 8.799
## 130 4.768
## 131 9.606
## 132 7.813
## 133 10.964
## 134 4.384
## 135 8.346
## 136 3.618
## 137 5.619
## 138 9.949
## 139 5.345
## 140 3.618
## 141 12.498
## 142 8.799
## 143 9.511
## 144 7.865
## 145 1.727
## 146 4.921
## 147 7.118
## 148 1.727
## 149 5.673
## 150 5.151
## 151 3.711
## 152 1.727
## 153 11.031
## 154 7.774
## 155 11.771
## 156 4.878
## 157 5.673
## 158 6.466
## 159 7.346
## 160 14.279
## 161 5.315
## 162 12.965
## 163 7.784
## 164 6.908
## 165 8.112
## 166 13.403
## 167 5.509
## 168 5.714
## 169 7.182
## 170 4.249
## 171 12.965
## 172 10.306
## 173 5.181
## 174 4.658
## 175 5.644
## 176 4.879
## 177 3.454
## 178 4.224
## 179 7.510
## 180 7.948
## 181 10.192
## 182 4.274
## 183 12.527
## 184 3.454
## 185 8.635
## 186 7.304
## 187 4.425
## 188 7.537
## 189 8.963
## 190 4.947
## 191 5.744
## 192 6.375
## 193 2.165
## 194 4.274
## 195 12.089
## 196 3.782
## 197 7.510
## 198 9.089
## 199 3.958
## 200 3.454
## 201 5.617
## 202 4.085
## 203 5.619
## 204 8.799
## 205 6.812
## 206 7.837
## 207 3.648
## 208 5.978
## 209 5.181
## 210 9.839
## 211 9.993
## 212 5.046
## 213 7.072
## 214 5.249
## 215 6.974
## 216 7.977
## 217 6.908
## 218 11.925
## 219 3.892
## 220 8.430
## 221 7.170
## 222 5.715
## 223 6.746
## 224 5.837
## 225 8.784
## 226 4.480
## 227 6.908
## 228 6.578
## 229 3.454
## 230 6.908
## 231 11.238
## 232 7.384
## 233 8.758
## 234 11.238
## 235 7.375
## 236 3.454
## 237 2.891
## 238 5.812
## 239 5.220
## 240 1.727
## 241 4.782
## 242 5.840
## 243 7.977
## 244 4.618
## 245 6.221
## 246 2.686
## 247 4.891
## 248 8.111
## 249 6.057
## 250 7.867
## 251 4.716
## 252 4.345
## 253 7.072
## 254 9.527
## 255 7.774
## 256 6.018
## 257 6.275
## 258 3.454
## 259 8.577
## 260 7.236
## 261 9.073
## 262 4.315
## 263 8.511
## 264 3.921
## 265 4.552
## 266 4.413
## 267 5.181
## 268 5.151
## 269 10.742
## 270 5.152
## 271 9.839
## 272 5.947
## 273 2.055
## 274 3.946
## 275 5.625
## 276 7.072
## 277 6.345
## 278 8.266
## 279 8.963
## 280 6.908
## 281 5.345
## 282 6.345
## 283 7.346
## 284 6.220
## 285 2.957
## 286 5.509
## 287 10.800
## 288 3.921
## 289 8.072
## 290 7.539
## 291 8.799
## 292 5.673
## 293 3.618
## 294 8.385
## 295 4.181
## 296 3.618
## 297 5.345
## 298 4.151
## 299 8.540
## 300 11.105
## 301 4.878
## 302 6.012
## 303 1.727
## 304 2.891
## 305 8.635
## 306 6.576
## 307 6.221
## 308 7.004
## 309 9.152
## 310 8.865
## 311 6.908
## 312 10.964
## 313 6.110
## 314 3.618
## 315 3.149
## 316 10.362
## 317 5.509
## 318 1.727
## 319 9.266
## 320 3.454
## 321 7.838
## 322 5.454
## 323 4.056
## 324 3.454
## 325 6.783
## 326 8.635
## 327 6.838
## 328 4.714
## 329 6.509
## 330 5.673
## 331 8.153
## 332 7.510
## 333 6.742
## 334 11.402
## 335 6.471
## 336 3.618
## 337 6.181
## 338 8.838
## 339 6.152
## 340 1.727
## 341 3.290
## 342 5.345
## 343 5.673
## 344 3.782
## 345 6.946
## 346 3.178
## 347 3.855
## 348 7.346
## 349 7.072
## 350 7.539
## 351 8.540
## 352 7.182
## 353 5.716
## 354 5.345
## 355 7.072
## 356 3.618
## 357 10.527
## 358 5.485
## 359 4.274
## 360 11.597
## 361 7.838
## 362 10.964
## 363 4.274
## 364 3.383
## 365 5.345
## 366 4.110
## 367 10.925
## 368 1.727
## 369 7.346
## 370 4.552
## 371 6.908
## 372 3.454
## 373 10.237
## 374 7.867
## 375 11.676
## 376 7.581
## 377 4.925
## 378 3.454
## 379 2.892
## 380 8.346
## 381 7.510
## 382 13.841
## 383 4.783
## 384 10.103
## 385 5.837
## 386 5.619
## 387 11.677
## 388 2.358
## 389 5.509
## 390 4.274
## 391 5.813
## 392 2.891
## 393 5.509
## 394 2.850
## 395 5.345
## 396 4.315
## 397 5.181
## 398 6.837
## 399 5.345
## 400 3.921
## 401 7.635
## 402 3.859
## 403 4.056
## 404 3.014
## 405 6.304
## 406 1.727
## 407 5.274
## 408 2.892
## 409 7.400
## 410 6.908
## 411 11.556
## 412 9.607
## 413 3.892
## 414 5.078
## 415 10.074
## 416 9.431
## 417 8.704
## 418 7.867
## 419 3.987
## 420 9.151
## 421 6.074
## 422 2.793
## 423 8.278
## 424 7.838
## 425 10.556
## 426 6.140
## 427 7.311
## 428 7.908
## 429 6.974
## 430 4.183
## 431 8.577
## 432 10.935
## 433 6.304
## 434 5.782
## 435 12.527
## 436 11.401
## 437 8.320
## 438 5.782
## 439 5.183
## 440 3.454
## 441 4.479
## 442 4.318
## 443 9.675
## 444 12.965
## 445 8.471
## 446 5.837
## 447 12.432
## 448 10.304
## 449 9.237
## 450 10.416
## 451 4.880
## 452 10.497
## 453 13.841
## 454 6.908
## 455 6.908
## 456 9.073
## 457 8.236
## 458 12.965
## 459 5.703
## 460 9.570
## 461 3.892
## 462 6.908
## 463 6.168
## 464 5.086
## 465 6.908
## 466 7.346
## 467 5.017
## 468 5.589
## 469 11.526
## 470 5.976
## 471 12.527
## 472 8.468
## 473 5.181
## 474 12.965
## 475 3.618
## 476 3.099
## 477 11.994
## 478 8.140
## 479 3.946
## 480 6.580
## 481 4.181
## 482 8.963
## 483 9.015
## 484 5.619
## 485 5.783
## 486 2.358
## 487 9.988
## 488 9.511
## 489 10.362
## 490 5.345
## 491 7.741
## 492 6.908
## 493 3.454
## 494 2.891
## 495 7.072
## 496 7.346
## 497 10.142
## 498 8.606
## 499 5.714
## 500 7.703
## 501 3.454
## 502 8.371
## 503 9.237
## 504 7.490
## 505 6.370
## 506 5.085
## 507 7.236
## 508 5.455
## 509 4.619
## 510 3.946
## 511 4.274
## 512 9.262
## 513 6.908
## 514 6.495
## 515 3.454
## 516 4.315
## 517 8.909
## 518 4.946
## 519 6.553
## 520 5.345
## 521 4.548
## 522 11.564
## 523 4.056
## 524 3.454
## 525 7.481
## 526 6.277
## 527 8.909
## 528 3.454
## 529 5.017
## 530 8.454
## 531 6.509
## 532 3.454
## 533 5.509
## 534 5.744
## 535 7.842
## 536 3.892
## 537 3.454
## 538 3.165
## 539 8.073
## 540 4.812
## 541 4.388
## 542 5.345
## 543 10.800
## 544 3.315
## 545 9.168
## 546 8.222
## 547 6.908
## 548 10.089
## 549 7.731
## 550 4.413
## 551 6.783
## 552 7.838
## 553 8.412
## 554 2.727
## 555 5.619
## 556 11.238
## 557 2.891
## 558 4.812
## 559 7.784
## 560 1.891
## 561 5.619
## 562 4.922
## 563 3.988
## 564 3.454
## 565 8.102
## 566 4.716
## 567 9.511
## 568 1.891
## 569 7.511
## 570 3.454
## 571 5.181
## 572 9.675
## 573 5.909
## 574 6.837
## 575 2.752
## 576 5.918
## 577 7.182
## 578 5.181
## 579 7.177
## 580 5.908
## 581 5.673
## 582 5.110
## 583 8.266
## 584 4.824
## 585 3.618
## 586 5.176
## 587 3.454
## 588 5.619
## 589 1.891
## 590 7.004
## 591 5.345
## 592 3.454
## 593 7.346
## 594 7.540
## 595 8.274
## 596 7.510
## 597 4.946
## 598 3.916
## 599 6.383
## 600 7.674
## 601 9.072
## 602 3.454
## 603 5.648
## 604 4.853
## 605 2.165
## 606 1.891
## 607 3.618
## 608 3.618
## 609 8.552
## 610 11.840
## 611 1.727
## 612 5.181
## 613 7.375
## 614 8.865
## 615 7.813
## 616 9.073
## 617 2.055
## 618 10.839
## 619 8.702
## 620 3.454
## 621 12.965
## 622 7.918
## 623 1.727
## 624 4.848
## 625 5.346
## 626 8.221
## 627 3.782
## 628 9.237
## 629 3.782
## 630 6.715
## 631 7.400
## 632 7.155
## 633 4.618
## 634 7.605
## 635 5.384
## 636 6.153
## 637 1.891
## 638 10.034
## 639 3.727
## 640 3.085
## 641 1.727
## 642 3.862
## 643 7.784
## 644 7.346
## 645 4.986
## 646 5.976
## 647 7.346
## 648 5.181
## 649 3.454
## 650 12.965
## 651 11.402
## 652 8.635
## 653 6.908
## 654 5.783
## 655 5.376
## 656 12.552
## 657 8.347
## 658 7.400
## 659 7.072
## 660 3.618
## 661 7.908
## 662 4.166
## 663 11.925
## 664 3.618
## 665 9.963
## 666 7.072
## 667 5.999
## 668 7.018
## 669 3.454
## 670 6.211
## 671 12.089
## 672 10.208
## 673 7.236
## 674 3.727
## 675 8.507
## 676 4.741
## 677 5.181
## 678 2.260
## 679 12.965
## 680 8.236
## 681 10.963
## 682 6.250
## 683 6.908
## 684 8.415
## 685 8.635
## 686 5.181
## 687 2.424
## 688 7.043
## 689 2.165
## 690 5.110
## 691 3.711
## 692 5.345
## 693 5.908
## 694 4.946
## 695 6.908
## 696 7.207
## 697 9.949
## 698 9.073
## 699 9.800
## 700 4.461
## 701 5.450
## 702 3.055
## 703 4.807
## 704 7.539
## 705 14.279
## 706 8.276
## 707 6.849
## 708 4.548
## 709 3.454
## 710 6.509
## 711 5.619
## 712 8.605
## 713 2.165
## 714 4.359
## 715 5.837
## 716 6.908
## 717 3.454
## 718 5.711
## 719 7.072
## 720 4.153
## 721 6.703
## 722 4.085
## 723 5.509
## 724 7.043
## 725 6.345
## 726 6.807
## 727 5.181
## 728 4.274
## 729 4.220
## 730 5.181
## 731 3.946
## 732 6.206
## 733 3.618
## 734 10.636
## 735 7.838
## 736 3.454
## 737 3.249
## 738 4.056
## 739 8.963
## 740 6.181
## 741 6.837
## 742 8.948
## 743 8.466
## 744 10.208
## 745 8.511
## 746 8.963
## 747 4.085
## 748 17.291
## 749 7.346
## 750 7.072
## 751 7.509
## 752 8.909
## 753 11.059
## 754 11.238
## 755 7.236
## 756 3.782
## 757 10.935
## 758 8.963
## 759 6.446
## 760 7.236
## 761 7.784
## 762 6.250
## 763 2.957
## 764 4.455
## 765 8.674
## 766 3.946
## 767 6.908
## 768 5.892
## 769 6.275
## 770 2.260
## 771 7.838
## 772 10.838
## 773 8.635
## 774 8.963
## 775 1.727
## 776 7.649
## 777 4.249
## 778 4.056
## 779 5.619
## 780 6.908
## 781 8.635
## 782 4.274
## 783 5.544
## 784 5.345
## 785 12.268
## 786 4.017
## 787 6.908
## 788 5.837
## 789 2.194
## 790 9.081
## 791 5.951
## 792 5.056
## 793 9.237
## 794 9.073
## 795 4.274
## 796 10.732
## 797 4.812
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans81=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans81)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 17.26 29.06 30.93 42.53 100.00
round(sd(IH_trans81),2)
## [1] 17.11
#hist(IH_trans8,col="azure2",xlab="IPSU",main = "Distribución de IPSU",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=Cali[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 12:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(12:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:5])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 29.83166 30.44847 28.81007 28.87433 29.22128 32.04832 27.82061 30.53200
## [9] 28.61732 29.23413 30.53200 29.22128 28.61732 28.35389 27.31303 26.40709
## [17] 26.40709 29.23413 27.53148 28.43742 27.30018 26.92753 28.81007 31.15523
## [25] 28.87433 29.06065 30.63480 30.72475 28.61732 29.67104 31.97122 28.97070
## [33] 28.35389 29.22128 29.06065 26.43922 29.86379 30.48060 29.23413 28.43099
## [41] 29.22128 31.16808 27.30018 29.67104 29.22128 29.67104 29.23413 28.61732
## [49] 30.48060 28.97070 29.67104 26.86327 29.23413 27.30018 29.67104 29.67104
## [57] 28.87433 28.43099 27.82061 29.23413 30.72475 29.40761 28.81007 29.06065
## [65] 29.22128 27.74351 29.40761 27.74351 29.83166 28.61732 29.22128 31.00745
## [73] 30.31997 29.40761 27.82061 30.53200 29.40761 29.40761 29.06065 29.67104
## [81] 27.74351 28.81007 29.67104 30.72475 28.77795 29.23413 29.67104 29.40761
## [89] 28.16114 28.61732 28.87433 29.22128 28.61732 29.23413 28.81007 27.82061
## [97] 31.16808 28.61732 28.35389 27.30018 32.22179 28.43742 29.23413 28.77795
## [105] 28.81007 28.97070 27.82061 27.74351 31.15523 29.86379 30.53200 29.22128
## [113] 28.43742 28.53380 27.92984 30.44847 29.40761 29.40761 28.81007 29.40761
## [121] 29.67104 28.53380 29.91519 29.06065 29.67104 29.40761 28.77795 27.82061
## [129] 29.67104 28.81007 29.22128 28.87433 29.67104 29.06065 28.16114 30.72475
## [137] 32.63942 29.06065 26.86327 29.67104 28.77795 28.97070 27.82061 29.67104
## [145] 29.22128 29.67104 29.06065 28.87433 29.86379 27.11385 29.67104 28.61732
## [153] 28.61732 30.44847 29.67104 30.53200 29.40761 30.31997 30.31997 27.30018
## [161] 28.87433 29.06065 29.40761 28.61732 28.97070 28.87433 27.30018 29.23413
## [169] 29.86379 30.63480 28.77795 30.63480 28.43099 28.43742 28.81007 31.16808
## [177] 30.72475 28.16114 28.43099 29.67104 27.57003 28.35389 27.92984 28.77795
## [185] 31.77846 30.31997 32.48522 28.35389 28.61732 28.43099 28.97070 28.35389
## [193] 26.86327 29.67104 28.77795 28.43099 31.15523 30.72475 32.22179 29.83166
## [201] 28.87433 27.44796 28.81007 29.22128 28.35389 29.22128 27.74351 29.67104
## [209] 29.22128 29.83166 29.91519 27.92984 29.67104 31.15523 29.22128 29.86379
## [217] 28.61732 29.22128 29.23413 29.40761 28.61732 29.83166 28.61732 31.18093
## [225] 28.53380 28.77795 27.74351 29.67104 29.83166 28.61732 28.87433 29.23413
## [233] 28.97070 30.72475 27.92984 30.72475 27.74351 28.86790 26.76047 29.67104
## [241] 28.61732 29.06065 29.67104 29.22128 28.61732 29.23413 27.44796 28.35389
## [249] 29.40761 29.67104 28.87433 28.53380 29.91519 27.92984 28.53380 30.72475
## [257] 29.91519 28.77795 29.22128 28.61732 28.97070 28.16114 27.30018 28.81007
## [265] 28.87433 27.82061 28.86790 29.67104 29.22128 26.92753 28.86790 29.23413
## [273] 28.61732 28.43742 28.61732 29.67104 29.22128 28.53380 29.22128 29.40761
## [281] 27.30018 30.72475 29.67104 27.30018 29.22128 28.53380 27.30018 28.87433
## [289] 30.72475 30.48060 29.40761 29.67104 32.24749 30.31997 27.92984 27.11385
## [297] 31.18093 29.67104 30.44847 26.40709 26.86327 29.40761 29.22128 27.30018
## [305] 29.67104 29.67104 28.97070 27.82061 29.23413 29.67104 29.22128 32.83218
## [313] 30.44847 28.97070 29.06065 28.43742 29.67104 26.86327 28.81007 28.43742
## [321] 29.23413 28.61732 28.77795 27.44796 28.87433 29.40761 28.87433 27.53148
## [329] 28.87433 28.43099 28.87433 28.35389 29.22128 29.67104 28.87433 28.35389
## [337] 28.53380 28.87433 29.86379 29.40761 32.83218 28.77795 28.86790 28.43099
## [345] 28.61732 28.87433 29.86379 29.91519 27.57003 29.67104 27.82061 28.43742
## [353] 28.53380 29.23413 27.30018 29.67104 26.86327 28.77795 28.43099 27.31303
## [361] 29.06065 28.61732 29.40761 28.86790 29.06065 28.43742 26.42637 28.77795
## [369] 27.44796 28.43099 29.67104 28.61732 26.25289 28.61732 29.67104 29.22128
## [377] 29.22128 28.77795 29.67104 28.77795 28.61732 27.30018 29.23413 28.81007
## [385] 30.48060 29.23413 28.87433 29.22128 29.22128 28.87433 28.97070 26.86970
## [393] 28.77795 29.67104 27.31303 29.67104 29.22128 28.87433 29.40761 31.00745
## [401] 29.40761 30.53200 28.77795 30.53200 29.40761 27.82061 29.67104 32.48522
## [409] 30.44847 26.92753 28.53380 28.43742 29.22128 29.22128 28.43742 28.77795
## [417] 28.87433 27.57003 29.23413 28.61732 28.87433 27.92984 27.92984 27.57003
## [425] 28.43742 29.83166 28.16114 28.97070 30.53200 30.53200 30.72475 27.10743
## [433] 28.61732 28.43099 28.43099 29.83166 29.67104 28.87433 29.23413 29.91519
## [441] 28.43742 28.61732 29.67104 28.86790 32.22179 29.22128 28.77795 29.67104
## [449] 29.86379 28.16114 29.22128 28.61732 29.40761 28.87433 29.86379 30.53200
## [457] 28.43099 29.67104 29.06065 28.87433 28.53380 29.67104 28.77795 29.23413
## [465] 28.53380 32.48522 29.22128 26.92753 29.67104 28.87433 28.86790 29.06065
## [473] 29.91519 28.53380 28.97070 32.22179 28.53380 28.87433 29.06065 28.53380
## [481] 28.77795 28.61732 27.57003 29.23413 27.44796 28.86790 27.92984 28.16114
## [489] 30.31997 28.87433 31.77846 28.61732 29.06065 30.72475 29.67104 29.40761
## [497] 29.23413 28.81007 32.48522 27.30018 29.22128 28.87433 28.87433 30.31997
## [505] 28.81007 27.57003 29.40761 28.86790 28.61732 29.40761 28.61732 28.53380
## [513] 28.61732 28.43742 29.23413 30.53200 28.87433 29.91519 29.06065 29.22128
## [521] 29.67104 30.31997 30.53200 29.06065 27.31303 28.87433 28.61732 29.40761
## [529] 28.16114 28.97070 28.81007 30.63480 28.87433 30.31997 29.22128 29.23413
## [537] 28.81007 28.87433 29.67104 29.22128 32.24749 29.67104 29.40761 28.61732
## [545] 27.74351 28.35389 29.06065 27.92984 29.06065 26.43922 28.77795 29.22128
## [553] 30.44847 28.86790 29.22128 29.40761 30.48060 29.22128 27.82061 28.35389
## [561] 29.67104 28.87433 30.72475 29.40761 26.86327 30.48060 29.23413 29.23413
## [569] 29.22128 29.67104 29.06065 28.43099 28.87433 28.43099 28.81007 27.30018
## [577] 30.31997 29.06065 29.22128 28.53380 29.22128 32.48522 29.67104 29.23413
## [585] 29.67104 29.86379 28.81007 30.72475 29.40761 26.42637 29.67104 28.86790
## [593] 30.53200 29.23413 29.23413 29.40761 27.57003 28.87433 29.86379 28.77795
## [601] 27.31303 28.81007 27.44796 28.97070 29.40761 29.22128 29.67104 27.92984
## [609] 28.87433 28.61732 28.81007 29.06065 28.43742 29.67104 29.40761 29.06065
## [617] 30.31997 27.92984 31.16808 28.16114 28.43742 31.18093 28.43099 29.91519
## [625] 26.92753 29.40761 29.06065 29.06065 29.67104 29.22128 29.67104 29.40761
## [633] 27.74351 29.67104 28.87433 28.43099 28.86790 28.87433 29.06065 27.92984
## [641] 28.87433 28.97070 27.13955 28.35389 29.22128 29.86379 29.22128 27.13955
## [649] 29.67104 29.67104 29.40761 28.87433 29.86379 28.86790 26.92753 28.53380
## [657] 28.61732 31.15523 29.67104 28.87433 29.22128 28.87433 26.86327 28.86790
## [665] 29.06065 28.43742 28.43099 28.43742 29.06065 29.67104 28.61732 30.72475
## [673] 28.35389 28.97070 28.87433 27.92984 30.72475 28.87433 29.67104 27.13955
## [681] 28.87433 27.30018 29.67104 29.23413 29.86379 29.86379 30.63480 29.06065
## [689] 27.74351 27.44796 26.86970 28.97070 26.86327 29.06065 30.63480 28.86790
## [697] 29.91519 29.67104 28.61732 30.72475 29.23413 27.57003 30.63480 29.67104
## [705] 29.06065 27.44796 28.16114 29.67104 32.83218 28.97070 28.35389 29.67104
## [713] 29.22128 29.22128 29.67104 27.74351 27.44796 29.67104 27.53148 28.43742
## [721] 30.53200 26.76047 29.67104 29.06065 28.86790 29.86379 27.92984 29.67104
## [729] 27.82061 28.61732 28.43742 30.63480 31.18093 28.87433 28.61732 29.22128
## [737] 29.86379 28.86790 28.81007 29.06065 30.72475 26.86327 31.16808 29.23413
## [745] 30.48060 29.67104 29.06065 28.87433 27.30018 29.67104 28.87433 29.67104
## [753] 29.91519 30.53200 28.81007 28.61732 29.22128 28.61732 29.22128 27.57003
## [761] 28.61732 30.72475 28.77795 31.16808 29.83166 29.40761 26.40709 29.86379
## [769] 30.53200 28.35389 28.61732 29.67104 29.06065 29.67104 28.61732 28.77795
## [777] 26.86970 28.87433 29.67104 28.86790 29.06065 29.67104 28.53380 26.92753
## [785] 31.00745 28.97070 27.53148 29.86379 28.61732 30.31997 27.30018 29.22128
## [793] 30.72475 28.87433 29.40761 29.67104 27.31303 28.87433 29.06065 28.87433
## [801] 29.40761 26.76047 27.57003 29.67104 29.23413 30.63480 28.43099 29.86379
## [809] 28.61732 29.40761 27.82061 29.86379 28.61732 28.87433 29.67104 29.67104
## [817] 29.06065 26.40709 29.91519 28.35389 29.22128 30.31997 27.44796 29.22128
## [825] 28.77795 29.06065 29.67104 31.16808 27.57003 28.43742 27.31303 29.67104
## [833] 29.06065 28.97070 28.86790 31.77846 28.61732 29.83166 30.53200 29.91519
## [841] 28.97070 28.86790 28.61732 29.91519 29.40761 28.86790 28.87433 28.61732
## [849] 29.22128 27.30018 27.44796 28.87433 29.67104 28.86790 27.82061 29.06065
## [857] 28.16114 29.83166 26.05371 29.06065 28.61732 29.67104 28.53380 30.48060
## [865] 30.48060 28.87433 29.06065 28.81007 26.86970 29.23413 28.61732 29.23413
## [873] 28.16114 26.40709 26.76047 29.22128 30.72475 30.72475 28.43742 27.30018
## [881] 30.63480 28.35389 30.48060 29.06065 29.86379 32.67155 29.40761 28.87433
## [889] 28.43099 27.31303 31.00745 30.72475 27.44796 27.44796 28.61732 29.22128
## [897] 30.31997 29.40761 29.67104 28.81007 28.77795 29.83166 27.31303 30.31997
## [905] 29.40761 28.86790 28.16114 28.53380 28.43742 29.40761 30.44847 30.72475
## [913] 29.67104 29.22128 30.48060 29.22128 29.40761 28.43099 29.67104 30.48060
## [921] 28.86790 27.30018 29.67104 29.40761 28.77795 26.40709 29.40761 28.87433
## [929] 27.92984 30.31997 29.06065 28.16114 29.06065 30.44847 28.16114 30.63480
## [937] 28.43099 28.87433 30.72475 29.67104 30.44847 29.06065 28.61732 29.67104
## [945] 30.48060 29.06065 28.43742 28.61732 29.22128 29.67104 29.23413 27.82061
## [953] 29.40761 30.44847 26.24647 27.31303 31.00745 28.61732 29.40761 29.22128
## [961] 29.86379 28.81007 30.48060 28.86790 31.00745 29.22128 30.44847 28.81007
## [969] 27.13955 29.67104 28.16114 27.74351 30.72475 29.06065 32.24749 30.48060
## [977] 28.87433 26.86327 29.67104 28.77795 29.06065 28.61732 27.53148 30.72475
## [985] 29.67104 29.67104 27.31303 28.53380 28.87433 30.53200 29.06065 26.92753
## [993] 28.97070 30.72475 29.06065 26.40709 30.53200 28.16114 29.22128 29.67104
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
#I_ref=31.86
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans81))^2+(median(NfinalMedia)-median(IH_trans81))^2,2);EE
## [1] 0.1
PALMIRA
Palmira<-filter(CaliyPalmira, CaliyPalmira$Ciudad=="Palmira")
IPRG
# INDICE DE PERCEPCIÓN DE RIESGO GLOBAL
Datos=Palmira[,c(19:34)]
pesos=c(
#probabilidad de contagio
0.061,0.055,0.061,0.048,0.041,0.055,0.055,
#severidad
0.080,0.092,0.092,0.069,
#susceptibilidad
0.065,0.065,0.057,0.049,0.057
)
temp_K<-c()
lista_vacia <- vector("list", length = 646)
celsius_to_kelvin <- function(temp_C) {
for (i in 1:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(IHPRG1[ ,1:16]);IH
## [1] 3.946 2.222 3.190 3.796 4.580 2.980 3.297 3.665 4.124 5.202 5.996 3.151
## [13] 3.046 3.123 3.954 4.953 4.734 4.351 4.158 4.785 4.613 4.059 3.568 2.531
## [25] 3.879 2.486 2.797 3.603 4.378 3.614 3.803 4.810 4.209 2.713 3.945 4.710
## [37] 4.260 5.266 5.205 3.030 5.753 3.617 3.861 3.976 3.154 5.173 4.024 4.003
## [49] 4.386 3.689 3.696 4.144 5.622 4.768 3.983 2.643 5.329 5.073 4.076 3.083
## [61] 3.576 4.430 2.992 4.851 2.426 3.510 5.247 5.065 2.570 3.524 5.512 3.576
## [73] 2.728 4.503 4.382 3.429 3.382 5.679 6.070 3.259 4.931 1.539 4.196 4.297
## [85] 5.221 3.631 2.772 3.581 4.140 4.360 5.603 4.443 3.130 2.695 2.797 4.132
## [97] 5.089 4.190 2.911 3.893 1.842 3.400 4.416 3.998 2.746 3.189 2.996 4.846
## [109] 5.292 3.164 5.356 2.484 3.838 4.037 3.668 2.666 4.271 4.433 5.399 4.111
## [121] 4.759 4.095 4.458 4.111 4.528 3.084 4.234 4.141 4.754 3.786 4.209 1.588
## [133] 5.047 4.216 3.335 3.878 4.688 3.622 2.386 5.020 3.913 2.696 5.213 3.156
## [145] 3.055 5.992 4.663 6.342 4.072 3.904 2.921 3.363 4.684 5.105 5.131 5.619
## [157] 4.224 4.378 4.585 2.433 4.633 2.621 4.653 5.255 3.716 3.128 2.333 2.958
## [169] 2.782 4.328 4.413 3.634 4.854 5.255 3.953 4.217 4.867 5.730 2.900 5.608
## [181] 4.587 4.800 3.791 4.378 2.682 3.428 2.423 3.072 3.239 4.078 3.974 5.238
## [193] 4.753 5.635 4.556 3.249 3.362 3.598 2.856 4.371 5.548 4.400 4.350 2.781
## [205] 2.929 4.577 5.868 5.030 4.184 4.820 3.904 3.624 4.206 3.543 4.142 3.252
## [217] 5.401 5.828 3.965 1.754 2.075 5.170 6.108 3.240 4.630 4.550 4.891 4.513
## [229] 3.540 3.238 5.640 4.875 3.360 4.186 5.334 5.168 3.308 4.752 4.063 2.471
## [241] 3.248 3.718 2.832 3.269 5.298 4.343 5.378 5.232 5.243 4.756 3.470 2.787
## [253] 4.797 3.800 3.559 4.366 3.745 5.408 3.880 5.242 3.830 3.719 4.187 4.068
## [265] 3.110 4.075 3.149 5.914 3.401 5.849 6.322 4.330 4.329 4.853 3.553 2.800
## [277] 3.240 4.642 3.316 3.865 5.108 3.436 3.193 5.050 3.973 3.759 4.127 6.241
## [289] 5.105 4.641 4.324 3.181 3.097 4.117 4.492 5.170 3.019 4.809 3.367 3.474
## [301] 3.385 3.443 5.078 2.598 3.372 5.932 3.370 3.812 3.375 3.938 4.958 3.887
## [313] 5.573 3.890 3.679 3.534 3.498 4.898 3.792 5.408 2.826 2.821 3.556 3.788
## [325] 4.477 3.400 6.086 4.438 6.090 3.576 4.086 3.675 4.116 3.177 4.039 3.701
## [337] 4.320 5.548 4.261 4.688 5.574 4.485 4.493 1.290 2.494 2.973 3.912 4.265
## [349] 5.197 2.956 4.588 3.848 5.558 3.438 3.726 3.862 4.857 4.326 1.084 3.399
## [361] 4.416 3.706 3.124 3.639 5.469 4.232 4.397 1.843 2.904 3.930 5.864 5.376
## [373] 3.350 3.278 3.015 4.286 3.549 3.571 2.651 4.169 4.552 4.277 3.605 2.878
## [385] 3.773 2.908 2.923 2.698 2.449 5.857 3.115 4.572 3.583 5.524 3.936 0.937
## [397] 3.370 3.201 4.254 3.889 3.716 3.935 4.152 4.842 4.362 3.366 4.942 6.322
## [409] 2.941 3.547 4.944 5.111 3.112 4.633 3.087 4.591 3.521 5.863 3.378 5.240
## [421] 5.149 3.222 4.786 2.656 3.382 3.262 5.545 4.794 4.686 4.607 3.930 4.312
## [433] 4.551 3.818 5.143 4.131 5.036 3.783 3.961 4.147 4.006 3.216 4.311 4.338
## [445] 5.102 4.549 4.638 3.269 4.908 4.650 5.246 4.196 4.390 5.254 4.200 5.600
## [457] 3.869 5.581 4.185 2.659 4.344 4.480 3.765 3.036 5.254 5.896 5.623 4.915
## [469] 5.173 2.990 3.278 3.737 4.101 2.177 3.564 3.481 3.995 3.487 4.302 4.680
## [481] 2.744 4.626 2.657 3.334 3.445 4.674 5.465 3.000 5.162 4.168 3.044 5.752
## [493] 4.548 5.582 5.033 3.968 5.232 3.183 4.579 4.832 4.233 2.811 4.621 4.157
## [505] 2.883 3.345 3.549 3.782 4.964 5.557 4.173 4.725 4.488 5.090 4.041 4.439
## [517] 3.680 3.988 4.770 3.875 5.043 3.004 2.541 4.743 2.044 4.961 4.421 5.022
## [529] 4.059 3.512 5.980 5.149 4.895 4.966 3.314 4.732 6.176 5.061 5.210 4.336
## [541] 4.594 3.507 5.514 3.694 3.466 3.997 4.809 4.334 2.590 5.090 4.124 5.057
## [553] 2.058 5.192 3.886 3.409 3.648 3.165 2.539 6.322 5.002 2.778 4.064 6.127
## [565] 3.302 5.102 3.748 4.008 2.902 3.350 5.407 4.467 4.410 2.785 3.434 4.246
## [577] 3.732 3.068 3.542 4.117 4.005 3.970 3.282 4.817 4.876 4.959 5.401 2.901
## [589] 4.257 4.569 1.938 4.038 3.199 3.917 3.895 4.094 4.261 3.686 3.381 4.619
## [601] 3.678 4.722 3.227 5.344 3.171 1.898 3.801 3.112 4.903 3.601 3.935 1.102
## [613] 4.283 4.277 3.847 4.685 4.572 2.716 4.763 6.322 4.302 4.374 3.544 4.945
## [625] 4.272 4.002 3.669 3.815 4.748 5.130 6.387 4.589 3.975 4.926 3.950 5.923
## [637] 3.925 4.074 4.972 4.208 2.891 3.502 4.306 4.088 4.574 3.693
data.frame(IH)
## IH
## 1 3.946
## 2 2.222
## 3 3.190
## 4 3.796
## 5 4.580
## 6 2.980
## 7 3.297
## 8 3.665
## 9 4.124
## 10 5.202
## 11 5.996
## 12 3.151
## 13 3.046
## 14 3.123
## 15 3.954
## 16 4.953
## 17 4.734
## 18 4.351
## 19 4.158
## 20 4.785
## 21 4.613
## 22 4.059
## 23 3.568
## 24 2.531
## 25 3.879
## 26 2.486
## 27 2.797
## 28 3.603
## 29 4.378
## 30 3.614
## 31 3.803
## 32 4.810
## 33 4.209
## 34 2.713
## 35 3.945
## 36 4.710
## 37 4.260
## 38 5.266
## 39 5.205
## 40 3.030
## 41 5.753
## 42 3.617
## 43 3.861
## 44 3.976
## 45 3.154
## 46 5.173
## 47 4.024
## 48 4.003
## 49 4.386
## 50 3.689
## 51 3.696
## 52 4.144
## 53 5.622
## 54 4.768
## 55 3.983
## 56 2.643
## 57 5.329
## 58 5.073
## 59 4.076
## 60 3.083
## 61 3.576
## 62 4.430
## 63 2.992
## 64 4.851
## 65 2.426
## 66 3.510
## 67 5.247
## 68 5.065
## 69 2.570
## 70 3.524
## 71 5.512
## 72 3.576
## 73 2.728
## 74 4.503
## 75 4.382
## 76 3.429
## 77 3.382
## 78 5.679
## 79 6.070
## 80 3.259
## 81 4.931
## 82 1.539
## 83 4.196
## 84 4.297
## 85 5.221
## 86 3.631
## 87 2.772
## 88 3.581
## 89 4.140
## 90 4.360
## 91 5.603
## 92 4.443
## 93 3.130
## 94 2.695
## 95 2.797
## 96 4.132
## 97 5.089
## 98 4.190
## 99 2.911
## 100 3.893
## 101 1.842
## 102 3.400
## 103 4.416
## 104 3.998
## 105 2.746
## 106 3.189
## 107 2.996
## 108 4.846
## 109 5.292
## 110 3.164
## 111 5.356
## 112 2.484
## 113 3.838
## 114 4.037
## 115 3.668
## 116 2.666
## 117 4.271
## 118 4.433
## 119 5.399
## 120 4.111
## 121 4.759
## 122 4.095
## 123 4.458
## 124 4.111
## 125 4.528
## 126 3.084
## 127 4.234
## 128 4.141
## 129 4.754
## 130 3.786
## 131 4.209
## 132 1.588
## 133 5.047
## 134 4.216
## 135 3.335
## 136 3.878
## 137 4.688
## 138 3.622
## 139 2.386
## 140 5.020
## 141 3.913
## 142 2.696
## 143 5.213
## 144 3.156
## 145 3.055
## 146 5.992
## 147 4.663
## 148 6.342
## 149 4.072
## 150 3.904
## 151 2.921
## 152 3.363
## 153 4.684
## 154 5.105
## 155 5.131
## 156 5.619
## 157 4.224
## 158 4.378
## 159 4.585
## 160 2.433
## 161 4.633
## 162 2.621
## 163 4.653
## 164 5.255
## 165 3.716
## 166 3.128
## 167 2.333
## 168 2.958
## 169 2.782
## 170 4.328
## 171 4.413
## 172 3.634
## 173 4.854
## 174 5.255
## 175 3.953
## 176 4.217
## 177 4.867
## 178 5.730
## 179 2.900
## 180 5.608
## 181 4.587
## 182 4.800
## 183 3.791
## 184 4.378
## 185 2.682
## 186 3.428
## 187 2.423
## 188 3.072
## 189 3.239
## 190 4.078
## 191 3.974
## 192 5.238
## 193 4.753
## 194 5.635
## 195 4.556
## 196 3.249
## 197 3.362
## 198 3.598
## 199 2.856
## 200 4.371
## 201 5.548
## 202 4.400
## 203 4.350
## 204 2.781
## 205 2.929
## 206 4.577
## 207 5.868
## 208 5.030
## 209 4.184
## 210 4.820
## 211 3.904
## 212 3.624
## 213 4.206
## 214 3.543
## 215 4.142
## 216 3.252
## 217 5.401
## 218 5.828
## 219 3.965
## 220 1.754
## 221 2.075
## 222 5.170
## 223 6.108
## 224 3.240
## 225 4.630
## 226 4.550
## 227 4.891
## 228 4.513
## 229 3.540
## 230 3.238
## 231 5.640
## 232 4.875
## 233 3.360
## 234 4.186
## 235 5.334
## 236 5.168
## 237 3.308
## 238 4.752
## 239 4.063
## 240 2.471
## 241 3.248
## 242 3.718
## 243 2.832
## 244 3.269
## 245 5.298
## 246 4.343
## 247 5.378
## 248 5.232
## 249 5.243
## 250 4.756
## 251 3.470
## 252 2.787
## 253 4.797
## 254 3.800
## 255 3.559
## 256 4.366
## 257 3.745
## 258 5.408
## 259 3.880
## 260 5.242
## 261 3.830
## 262 3.719
## 263 4.187
## 264 4.068
## 265 3.110
## 266 4.075
## 267 3.149
## 268 5.914
## 269 3.401
## 270 5.849
## 271 6.322
## 272 4.330
## 273 4.329
## 274 4.853
## 275 3.553
## 276 2.800
## 277 3.240
## 278 4.642
## 279 3.316
## 280 3.865
## 281 5.108
## 282 3.436
## 283 3.193
## 284 5.050
## 285 3.973
## 286 3.759
## 287 4.127
## 288 6.241
## 289 5.105
## 290 4.641
## 291 4.324
## 292 3.181
## 293 3.097
## 294 4.117
## 295 4.492
## 296 5.170
## 297 3.019
## 298 4.809
## 299 3.367
## 300 3.474
## 301 3.385
## 302 3.443
## 303 5.078
## 304 2.598
## 305 3.372
## 306 5.932
## 307 3.370
## 308 3.812
## 309 3.375
## 310 3.938
## 311 4.958
## 312 3.887
## 313 5.573
## 314 3.890
## 315 3.679
## 316 3.534
## 317 3.498
## 318 4.898
## 319 3.792
## 320 5.408
## 321 2.826
## 322 2.821
## 323 3.556
## 324 3.788
## 325 4.477
## 326 3.400
## 327 6.086
## 328 4.438
## 329 6.090
## 330 3.576
## 331 4.086
## 332 3.675
## 333 4.116
## 334 3.177
## 335 4.039
## 336 3.701
## 337 4.320
## 338 5.548
## 339 4.261
## 340 4.688
## 341 5.574
## 342 4.485
## 343 4.493
## 344 1.290
## 345 2.494
## 346 2.973
## 347 3.912
## 348 4.265
## 349 5.197
## 350 2.956
## 351 4.588
## 352 3.848
## 353 5.558
## 354 3.438
## 355 3.726
## 356 3.862
## 357 4.857
## 358 4.326
## 359 1.084
## 360 3.399
## 361 4.416
## 362 3.706
## 363 3.124
## 364 3.639
## 365 5.469
## 366 4.232
## 367 4.397
## 368 1.843
## 369 2.904
## 370 3.930
## 371 5.864
## 372 5.376
## 373 3.350
## 374 3.278
## 375 3.015
## 376 4.286
## 377 3.549
## 378 3.571
## 379 2.651
## 380 4.169
## 381 4.552
## 382 4.277
## 383 3.605
## 384 2.878
## 385 3.773
## 386 2.908
## 387 2.923
## 388 2.698
## 389 2.449
## 390 5.857
## 391 3.115
## 392 4.572
## 393 3.583
## 394 5.524
## 395 3.936
## 396 0.937
## 397 3.370
## 398 3.201
## 399 4.254
## 400 3.889
## 401 3.716
## 402 3.935
## 403 4.152
## 404 4.842
## 405 4.362
## 406 3.366
## 407 4.942
## 408 6.322
## 409 2.941
## 410 3.547
## 411 4.944
## 412 5.111
## 413 3.112
## 414 4.633
## 415 3.087
## 416 4.591
## 417 3.521
## 418 5.863
## 419 3.378
## 420 5.240
## 421 5.149
## 422 3.222
## 423 4.786
## 424 2.656
## 425 3.382
## 426 3.262
## 427 5.545
## 428 4.794
## 429 4.686
## 430 4.607
## 431 3.930
## 432 4.312
## 433 4.551
## 434 3.818
## 435 5.143
## 436 4.131
## 437 5.036
## 438 3.783
## 439 3.961
## 440 4.147
## 441 4.006
## 442 3.216
## 443 4.311
## 444 4.338
## 445 5.102
## 446 4.549
## 447 4.638
## 448 3.269
## 449 4.908
## 450 4.650
## 451 5.246
## 452 4.196
## 453 4.390
## 454 5.254
## 455 4.200
## 456 5.600
## 457 3.869
## 458 5.581
## 459 4.185
## 460 2.659
## 461 4.344
## 462 4.480
## 463 3.765
## 464 3.036
## 465 5.254
## 466 5.896
## 467 5.623
## 468 4.915
## 469 5.173
## 470 2.990
## 471 3.278
## 472 3.737
## 473 4.101
## 474 2.177
## 475 3.564
## 476 3.481
## 477 3.995
## 478 3.487
## 479 4.302
## 480 4.680
## 481 2.744
## 482 4.626
## 483 2.657
## 484 3.334
## 485 3.445
## 486 4.674
## 487 5.465
## 488 3.000
## 489 5.162
## 490 4.168
## 491 3.044
## 492 5.752
## 493 4.548
## 494 5.582
## 495 5.033
## 496 3.968
## 497 5.232
## 498 3.183
## 499 4.579
## 500 4.832
## 501 4.233
## 502 2.811
## 503 4.621
## 504 4.157
## 505 2.883
## 506 3.345
## 507 3.549
## 508 3.782
## 509 4.964
## 510 5.557
## 511 4.173
## 512 4.725
## 513 4.488
## 514 5.090
## 515 4.041
## 516 4.439
## 517 3.680
## 518 3.988
## 519 4.770
## 520 3.875
## 521 5.043
## 522 3.004
## 523 2.541
## 524 4.743
## 525 2.044
## 526 4.961
## 527 4.421
## 528 5.022
## 529 4.059
## 530 3.512
## 531 5.980
## 532 5.149
## 533 4.895
## 534 4.966
## 535 3.314
## 536 4.732
## 537 6.176
## 538 5.061
## 539 5.210
## 540 4.336
## 541 4.594
## 542 3.507
## 543 5.514
## 544 3.694
## 545 3.466
## 546 3.997
## 547 4.809
## 548 4.334
## 549 2.590
## 550 5.090
## 551 4.124
## 552 5.057
## 553 2.058
## 554 5.192
## 555 3.886
## 556 3.409
## 557 3.648
## 558 3.165
## 559 2.539
## 560 6.322
## 561 5.002
## 562 2.778
## 563 4.064
## 564 6.127
## 565 3.302
## 566 5.102
## 567 3.748
## 568 4.008
## 569 2.902
## 570 3.350
## 571 5.407
## 572 4.467
## 573 4.410
## 574 2.785
## 575 3.434
## 576 4.246
## 577 3.732
## 578 3.068
## 579 3.542
## 580 4.117
## 581 4.005
## 582 3.970
## 583 3.282
## 584 4.817
## 585 4.876
## 586 4.959
## 587 5.401
## 588 2.901
## 589 4.257
## 590 4.569
## 591 1.938
## 592 4.038
## 593 3.199
## 594 3.917
## 595 3.895
## 596 4.094
## 597 4.261
## 598 3.686
## 599 3.381
## 600 4.619
## 601 3.678
## 602 4.722
## 603 3.227
## 604 5.344
## 605 3.171
## 606 1.898
## 607 3.801
## 608 3.112
## 609 4.903
## 610 3.601
## 611 3.935
## 612 1.102
## 613 4.283
## 614 4.277
## 615 3.847
## 616 4.685
## 617 4.572
## 618 2.716
## 619 4.763
## 620 6.322
## 621 4.302
## 622 4.374
## 623 3.544
## 624 4.945
## 625 4.272
## 626 4.002
## 627 3.669
## 628 3.815
## 629 4.748
## 630 5.130
## 631 6.387
## 632 4.589
## 633 3.975
## 634 4.926
## 635 3.950
## 636 5.923
## 637 3.925
## 638 4.074
## 639 4.972
## 640 4.208
## 641 2.891
## 642 3.502
## 643 4.306
## 644 4.088
## 645 4.574
## 646 3.693
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans2=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans2)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 45.18 57.71 57.78 70.11 100.00
round(sd(IH_trans2),2)
## [1] 17.59
#hist(IH_trans,col="azure2",xlab="IPRG",main = "Distribución de IPRG",freq = FALSE,ylim = c(0,0.035))
ECM
#ERROR DE ESTIMACIÓN (EE)
n=round(646*0.80,0);n
## [1] 517
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=Palmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 1:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:16])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 58.62385 55.35780 58.47706 58.05505 57.57798 57.35780 58.14679 57.81651
## [9] 58.79817 57.93578 58.79817 57.92661 56.33028 58.23853 57.94495 57.61468
## [17] 58.33028 58.47706 57.41284 57.87156 57.93578 58.29358 56.25688 57.61468
## [25] 58.33945 57.28440 56.93578 58.29358 58.34862 56.19266 58.44037 57.32110
## [33] 56.31193 56.22936 56.15596 57.28440 58.61468 58.87156 59.62385 58.57798
## [41] 57.74312 57.56881 57.57798 56.96330 58.61468 58.23853 58.05505 58.34862
## [49] 56.00000 56.90826 57.57798 58.56881 59.10092 57.55963 58.33028 57.28440
## [57] 57.28440 58.78899 58.56881 56.77064 56.88991 56.92661 58.33945 56.89908
## [65] 57.58716 56.77064 56.29358 57.79817 57.11927 58.41284 57.63303 57.59633
## [73] 58.47706 57.57798 58.47706 57.91743 57.88073 57.57798 58.81651 58.60550
## [81] 57.35780 57.61468 58.47706 56.76147 57.70642 57.28440 56.77064 58.41284
## [89] 59.79817 56.91743 58.56881 58.84404 57.58716 57.56881 58.23853 58.19266
## [97] 57.48624 57.41284 57.41284 57.70642 57.59633 56.88991 58.78899 57.60550
## [105] 58.56881 59.87156 57.11927 57.54128 57.92661 58.23853 57.11927 55.98165
## [113] 57.65138 57.28440 57.57798 57.79817 57.85321 57.61468 56.46789 57.15596
## [121] 57.44954 57.94495 58.84404 57.88073 57.37615 59.20183 57.56881 56.24771
## [129] 56.95413 57.44037 57.28440 57.77982 57.32110 56.12844 56.34862 56.33028
## [137] 57.59633 58.14679 57.58716 58.69725 56.89908 56.30275 57.44954 57.10092
## [145] 57.70642 57.82569 58.34862 57.93578 56.47706 57.28440 58.33028 57.57798
## [153] 57.63303 57.28440 58.61468 57.60550 57.60550 56.34862 58.61468 56.92661
## [161] 57.50459 58.56881 57.55963 57.94495 58.47706 57.92661 58.60550 58.23853
## [169] 57.37615 60.17431 57.37615 55.75229 58.05505 55.98165 57.11927 57.93578
## [177] 56.33028 57.84404 58.14679 56.90826 57.28440 57.55963 58.61468 57.56881
## [185] 58.60550 58.14679 58.09174 57.79817 57.81651 57.28440 57.63303 57.85321
## [193] 57.37615 56.95413 57.87156 57.35780 58.41284 56.32110 57.94495 56.59633
## [201] 57.99083 59.09174 56.89908 58.61468 58.47706 57.37615 56.12844 56.49541
## [209] 57.58716 58.78899 57.33028 57.57798 58.14679 58.81651 57.61468 57.36697
## [217] 57.79817 56.32110 57.36697 57.77982 58.00000 55.60550 56.12844 57.77982
## [225] 57.57798 58.23853 57.46789 55.61468 59.58716 57.77982 58.19266 57.63303
## [233] 57.68807 57.40367 58.34862 56.29358 57.99083 57.70642 58.61468 58.80734
## [241] 57.32110 58.33945 56.89908 58.77982 60.02752 57.11927 58.33028 58.47706
## [249] 57.79817 58.56881 56.88991 58.47706 56.89908 56.64220 57.33028 57.55963
## [257] 57.60550 55.73394 56.31193 57.35780 58.28440 56.77064 56.95413 58.34862
## [265] 56.29358 57.57798 58.29358 58.28440 56.91743 57.70642 58.23853 58.84404
## [273] 56.31193 57.37615 56.23853 59.37615 55.58716 57.28440 59.74312 58.28440
## [281] 57.55963 57.55963 56.91743 57.52294 58.85321 58.00000 57.37615 57.63303
## [289] 56.34862 58.28440 58.00000 58.33945 58.84404 58.87156 57.54128 58.53211
## [297] 58.79817 57.77982 58.47706 57.28440 58.23853 57.79817 57.92661 57.81651
## [305] 57.70642 57.87156 58.34862 57.57798 58.33945 58.34862 59.58716 58.47706
## [313] 58.23853 57.40367 55.72477 58.33028 57.48624 56.88073 57.59633 56.32110
## [321] 57.33028 59.19266 58.09174 58.34862 58.84404 58.14679 59.47706 57.41284
## [329] 59.87156 58.33028 57.63303 56.49541 57.41284 57.28440 56.64220 58.23853
## [337] 57.50459 57.61468 57.28440 57.41284 58.34862 57.68807 57.61468 57.35780
## [345] 56.90826 59.37615 57.60550 57.81651 59.61468 58.47706 57.81651 57.15596
## [353] 58.00000 57.77982 58.57798 58.60550 59.08257 57.68807 58.78899 58.00000
## [361] 57.41284 57.35780 58.77064 57.88073 56.15596 59.59633 58.82569 57.93578
## [369] 57.85321 56.76147 57.55046 58.53211 58.53211 57.77982 57.79817 56.49541
## [377] 55.65138 56.29358 57.87156 56.62385 57.33028 58.50459 56.93578 58.33945
## [385] 58.34862 57.35780 57.51376 57.93578 59.33945 58.54128 58.89908 58.41284
## [393] 58.34862 58.14679 57.94495 57.70642 56.47706 57.99083 57.54128 58.77982
## [401] 56.44037 56.95413 56.49541 58.47706 57.57798 57.50459 57.28440 58.50459
## [409] 58.47706 56.33028 56.88073 58.77982 57.59633 57.81651 57.63303 55.72477
## [417] 58.28440 58.28440 58.23853 58.41284 58.14679 57.56881 57.81651 56.91743
## [425] 57.55963 56.61468 58.34862 56.31193 57.57798 58.23853 57.36697 57.44954
## [433] 55.55963 57.92661 56.61468 58.14679 57.56881 59.08257 58.77064 57.28440
## [441] 57.56881 58.34862 56.90826 56.16514 58.84404 58.62385 58.41284 57.48624
## [449] 58.23853 58.99083 57.54128 58.61468 58.23853 56.76147 58.34862 55.19266
## [457] 57.77982 57.57798 56.95413 56.90826 58.23853 59.43119 57.47706 58.13761
## [465] 57.61468 58.54128 58.00000 58.44037 57.77982 55.70642 58.61468 59.92661
## [473] 56.33028 56.76147 57.58716 57.32110 57.59633 57.48624 55.33945 59.79817
## [481] 57.94495 57.92661 58.33028 58.14679 57.37615 57.92661 57.28440 58.50459
## [489] 57.41284 59.74312 57.55963 56.95413 57.78899 58.62385 57.28440 58.23853
## [497] 55.76147 57.79817 58.28440 59.03670 57.85321 56.90826 57.44954 56.29358
## [505] 55.75229 58.70642 58.41284 57.55963 56.32110 57.37615 57.81651 55.73394
## [513] 57.94495 57.33028 57.68807 58.62385 58.34862 56.60550 58.14679 57.36697
## [521] 58.77064 56.12844 58.78899 58.82569 57.48624 57.93578 57.11927 58.34862
## [529] 57.35780 56.11009 58.53211 58.53211 58.62385 58.28440 58.41284 57.52294
## [537] 58.41284 56.89908 55.75229 58.33028 57.41284 58.83486 58.05505 57.55963
## [545] 57.59633 56.76147 57.40367 58.77064 57.13761 56.91743 58.82569 60.00000
## [553] 57.48624 57.70642 57.56881 58.53211 57.58716 55.98165 59.57798 58.60550
## [561] 59.66055 56.14679 55.73394 57.93578 57.33028 57.63303 56.91743 57.52294
## [569] 57.28440 56.34862 57.35780 57.87156 56.25688 56.24771 57.87156 58.41284
## [577] 56.33028 58.28440 55.28440 57.81651 56.91743 58.14679 57.28440 57.94495
## [585] 56.89908 57.28440 57.54128 58.50459 58.29358 58.99083 58.61468 57.88073
## [593] 58.47706 59.79817 57.55046 56.88073 57.63303 57.72477 58.23853 57.25688
## [601] 57.79817 57.68807 57.72477 57.77982 56.88073 57.68807 55.67890 57.77982
## [609] 57.28440 59.08257 57.87156 57.59633 57.55963 57.72477 58.33028 55.74312
## [617] 57.81651 56.92661 58.29358 56.11009 58.09174 58.23853 58.00000 58.00000
## [625] 57.93578 58.50459 57.65138 58.60550 57.28440 57.11927 57.59633 58.89908
## [633] 57.41284 57.94495 57.40367 57.33028 57.61468 58.47706 58.70642 56.59633
## [641] 58.47706 58.56881 57.70642 57.41284 58.05505 56.49541 57.63303 57.32110
## [649] 59.19266 58.47706 57.56881 55.93578 57.52294 55.92661 58.41284 58.82569
## [657] 59.33945 56.31193 58.23853 57.57798 57.56881 58.00000 56.22936 56.16514
## [665] 56.93578 56.90826 58.14679 58.47706 57.32110 57.94495 57.28440 57.59633
## [673] 58.14679 56.24771 58.63303 58.47706 56.31193 56.27523 56.33028 56.91743
## [681] 55.93578 57.44954 57.35780 57.32110 58.87156 58.82569 59.33945 58.79817
## [689] 57.48624 58.79817 57.37615 57.35780 55.93578 57.59633 57.41284 58.23853
## [697] 58.57798 57.93578 57.13761 57.11927 57.52294 57.40367 57.63303 56.91743
## [705] 56.88073 56.16514 56.16514 58.79817 56.47706 57.59633 56.63303 57.36697
## [713] 57.48624 57.11927 58.53211 57.50459 57.36697 58.23853 59.62385 59.29358
## [721] 57.54128 57.94495 56.01835 57.93578 58.61468 56.88991 58.71560 57.57798
## [729] 58.99083 57.44954 57.54128 57.77982 59.74312 59.33028 59.04587 57.86239
## [737] 58.78899 56.93578 56.89908 58.23853 58.19266 57.70642 58.28440 58.34862
## [745] 56.89908 58.89908 57.81651 58.79817 57.28440 55.76147 56.15596 57.60550
## [753] 57.28440 58.28440 55.81651 57.70642 56.30275 57.48624 58.23853 58.34862
## [761] 55.48624 57.11927 57.58716 57.60550 57.32110 58.41284 56.93578 57.81651
## [769] 58.23853 57.79817 58.23853 58.35780 57.81651 57.60550 57.77982 57.63303
## [777] 58.23853 57.55963 58.57798 57.70642 55.35780 57.79817 58.94495 57.32110
## [785] 58.78899 57.63303 58.69725 56.29358 57.54128 57.41284 57.94495 57.52294
## [793] 56.95413 55.82569 57.52294 58.87156 58.40367 57.66972 57.35780 59.44037
## [801] 57.81651 55.98165 56.15596 56.88991 56.89908 56.89908 57.28440 58.99083
## [809] 57.44954 58.87156 56.29358 56.91743 58.84404 56.49541 57.11927 57.10092
## [817] 59.48624 58.33945 57.48624 58.19266 57.44954 57.41284 57.54128 58.05505
## [825] 57.68807 56.93578 58.28440 58.33028 57.44954 58.14679 57.55963 57.41284
## [833] 58.05505 58.70642 58.47706 57.55046 57.28440 58.47706 57.77982 56.49541
## [841] 57.55046 58.23853 57.81651 57.58716 56.64220 56.31193 59.14679 56.31193
## [849] 58.33028 56.49541 57.32110 57.48624 56.88991 58.34862 56.31193 56.89908
## [857] 56.64220 57.63303 57.28440 57.11927 56.93578 56.00000 59.57798 58.23853
## [865] 57.48624 59.28440 56.49541 57.10092 57.92661 57.77982 57.36697 58.23853
## [873] 57.77982 56.07339 56.64220 58.23853 57.92661 58.33028 55.86239 58.41284
## [881] 57.41284 57.14679 59.47706 58.28440 57.88073 57.28440 58.60550 57.32110
## [889] 58.50459 58.60550 57.87156 57.55963 58.47706 58.34862 56.30275 57.94495
## [897] 57.32110 58.05505 57.58716 56.95413 58.69725 57.57798 57.77982 56.91743
## [905] 58.34862 57.35780 56.64220 58.60550 57.79817 57.61468 57.58716 57.58716
## [913] 58.78899 58.34862 60.10092 58.78899 56.91743 56.90826 57.55963 55.93578
## [921] 58.00000 57.79817 57.81651 58.00000 59.20183 56.95413 58.33945 57.33028
## [929] 56.62385 58.23853 58.57798 58.57798 58.34862 56.06422 57.93578 57.11927
## [937] 57.54128 57.50459 57.58716 58.33028 56.28440 58.99083 57.91743 58.84404
## [945] 57.41284 55.55963 58.47706 56.95413 58.69725 57.41284 57.36697 55.70642
## [953] 57.77982 56.33028 57.44954 59.47706 58.41284 56.88073 58.41284 56.88991
## [961] 57.41284 57.52294 57.28440 55.76147 57.10092 58.77064 58.23853 57.81651
## [969] 57.70642 58.41284 56.76147 58.53211 57.57798 58.41284 57.77982 57.32110
## [977] 58.80734 57.93578 58.41284 56.49541 57.61468 58.82569 57.44954 56.95413
## [985] 57.58716 57.52294 58.70642 57.59633 57.44954 57.57798 58.87156 56.16514
## [993] 58.00000 58.47706 57.93578 59.28440 58.47706 58.34862 56.29358 58.41284
hist(NfinalMedia)
I_mediana=mean(NfinalMedia);I_mediana
## [1] 57.69455
#I_ref=58.21
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans2))^2+(median(NfinalMedia)-median(IH_trans2))^2,2);EE
## [1] 0.15
grupos
#Datos=Palmira[,c(19:34)]
#falta activar incertidumbre
pesos=c(
#voluntariedad
#0.50,0.50,
#conocimiento
#0.171,0.220,0.171,0.195,0.244,
#incertidumbre
#0.032,0.024,0.024,
#confianza gubernamental
#0.241,0.276,0.241,0.241,
#confianza sector salud
#0.438,0.563,
#confianza medios
#0.467,0.533,
#probabilidad de contagio
0.164,0.145,0.164,0.127,0.109,0.145,0.145,
#severidad
0.241,0.276,0.276,0.207,
#susceptibilidad
0.222,0.222,0.194,0.167,0.194
#,
#cumplimiento
#0.190,0.190,0.190,0.143,0.143,0.143
)
PROBABILIDAD DE CONTAGIO
#--------------------------------probabilidad de contagio-----------------------------------
#ProbabilidadContagio=Datos[,c(16:22)]*pesos[c(16:22)];ProbabilidadContagio
temp_K<-c()
lista_vacia <- vector("list", length = 646)
celsius_to_kelvin <- function(temp_C) {
for (i in 1:7) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:7)]
}
return(datosnew)
};ProbabilidadContagio=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(ProbabilidadContagio[ ,1:7]);IH
## [1] 4.358 3.740 5.905 4.523 3.650 2.887 3.796 3.706 5.432 6.050 6.050 3.994
## [13] 4.250 4.250 4.851 5.722 5.432 4.104 4.232 4.378 3.722 3.866 3.526 2.960
## [25] 4.669 3.960 3.396 4.358 5.268 4.504 5.141 4.559 4.287 3.376 5.867 4.850
## [37] 4.741 5.595 6.031 2.944 6.195 3.558 3.415 4.433 3.922 4.668 4.560 4.359
## [49] 5.122 4.887 2.361 4.451 6.050 4.958 3.832 3.614 5.287 4.378 4.888 3.959
## [61] 4.122 4.977 4.139 4.977 2.650 3.941 4.687 4.704 4.034 3.759 5.577 4.611
## [73] 3.414 5.451 4.342 3.852 3.814 5.867 6.195 3.906 5.558 1.454 5.013 4.432
## [85] 5.122 4.287 2.906 3.706 4.577 4.322 6.195 4.359 4.577 3.016 3.777 4.051
## [97] 3.777 4.523 3.142 3.614 3.234 4.105 4.232 5.051 3.687 4.649 5.287 5.886
## [109] 5.595 3.379 5.014 3.233 3.360 4.160 2.869 4.743 3.923 2.706 5.905 4.322
## [121] 4.359 3.158 4.397 5.450 4.486 3.960 3.123 4.377 5.923 4.593 6.068 1.743
## [133] 6.068 5.703 3.597 5.886 6.195 4.394 2.958 4.850 3.253 3.360 5.905 3.886
## [145] 3.032 5.558 4.942 5.905 4.359 4.268 3.360 2.324 3.450 5.577 5.577 4.850
## [157] 4.395 4.868 4.560 3.670 4.812 1.688 4.105 5.886 3.903 3.307 2.687 3.687
## [169] 3.159 4.649 3.650 3.706 4.540 4.144 5.506 4.251 4.596 5.941 2.742 5.558
## [181] 4.415 4.596 4.757 5.033 2.651 4.142 2.724 3.233 4.105 4.232 5.122 3.502
## [193] 4.396 4.741 4.359 3.850 4.100 3.597 3.141 4.251 4.921 4.377 3.777 2.432
## [205] 4.015 5.796 6.195 4.997 4.359 5.413 3.777 3.670 4.359 3.141 5.759 3.703
## [217] 6.050 6.195 4.359 1.853 3.234 4.233 6.195 3.613 3.595 4.250 4.105 4.342
## [229] 4.757 3.614 6.050 6.195 2.976 4.795 3.886 6.195 4.612 5.122 4.579 3.576
## [241] 3.940 4.794 3.940 3.669 4.795 5.159 5.450 4.995 4.883 5.249 3.214 2.869
## [253] 4.359 3.198 5.596 4.850 3.469 5.577 3.851 5.905 4.852 3.032 3.761 4.631
## [265] 3.450 4.649 4.413 5.905 3.469 5.397 6.195 6.195 5.760 4.814 4.321 2.470
## [277] 3.341 4.303 4.250 5.905 5.087 3.560 4.251 5.196 3.666 4.414 3.796 5.467
## [289] 5.413 5.286 4.325 2.959 4.524 2.850 5.140 4.050 3.926 4.523 3.647 3.650
## [301] 3.523 2.977 4.977 1.960 4.032 6.195 3.937 3.633 3.797 3.742 5.123 3.377
## [313] 4.522 3.814 3.815 3.759 3.759 4.924 3.141 5.760 4.560 2.942 4.559 4.705
## [325] 5.050 5.141 6.195 4.977 5.577 4.269 4.723 4.359 3.523 2.778 3.978 4.541
## [337] 6.068 5.103 4.977 5.614 5.487 4.996 4.414 1.761 2.906 3.141 4.448 4.469
## [349] 3.886 2.941 4.303 4.504 6.195 3.105 3.979 3.705 4.176 4.940 1.217 4.011
## [361] 4.287 3.669 3.196 3.796 4.851 3.032 3.504 2.123 4.087 3.833 5.305 6.195
## [373] 4.433 3.742 3.360 4.161 4.686 3.468 3.631 4.360 4.250 3.305 3.360 2.595
## [385] 4.124 4.687 3.595 2.542 3.450 6.050 3.124 4.977 3.795 5.959 3.141 0.999
## [397] 4.014 2.469 4.321 3.759 4.705 4.069 5.032 5.413 4.959 4.687 5.431 6.195
## [409] 3.051 4.214 4.977 3.250 3.105 5.122 4.213 4.813 4.306 5.614 3.232 6.195
## [421] 4.959 3.215 4.269 3.833 3.124 2.887 5.595 4.522 5.506 2.869 3.852 4.596
## [433] 5.923 4.214 5.722 4.340 6.195 4.378 4.631 3.760 4.832 2.813 3.722 4.615
## [445] 6.195 5.122 3.085 3.614 5.596 5.759 4.486 4.249 5.141 5.595 4.560 5.359
## [457] 4.197 4.051 3.705 2.707 4.596 5.867 2.486 3.087 5.104 6.195 5.923 5.669
## [469] 4.850 3.687 3.198 3.540 4.995 2.887 3.452 4.906 2.015 5.905 3.978 4.432
## [481] 3.251 4.852 2.958 3.195 3.722 4.451 5.432 2.833 4.813 4.194 3.687 5.286
## [493] 5.249 4.395 4.667 4.105 5.577 3.431 4.359 3.502 3.089 4.433 4.977 4.504
## [505] 3.014 3.741 3.450 3.706 5.741 4.378 4.340 4.284 4.541 3.614 4.105 5.450
## [517] 4.397 4.542 5.268 3.378 5.539 3.633 2.979 3.886 3.050 5.304 4.012 5.032
## [529] 4.269 4.452 6.195 5.196 5.160 4.123 3.215 5.032 6.195 3.413 5.760 5.359
## [541] 3.830 3.376 5.249 5.632 2.799 4.124 4.668 4.615 4.270 5.905 6.031 4.940
## [553] 1.998 3.792 3.196 3.632 4.794 3.579 2.489 6.195 5.760 1.890 4.485 6.195
## [565] 3.688 5.722 3.996 3.848 3.141 3.578 4.214 5.722 3.959 3.815 4.977 4.668
## [577] 3.943 3.287 4.268 3.885 4.596 3.960 3.577 4.921 4.504 5.413 6.195 3.413
## [589] 5.014 5.432 2.016 4.250 3.159 4.303 4.705 4.615 5.324 3.830 4.359 5.014
## [601] 4.524 4.850 4.831 5.595 3.123 2.234 4.650 3.433 4.415 3.303 3.975 1.434
## [613] 3.795 5.196 3.832 5.013 4.851 3.014 5.015 6.195 3.215 4.415 4.776 5.141
## [625] 5.142 5.249 4.177 2.996 6.195 6.195 6.195 3.268 4.213 2.777 5.141 4.959
## [637] 3.796 4.232 2.595 3.487 3.488 4.959 4.794 4.832 3.650 3.703
data.frame(IH)
## IH
## 1 4.358
## 2 3.740
## 3 5.905
## 4 4.523
## 5 3.650
## 6 2.887
## 7 3.796
## 8 3.706
## 9 5.432
## 10 6.050
## 11 6.050
## 12 3.994
## 13 4.250
## 14 4.250
## 15 4.851
## 16 5.722
## 17 5.432
## 18 4.104
## 19 4.232
## 20 4.378
## 21 3.722
## 22 3.866
## 23 3.526
## 24 2.960
## 25 4.669
## 26 3.960
## 27 3.396
## 28 4.358
## 29 5.268
## 30 4.504
## 31 5.141
## 32 4.559
## 33 4.287
## 34 3.376
## 35 5.867
## 36 4.850
## 37 4.741
## 38 5.595
## 39 6.031
## 40 2.944
## 41 6.195
## 42 3.558
## 43 3.415
## 44 4.433
## 45 3.922
## 46 4.668
## 47 4.560
## 48 4.359
## 49 5.122
## 50 4.887
## 51 2.361
## 52 4.451
## 53 6.050
## 54 4.958
## 55 3.832
## 56 3.614
## 57 5.287
## 58 4.378
## 59 4.888
## 60 3.959
## 61 4.122
## 62 4.977
## 63 4.139
## 64 4.977
## 65 2.650
## 66 3.941
## 67 4.687
## 68 4.704
## 69 4.034
## 70 3.759
## 71 5.577
## 72 4.611
## 73 3.414
## 74 5.451
## 75 4.342
## 76 3.852
## 77 3.814
## 78 5.867
## 79 6.195
## 80 3.906
## 81 5.558
## 82 1.454
## 83 5.013
## 84 4.432
## 85 5.122
## 86 4.287
## 87 2.906
## 88 3.706
## 89 4.577
## 90 4.322
## 91 6.195
## 92 4.359
## 93 4.577
## 94 3.016
## 95 3.777
## 96 4.051
## 97 3.777
## 98 4.523
## 99 3.142
## 100 3.614
## 101 3.234
## 102 4.105
## 103 4.232
## 104 5.051
## 105 3.687
## 106 4.649
## 107 5.287
## 108 5.886
## 109 5.595
## 110 3.379
## 111 5.014
## 112 3.233
## 113 3.360
## 114 4.160
## 115 2.869
## 116 4.743
## 117 3.923
## 118 2.706
## 119 5.905
## 120 4.322
## 121 4.359
## 122 3.158
## 123 4.397
## 124 5.450
## 125 4.486
## 126 3.960
## 127 3.123
## 128 4.377
## 129 5.923
## 130 4.593
## 131 6.068
## 132 1.743
## 133 6.068
## 134 5.703
## 135 3.597
## 136 5.886
## 137 6.195
## 138 4.394
## 139 2.958
## 140 4.850
## 141 3.253
## 142 3.360
## 143 5.905
## 144 3.886
## 145 3.032
## 146 5.558
## 147 4.942
## 148 5.905
## 149 4.359
## 150 4.268
## 151 3.360
## 152 2.324
## 153 3.450
## 154 5.577
## 155 5.577
## 156 4.850
## 157 4.395
## 158 4.868
## 159 4.560
## 160 3.670
## 161 4.812
## 162 1.688
## 163 4.105
## 164 5.886
## 165 3.903
## 166 3.307
## 167 2.687
## 168 3.687
## 169 3.159
## 170 4.649
## 171 3.650
## 172 3.706
## 173 4.540
## 174 4.144
## 175 5.506
## 176 4.251
## 177 4.596
## 178 5.941
## 179 2.742
## 180 5.558
## 181 4.415
## 182 4.596
## 183 4.757
## 184 5.033
## 185 2.651
## 186 4.142
## 187 2.724
## 188 3.233
## 189 4.105
## 190 4.232
## 191 5.122
## 192 3.502
## 193 4.396
## 194 4.741
## 195 4.359
## 196 3.850
## 197 4.100
## 198 3.597
## 199 3.141
## 200 4.251
## 201 4.921
## 202 4.377
## 203 3.777
## 204 2.432
## 205 4.015
## 206 5.796
## 207 6.195
## 208 4.997
## 209 4.359
## 210 5.413
## 211 3.777
## 212 3.670
## 213 4.359
## 214 3.141
## 215 5.759
## 216 3.703
## 217 6.050
## 218 6.195
## 219 4.359
## 220 1.853
## 221 3.234
## 222 4.233
## 223 6.195
## 224 3.613
## 225 3.595
## 226 4.250
## 227 4.105
## 228 4.342
## 229 4.757
## 230 3.614
## 231 6.050
## 232 6.195
## 233 2.976
## 234 4.795
## 235 3.886
## 236 6.195
## 237 4.612
## 238 5.122
## 239 4.579
## 240 3.576
## 241 3.940
## 242 4.794
## 243 3.940
## 244 3.669
## 245 4.795
## 246 5.159
## 247 5.450
## 248 4.995
## 249 4.883
## 250 5.249
## 251 3.214
## 252 2.869
## 253 4.359
## 254 3.198
## 255 5.596
## 256 4.850
## 257 3.469
## 258 5.577
## 259 3.851
## 260 5.905
## 261 4.852
## 262 3.032
## 263 3.761
## 264 4.631
## 265 3.450
## 266 4.649
## 267 4.413
## 268 5.905
## 269 3.469
## 270 5.397
## 271 6.195
## 272 6.195
## 273 5.760
## 274 4.814
## 275 4.321
## 276 2.470
## 277 3.341
## 278 4.303
## 279 4.250
## 280 5.905
## 281 5.087
## 282 3.560
## 283 4.251
## 284 5.196
## 285 3.666
## 286 4.414
## 287 3.796
## 288 5.467
## 289 5.413
## 290 5.286
## 291 4.325
## 292 2.959
## 293 4.524
## 294 2.850
## 295 5.140
## 296 4.050
## 297 3.926
## 298 4.523
## 299 3.647
## 300 3.650
## 301 3.523
## 302 2.977
## 303 4.977
## 304 1.960
## 305 4.032
## 306 6.195
## 307 3.937
## 308 3.633
## 309 3.797
## 310 3.742
## 311 5.123
## 312 3.377
## 313 4.522
## 314 3.814
## 315 3.815
## 316 3.759
## 317 3.759
## 318 4.924
## 319 3.141
## 320 5.760
## 321 4.560
## 322 2.942
## 323 4.559
## 324 4.705
## 325 5.050
## 326 5.141
## 327 6.195
## 328 4.977
## 329 5.577
## 330 4.269
## 331 4.723
## 332 4.359
## 333 3.523
## 334 2.778
## 335 3.978
## 336 4.541
## 337 6.068
## 338 5.103
## 339 4.977
## 340 5.614
## 341 5.487
## 342 4.996
## 343 4.414
## 344 1.761
## 345 2.906
## 346 3.141
## 347 4.448
## 348 4.469
## 349 3.886
## 350 2.941
## 351 4.303
## 352 4.504
## 353 6.195
## 354 3.105
## 355 3.979
## 356 3.705
## 357 4.176
## 358 4.940
## 359 1.217
## 360 4.011
## 361 4.287
## 362 3.669
## 363 3.196
## 364 3.796
## 365 4.851
## 366 3.032
## 367 3.504
## 368 2.123
## 369 4.087
## 370 3.833
## 371 5.305
## 372 6.195
## 373 4.433
## 374 3.742
## 375 3.360
## 376 4.161
## 377 4.686
## 378 3.468
## 379 3.631
## 380 4.360
## 381 4.250
## 382 3.305
## 383 3.360
## 384 2.595
## 385 4.124
## 386 4.687
## 387 3.595
## 388 2.542
## 389 3.450
## 390 6.050
## 391 3.124
## 392 4.977
## 393 3.795
## 394 5.959
## 395 3.141
## 396 0.999
## 397 4.014
## 398 2.469
## 399 4.321
## 400 3.759
## 401 4.705
## 402 4.069
## 403 5.032
## 404 5.413
## 405 4.959
## 406 4.687
## 407 5.431
## 408 6.195
## 409 3.051
## 410 4.214
## 411 4.977
## 412 3.250
## 413 3.105
## 414 5.122
## 415 4.213
## 416 4.813
## 417 4.306
## 418 5.614
## 419 3.232
## 420 6.195
## 421 4.959
## 422 3.215
## 423 4.269
## 424 3.833
## 425 3.124
## 426 2.887
## 427 5.595
## 428 4.522
## 429 5.506
## 430 2.869
## 431 3.852
## 432 4.596
## 433 5.923
## 434 4.214
## 435 5.722
## 436 4.340
## 437 6.195
## 438 4.378
## 439 4.631
## 440 3.760
## 441 4.832
## 442 2.813
## 443 3.722
## 444 4.615
## 445 6.195
## 446 5.122
## 447 3.085
## 448 3.614
## 449 5.596
## 450 5.759
## 451 4.486
## 452 4.249
## 453 5.141
## 454 5.595
## 455 4.560
## 456 5.359
## 457 4.197
## 458 4.051
## 459 3.705
## 460 2.707
## 461 4.596
## 462 5.867
## 463 2.486
## 464 3.087
## 465 5.104
## 466 6.195
## 467 5.923
## 468 5.669
## 469 4.850
## 470 3.687
## 471 3.198
## 472 3.540
## 473 4.995
## 474 2.887
## 475 3.452
## 476 4.906
## 477 2.015
## 478 5.905
## 479 3.978
## 480 4.432
## 481 3.251
## 482 4.852
## 483 2.958
## 484 3.195
## 485 3.722
## 486 4.451
## 487 5.432
## 488 2.833
## 489 4.813
## 490 4.194
## 491 3.687
## 492 5.286
## 493 5.249
## 494 4.395
## 495 4.667
## 496 4.105
## 497 5.577
## 498 3.431
## 499 4.359
## 500 3.502
## 501 3.089
## 502 4.433
## 503 4.977
## 504 4.504
## 505 3.014
## 506 3.741
## 507 3.450
## 508 3.706
## 509 5.741
## 510 4.378
## 511 4.340
## 512 4.284
## 513 4.541
## 514 3.614
## 515 4.105
## 516 5.450
## 517 4.397
## 518 4.542
## 519 5.268
## 520 3.378
## 521 5.539
## 522 3.633
## 523 2.979
## 524 3.886
## 525 3.050
## 526 5.304
## 527 4.012
## 528 5.032
## 529 4.269
## 530 4.452
## 531 6.195
## 532 5.196
## 533 5.160
## 534 4.123
## 535 3.215
## 536 5.032
## 537 6.195
## 538 3.413
## 539 5.760
## 540 5.359
## 541 3.830
## 542 3.376
## 543 5.249
## 544 5.632
## 545 2.799
## 546 4.124
## 547 4.668
## 548 4.615
## 549 4.270
## 550 5.905
## 551 6.031
## 552 4.940
## 553 1.998
## 554 3.792
## 555 3.196
## 556 3.632
## 557 4.794
## 558 3.579
## 559 2.489
## 560 6.195
## 561 5.760
## 562 1.890
## 563 4.485
## 564 6.195
## 565 3.688
## 566 5.722
## 567 3.996
## 568 3.848
## 569 3.141
## 570 3.578
## 571 4.214
## 572 5.722
## 573 3.959
## 574 3.815
## 575 4.977
## 576 4.668
## 577 3.943
## 578 3.287
## 579 4.268
## 580 3.885
## 581 4.596
## 582 3.960
## 583 3.577
## 584 4.921
## 585 4.504
## 586 5.413
## 587 6.195
## 588 3.413
## 589 5.014
## 590 5.432
## 591 2.016
## 592 4.250
## 593 3.159
## 594 4.303
## 595 4.705
## 596 4.615
## 597 5.324
## 598 3.830
## 599 4.359
## 600 5.014
## 601 4.524
## 602 4.850
## 603 4.831
## 604 5.595
## 605 3.123
## 606 2.234
## 607 4.650
## 608 3.433
## 609 4.415
## 610 3.303
## 611 3.975
## 612 1.434
## 613 3.795
## 614 5.196
## 615 3.832
## 616 5.013
## 617 4.851
## 618 3.014
## 619 5.015
## 620 6.195
## 621 3.215
## 622 4.415
## 623 4.776
## 624 5.141
## 625 5.142
## 626 5.249
## 627 4.177
## 628 2.996
## 629 6.195
## 630 6.195
## 631 6.195
## 632 3.268
## 633 4.213
## 634 2.777
## 635 5.141
## 636 4.959
## 637 3.796
## 638 4.232
## 639 2.595
## 640 3.487
## 641 3.488
## 642 4.959
## 643 4.794
## 644 4.832
## 645 3.650
## 646 3.703
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans62=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans62)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 50.98 64.30 63.98 76.94 100.00
round(sd(IH_trans62),2)
## [1] 19.47
#hist(IH_trans6,col="azure2",xlab="IPPC",main = "Distribución de IPPC",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=Palmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 1:7) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(1:7)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:7])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 64.64588 65.03079 64.66513 63.93380 63.27945 64.66513 64.33795 63.78945
## [9] 63.08699 64.33795 63.27945 64.83834 63.61624 64.66513 65.01155 63.95304
## [17] 64.31871 63.27945 65.39646 63.61624 64.64588 63.94342 64.66513 64.66513
## [25] 63.27945 64.66513 64.64588 63.58737 64.64588 63.98191 64.66513 64.65550
## [33] 64.66513 64.33795 64.66513 63.78945 62.56736 64.84796 65.03079 63.58737
## [41] 64.66513 64.33795 64.49192 62.93303 64.65550 64.12625 64.66513 64.65550
## [49] 62.94265 62.94265 63.95304 63.27945 62.92340 62.56736 64.66513 63.98191
## [57] 64.12625 63.64511 64.66513 62.93303 64.67475 64.66513 63.58737 64.29946
## [65] 64.66513 64.33795 64.33795 64.66513 65.37721 62.22094 65.03079 63.22171
## [73] 64.01078 64.66513 63.58737 62.93303 64.65550 65.03079 64.31871 64.12625
## [81] 64.66513 64.33795 63.93380 64.49192 64.66513 65.03079 62.22094 63.94342
## [89] 62.91378 62.57698 64.66513 62.93303 63.93380 65.74288 63.93380 64.66513
## [97] 64.66513 64.64588 64.66513 64.66513 63.27945 64.64588 62.93303 63.61624
## [105] 63.43341 65.01155 62.58661 63.25058 64.49192 64.29946 63.64511 63.08699
## [113] 64.66513 64.66513 62.91378 64.33795 63.27945 64.66513 64.49192 64.66513
## [121] 64.66513 63.58737 63.43341 64.66513 62.93303 64.64588 63.93380 63.94342
## [129] 62.54811 64.15512 62.56736 63.93380 64.66513 63.58737 64.66513 62.94265
## [137] 65.03079 63.94342 63.61624 63.93380 64.66513 64.66513 64.66513 64.31871
## [145] 63.27945 63.58737 64.66513 63.98191 63.82794 63.95304 64.66513 65.03079
## [153] 63.58737 63.60662 62.56736 62.58661 64.66513 64.31871 65.03079 64.66513
## [161] 63.94342 63.22171 63.93380 65.01155 64.84796 63.78945 64.66513 64.65550
## [169] 63.58737 63.27945 63.61624 65.03079 65.18476 65.03079 65.02117 63.95304
## [177] 64.31871 64.66513 62.93303 65.01155 63.43341 64.31871 64.64588 63.27945
## [185] 64.33795 64.66513 64.64588 64.12625 63.93380 63.58737 63.98191 64.12625
## [193] 62.91378 63.98191 64.29946 64.66513 64.01078 64.68437 64.33795 65.02117
## [201] 64.66513 64.29946 63.61624 64.66513 64.66513 64.66513 63.79908 64.33795
## [209] 62.58661 64.66513 64.66513 62.58661 63.43341 64.66513 64.66513 63.76059
## [217] 64.66513 64.66513 63.58737 63.61624 64.66513 64.66513 64.66513 63.78945
## [225] 64.66513 63.26982 65.55042 63.61624 64.66513 64.66513 62.93303 64.33795
## [233] 64.31871 63.58737 65.03079 62.91378 63.58737 65.19438 62.58661 64.65550
## [241] 63.58737 64.15512 63.58737 64.65550 64.66513 63.27945 64.66513 62.93303
## [249] 64.66513 62.94265 64.66513 62.93303 64.64588 63.94342 62.22094 63.76059
## [257] 66.07005 64.12625 64.66513 64.66513 64.15512 63.95304 64.29946 65.73326
## [265] 65.70439 63.43341 64.29946 63.58737 64.31871 64.65550 64.66513 62.22094
## [273] 63.98191 64.66513 64.65550 65.03079 65.33872 64.33795 63.64511 63.25058
## [281] 64.66513 62.56736 62.56736 63.64511 64.66513 64.66513 64.01078 64.15512
## [289] 64.66513 63.27945 64.66513 64.66513 64.66513 64.66513 63.43341 64.66513
## [297] 63.27945 63.27945 62.75019 63.08699 64.64588 65.37721 64.66513 63.97229
## [305] 64.33795 63.58737 64.01078 64.01078 65.39646 64.66513 63.27945 65.19438
## [313] 64.15512 63.27945 63.98191 64.66513 63.93380 64.31871 63.94342 64.29946
## [321] 64.33795 64.66513 63.94342 64.66513 64.50154 65.33872 64.66513 64.33795
## [329] 64.66513 64.29946 63.61624 64.66513 64.65550 64.01078 64.49192 63.94342
## [337] 63.27945 64.64588 63.58737 64.01078 64.66513 63.25058 63.58737 64.15512
## [345] 64.49192 63.27945 64.31871 64.33795 64.66513 63.25058 64.66513 63.27945
## [353] 64.31871 63.22171 64.49192 62.56736 63.98191 64.64588 63.78945 63.43341
## [361] 64.15512 64.66513 64.66513 64.49192 64.66513 63.95304 64.33795 63.27945
## [369] 63.43341 64.66513 64.01078 63.94342 63.93380 64.31871 63.58737 64.65550
## [377] 64.64588 63.98191 62.56736 63.95304 62.56736 63.95304 65.03079 64.31871
## [385] 63.27945 64.66513 64.33795 64.31871 64.66513 64.65550 62.95227 62.95227
## [393] 63.58737 64.66513 63.58737 64.29946 62.57698 63.93380 62.95227 62.92340
## [401] 62.93303 64.15512 63.98191 64.66513 63.98191 65.19438 64.67475 64.84796
## [409] 62.93303 62.94265 62.56736 65.33872 63.58737 64.66513 63.98191 64.29946
## [417] 64.66513 65.03079 64.66513 63.64511 65.01155 62.93303 63.94342 64.66513
## [425] 64.17436 64.83834 63.61624 64.66513 62.57698 63.78945 64.29946 64.66513
## [433] 64.49192 63.95304 64.01078 64.66513 65.03079 63.27945 62.75019 63.93380
## [441] 64.15512 64.33795 64.66513 63.58737 63.58737 64.64588 64.66513 64.65550
## [449] 63.93380 63.27945 64.66513 64.64588 62.58661 64.31871 62.93303 64.33795
## [457] 63.08699 65.03079 64.64588 65.03079 65.35797 64.47267 63.58737 64.66513
## [465] 64.66513 64.29946 64.66513 63.27945 63.94342 63.94342 63.27945 62.57698
## [473] 64.66513 64.66513 61.54734 65.03079 62.57698 63.82794 63.27945 64.66513
## [481] 63.27945 65.03079 63.58737 63.27945 62.91378 64.66513 63.95304 64.66513
## [489] 64.66513 63.40454 64.67475 63.61624 63.58737 65.38684 64.66513 63.94342
## [497] 64.84796 63.22171 63.58737 64.66513 63.98191 64.66513 64.66513 63.78945
## [505] 64.49192 64.66513 63.58737 64.64588 65.01155 63.93380 64.64588 62.57698
## [513] 63.93380 63.95304 63.64511 64.33795 64.15512 64.66513 63.58737 63.93380
## [521] 64.31871 64.31871 63.95304 62.93303 64.66513 64.33795 63.58737 65.02117
## [529] 64.66513 62.57698 62.58661 64.12625 63.22171 64.29946 63.95304 64.65550
## [537] 64.66513 63.98191 62.93303 64.49192 64.67475 63.79908 63.61624 64.64588
## [545] 64.66513 63.43341 64.29946 64.66513 61.85527 64.66513 64.66513 64.65550
## [553] 64.66513 64.29946 64.15512 64.33795 64.66513 64.66513 62.95227 64.33795
## [561] 62.91378 65.01155 62.58661 64.67475 64.66513 64.67475 64.66513 64.66513
## [569] 64.29946 63.94342 63.94342 64.29946 63.43341 62.56736 64.66513 62.56736
## [577] 64.66513 65.02117 63.27945 63.95304 64.66513 64.66513 65.02117 65.19438
## [585] 65.03079 64.67475 64.67475 64.64588 64.64588 64.66513 64.64588 64.12625
## [593] 64.29946 64.66513 63.58737 63.76059 65.01155 64.65550 64.66513 63.64511
## [601] 62.56736 64.33795 63.27945 64.66513 65.35797 64.66513 63.64511 64.31871
## [609] 62.75019 63.95304 64.83834 65.74288 65.74288 63.93380 63.06774 63.27945
## [617] 63.94342 64.15512 64.66513 62.93303 64.49192 62.93303 64.68437 63.93380
## [625] 63.58737 63.58737 63.95304 63.95304 62.56736 64.66513 63.64511 63.58737
## [633] 64.65550 64.66513 64.66513 63.97229 64.66513 64.29946 63.27945 64.66513
## [641] 64.33795 64.84796 63.93380 63.22171 63.27945 64.66513 64.66513 64.64588
## [649] 63.27945 63.93380 61.87452 64.29946 63.27945 63.93380 64.11663 64.29946
## [657] 63.58737 63.27945 62.56736 64.15512 64.66513 64.66513 64.66513 64.33795
## [665] 62.93303 63.93380 64.65550 64.29946 64.66513 65.02117 64.66513 64.66513
## [673] 64.66513 64.66513 64.66513 64.66513 64.49192 62.95227 64.68437 63.95304
## [681] 64.66513 65.03079 65.35797 64.31871 64.31871 64.31871 64.66513 63.25058
## [689] 62.91378 64.67475 64.64588 62.93303 63.27945 64.66513 62.58661 64.66513
## [697] 63.76059 64.65550 65.02117 62.93303 62.93303 63.58737 62.56736 63.27945
## [705] 64.47267 63.43341 64.31871 62.57698 64.31871 62.75019 63.27945 63.25058
## [713] 62.58661 64.66513 64.66513 64.66513 64.01078 64.66513 64.12625 63.93380
## [721] 63.27945 65.01155 63.95304 65.02117 65.03079 64.65550 62.75019 65.03079
## [729] 63.95304 64.64588 64.65550 65.03079 62.56736 64.66513 64.11663 64.31871
## [737] 63.58737 63.76059 63.58737 63.27945 63.76059 63.97229 63.27945 64.64588
## [745] 63.27945 63.76059 65.18476 62.56736 62.75019 62.56736 62.94265 62.93303
## [753] 64.65550 62.93303 64.29946 64.66513 65.01155 64.33795 64.66513 63.94342
## [761] 63.27945 64.66513 62.58661 64.66513 64.66513 63.58737 63.93380 63.93380
## [769] 64.66513 63.58737 63.27945 64.49192 65.35797 62.91378 64.66513 62.39415
## [777] 65.18476 63.58737 64.29946 64.15512 63.95304 63.43341 64.66513 64.01078
## [785] 65.01155 64.66513 63.98191 64.66513 64.65550 64.66513 62.56736 64.66513
## [793] 63.93380 65.37721 65.03079 63.27945 63.93380 62.58661 63.27945 63.98191
## [801] 64.66513 64.65550 65.03079 64.29946 64.49192 63.27945 63.58737 64.85758
## [809] 63.25058 64.17436 63.58737 64.66513 63.27945 64.66513 64.29946 63.95304
## [817] 63.78945 64.33795 64.66513 64.49192 64.49192 63.27945 62.56736 64.64588
## [825] 64.33795 63.95304 64.66513 62.56736 64.64588 64.29946 63.95304 63.95304
## [833] 62.93303 62.94265 63.27945 63.43341 64.29946 64.33795 64.66513 64.65550
## [841] 62.58661 63.61624 65.74288 64.49192 63.93380 64.29946 64.15512 64.66513
## [849] 64.01078 62.93303 63.58737 64.12625 65.03079 63.58737 64.66513 63.43341
## [857] 64.65550 64.15512 65.37721 64.66513 64.64588 63.95304 64.66513 64.66513
## [865] 63.27945 63.58737 63.95304 62.92340 65.01155 63.93380 64.64588 64.66513
## [873] 63.76059 64.29946 62.56736 63.94342 64.66513 64.66513 64.66513 62.56736
## [881] 64.66513 64.66513 64.31871 64.66513 63.78945 64.01078 63.43341 63.98191
## [889] 64.66513 63.61624 62.22094 64.31871 64.85758 63.27945 64.66513 65.03079
## [897] 64.29946 65.01155 63.58737 62.23056 64.66513 62.92340 64.31871 64.31871
## [905] 63.94342 64.29946 62.58661 63.58737 64.29946 63.97229 63.27945 64.66513
## [913] 63.98191 63.78945 64.66513 64.66513 64.49192 62.91378 64.29946 62.93303
## [921] 63.95304 64.66513 65.34834 64.33795 62.56736 63.58737 64.66513 64.66513
## [929] 63.61624 64.66513 64.49192 64.66513 64.31871 65.03079 64.49192 64.64588
## [937] 64.64588 63.25058 63.95304 64.66513 64.66513 65.03079 64.66513 64.64588
## [945] 64.66513 64.66513 65.02117 62.93303 64.66513 63.58737 63.27945 64.33795
## [953] 63.25058 64.64588 64.66513 64.15512 63.27945 64.66513 64.33795 63.61624
## [961] 64.31871 64.65550 63.43341 64.33795 64.66513 64.84796 63.27945 64.65550
## [969] 63.58737 64.66513 64.29946 64.15512 62.94265 64.65550 66.07005 63.27945
## [977] 63.58737 63.94342 63.22171 63.78945 64.66513 63.27945 64.66513 64.84796
## [985] 63.78945 65.72363 62.56736 64.33795 63.78945 64.29946 64.65550 63.94342
## [993] 63.79908 64.66513 63.79908 62.75019 64.66513 62.91378 62.94265 64.66513
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
#I_ref=64.32
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans62))^2+(median(NfinalMedia)-median(IH_trans62))^2,2);EE
## [1] 44.09
SEVERIDAD
#--------------------------------severidad-----------------------------------
#severidad=Datos[,c(23:26)]*pesos[c(23:26)];severidad
temp_K<-c()
lista_vacia <- vector("list", length = 646)
celsius_to_kelvin <- function(temp_C) {
for (i in 8:11) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(8:11)]
}
return(datosnew)
};severidad=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(severidad[ ,1:4]);IH
## [1] 3.690 1.241 2.034 3.793 4.931 2.552 4.241 4.276 4.000 5.172 6.724 3.034
## [13] 2.241 2.862 4.000 4.448 5.172 5.000 4.965 6.172 5.827 5.069 4.000 2.517
## [25] 4.689 1.965 2.482 3.517 4.138 3.241 3.241 4.965 5.034 2.758 3.482 5.241
## [37] 3.965 6.241 5.517 3.724 6.000 4.241 4.827 4.000 3.517 5.517 4.000 3.965
## [49] 4.448 3.482 4.689 4.483 5.724 7.000 3.792 2.482 7.000 6.793 3.448 3.241
## [61] 3.999 4.965 2.758 5.276 2.792 3.517 5.793 5.517 2.482 4.276 7.000 3.758
## [73] 2.448 4.655 5.517 3.724 3.448 7.000 7.000 3.517 4.931 1.517 4.000 4.276
## [85] 5.758 3.517 3.034 4.000 5.034 4.758 4.965 4.966 2.000 2.758 2.758 5.241
## [97] 5.827 4.758 2.965 5.551 1.000 3.517 4.517 4.275 2.414 2.241 2.000 4.310
## [109] 6.000 5.000 6.241 2.241 4.793 4.000 4.517 1.482 5.482 7.000 5.758 4.792
## [121] 5.965 4.516 5.000 3.965 5.275 2.758 5.758 3.723 4.897 4.482 3.000 1.965
## [133] 4.172 3.965 4.241 3.482 4.000 3.069 2.516 6.000 5.000 2.758 4.000 3.517
## [145] 3.517 6.724 5.000 7.000 4.758 3.965 2.724 5.758 5.517 5.413 5.344 6.724
## [157] 5.000 4.517 5.000 1.793 4.483 4.102 6.034 5.000 4.000 3.241 2.034 3.861
## [169] 3.240 5.000 5.310 3.793 5.482 7.000 3.310 4.586 6.000 6.000 4.068 6.277
## [181] 4.758 4.724 3.240 5.241 3.000 3.000 2.827 3.517 3.034 4.724 4.068 6.379
## [193] 5.517 6.724 4.965 4.034 4.758 4.689 3.482 5.344 6.448 4.965 5.000 4.103
## [205] 2.723 3.413 6.517 5.896 5.413 5.276 4.517 4.000 4.793 4.861 3.172 4.033
## [217] 5.551 5.689 4.241 2.000 1.724 5.758 5.966 3.414 5.311 5.241 5.207 4.932
## [229] 2.999 3.241 7.000 4.000 4.516 4.241 7.000 4.930 3.861 5.034 5.173 2.000
## [241] 3.241 3.689 2.482 2.759 6.724 4.965 6.034 6.276 6.448 6.172 3.655 3.241
## [253] 5.517 3.691 3.000 4.723 4.758 6.517 4.000 5.482 5.344 4.241 4.000 4.241
## [265] 4.068 4.241 2.241 6.034 4.654 7.000 7.000 3.758 4.447 5.517 3.724 3.000
## [277] 3.552 5.965 2.758 2.448 6.000 4.241 2.758 5.483 6.207 3.758 4.999 6.793
## [289] 5.448 4.517 5.758 4.000 2.482 5.517 4.793 6.276 3.274 5.517 3.966 4.033
## [301] 4.275 4.378 5.517 4.896 3.000 6.172 3.965 3.724 3.793 4.517 4.654 4.723
## [313] 7.000 4.241 4.000 3.965 3.000 6.241 5.413 7.000 2.654 2.724 3.276 3.689
## [325] 5.000 3.034 7.000 4.965 7.000 4.034 4.000 3.517 4.758 4.000 4.724 3.758
## [337] 3.724 6.000 4.654 4.171 6.241 4.207 5.276 1.000 2.517 4.517 5.344 4.241
## [349] 6.517 3.689 5.483 3.724 4.656 4.586 4.276 4.965 6.241 4.276 1.000 3.241
## [361] 4.827 4.758 3.517 4.241 6.276 6.000 5.034 2.446 2.414 4.758 6.241 5.724
## [373] 3.000 3.758 2.517 5.241 3.551 4.551 2.482 4.000 4.000 6.172 4.999 3.550
## [385] 4.448 2.241 2.483 3.516 2.448 6.724 3.965 5.000 4.241 6.241 4.793 1.000
## [397] 3.896 3.173 3.725 4.759 3.276 4.724 3.483 5.000 4.000 3.275 5.965 7.000
## [409] 2.448 3.861 4.724 7.000 3.757 4.724 2.965 5.241 4.000 6.277 3.724 4.827
## [421] 6.069 3.793 5.517 2.276 4.034 3.448 6.517 5.689 4.241 5.724 5.034 4.482
## [433] 4.585 4.309 6.241 4.758 4.483 3.896 3.724 4.758 4.517 4.930 5.482 4.517
## [445] 5.000 4.448 6.103 3.310 4.827 4.207 5.449 4.517 3.758 6.034 5.068 6.241
## [457] 4.827 7.000 5.275 3.241 4.724 3.448 5.896 2.690 6.586 6.724 5.724 5.965
## [469] 6.241 2.758 3.276 5.551 3.861 2.586 3.896 3.034 7.000 2.241 5.000 5.793
## [481] 3.000 5.069 2.034 3.827 3.517 5.000 5.241 2.724 5.758 4.861 2.724 6.483
## [493] 4.448 7.000 5.483 4.000 5.793 3.276 5.034 5.551 4.999 1.724 5.000 4.482
## [505] 2.999 3.759 4.310 3.724 5.000 7.000 4.345 5.206 5.069 6.310 4.758 4.241
## [517] 3.276 4.793 4.241 4.517 4.724 3.034 2.724 6.034 2.000 5.482 4.724 5.241
## [529] 4.482 2.931 7.000 6.000 5.965 7.000 4.069 4.517 6.172 6.103 5.551 4.276
## [541] 4.861 4.654 6.517 2.999 4.000 4.241 5.206 4.552 2.275 5.000 3.689 5.517
## [553] 2.552 6.448 4.999 3.758 2.965 2.724 2.759 7.000 4.241 2.518 4.000 7.000
## [565] 4.138 4.724 4.000 3.862 3.792 3.964 7.000 4.724 5.586 2.000 3.000 4.517
## [577] 3.482 3.000 3.758 4.173 4.758 4.000 3.757 5.793 5.759 4.620 5.068 3.481
## [589] 4.482 4.138 2.000 4.241 4.000 5.206 3.448 4.345 2.483 4.310 3.000 4.759
## [601] 3.759 5.276 2.517 5.034 4.620 2.000 4.792 3.241 7.000 4.309 4.207 1.000
## [613] 4.999 4.240 4.482 5.103 5.000 3.034 5.758 7.000 6.034 4.241 4.068 5.276
## [625] 4.896 4.033 4.069 5.206 5.551 4.792 7.000 7.000 3.724 7.000 4.000 7.000
## [637] 4.758 4.517 7.000 4.000 3.033 2.517 4.793 4.275 5.793 4.621
data.frame(IH)
## IH
## 1 3.690
## 2 1.241
## 3 2.034
## 4 3.793
## 5 4.931
## 6 2.552
## 7 4.241
## 8 4.276
## 9 4.000
## 10 5.172
## 11 6.724
## 12 3.034
## 13 2.241
## 14 2.862
## 15 4.000
## 16 4.448
## 17 5.172
## 18 5.000
## 19 4.965
## 20 6.172
## 21 5.827
## 22 5.069
## 23 4.000
## 24 2.517
## 25 4.689
## 26 1.965
## 27 2.482
## 28 3.517
## 29 4.138
## 30 3.241
## 31 3.241
## 32 4.965
## 33 5.034
## 34 2.758
## 35 3.482
## 36 5.241
## 37 3.965
## 38 6.241
## 39 5.517
## 40 3.724
## 41 6.000
## 42 4.241
## 43 4.827
## 44 4.000
## 45 3.517
## 46 5.517
## 47 4.000
## 48 3.965
## 49 4.448
## 50 3.482
## 51 4.689
## 52 4.483
## 53 5.724
## 54 7.000
## 55 3.792
## 56 2.482
## 57 7.000
## 58 6.793
## 59 3.448
## 60 3.241
## 61 3.999
## 62 4.965
## 63 2.758
## 64 5.276
## 65 2.792
## 66 3.517
## 67 5.793
## 68 5.517
## 69 2.482
## 70 4.276
## 71 7.000
## 72 3.758
## 73 2.448
## 74 4.655
## 75 5.517
## 76 3.724
## 77 3.448
## 78 7.000
## 79 7.000
## 80 3.517
## 81 4.931
## 82 1.517
## 83 4.000
## 84 4.276
## 85 5.758
## 86 3.517
## 87 3.034
## 88 4.000
## 89 5.034
## 90 4.758
## 91 4.965
## 92 4.966
## 93 2.000
## 94 2.758
## 95 2.758
## 96 5.241
## 97 5.827
## 98 4.758
## 99 2.965
## 100 5.551
## 101 1.000
## 102 3.517
## 103 4.517
## 104 4.275
## 105 2.414
## 106 2.241
## 107 2.000
## 108 4.310
## 109 6.000
## 110 5.000
## 111 6.241
## 112 2.241
## 113 4.793
## 114 4.000
## 115 4.517
## 116 1.482
## 117 5.482
## 118 7.000
## 119 5.758
## 120 4.792
## 121 5.965
## 122 4.516
## 123 5.000
## 124 3.965
## 125 5.275
## 126 2.758
## 127 5.758
## 128 3.723
## 129 4.897
## 130 4.482
## 131 3.000
## 132 1.965
## 133 4.172
## 134 3.965
## 135 4.241
## 136 3.482
## 137 4.000
## 138 3.069
## 139 2.516
## 140 6.000
## 141 5.000
## 142 2.758
## 143 4.000
## 144 3.517
## 145 3.517
## 146 6.724
## 147 5.000
## 148 7.000
## 149 4.758
## 150 3.965
## 151 2.724
## 152 5.758
## 153 5.517
## 154 5.413
## 155 5.344
## 156 6.724
## 157 5.000
## 158 4.517
## 159 5.000
## 160 1.793
## 161 4.483
## 162 4.102
## 163 6.034
## 164 5.000
## 165 4.000
## 166 3.241
## 167 2.034
## 168 3.861
## 169 3.240
## 170 5.000
## 171 5.310
## 172 3.793
## 173 5.482
## 174 7.000
## 175 3.310
## 176 4.586
## 177 6.000
## 178 6.000
## 179 4.068
## 180 6.277
## 181 4.758
## 182 4.724
## 183 3.240
## 184 5.241
## 185 3.000
## 186 3.000
## 187 2.827
## 188 3.517
## 189 3.034
## 190 4.724
## 191 4.068
## 192 6.379
## 193 5.517
## 194 6.724
## 195 4.965
## 196 4.034
## 197 4.758
## 198 4.689
## 199 3.482
## 200 5.344
## 201 6.448
## 202 4.965
## 203 5.000
## 204 4.103
## 205 2.723
## 206 3.413
## 207 6.517
## 208 5.896
## 209 5.413
## 210 5.276
## 211 4.517
## 212 4.000
## 213 4.793
## 214 4.861
## 215 3.172
## 216 4.033
## 217 5.551
## 218 5.689
## 219 4.241
## 220 2.000
## 221 1.724
## 222 5.758
## 223 5.966
## 224 3.414
## 225 5.311
## 226 5.241
## 227 5.207
## 228 4.932
## 229 2.999
## 230 3.241
## 231 7.000
## 232 4.000
## 233 4.516
## 234 4.241
## 235 7.000
## 236 4.930
## 237 3.861
## 238 5.034
## 239 5.173
## 240 2.000
## 241 3.241
## 242 3.689
## 243 2.482
## 244 2.759
## 245 6.724
## 246 4.965
## 247 6.034
## 248 6.276
## 249 6.448
## 250 6.172
## 251 3.655
## 252 3.241
## 253 5.517
## 254 3.691
## 255 3.000
## 256 4.723
## 257 4.758
## 258 6.517
## 259 4.000
## 260 5.482
## 261 5.344
## 262 4.241
## 263 4.000
## 264 4.241
## 265 4.068
## 266 4.241
## 267 2.241
## 268 6.034
## 269 4.654
## 270 7.000
## 271 7.000
## 272 3.758
## 273 4.447
## 274 5.517
## 275 3.724
## 276 3.000
## 277 3.552
## 278 5.965
## 279 2.758
## 280 2.448
## 281 6.000
## 282 4.241
## 283 2.758
## 284 5.483
## 285 6.207
## 286 3.758
## 287 4.999
## 288 6.793
## 289 5.448
## 290 4.517
## 291 5.758
## 292 4.000
## 293 2.482
## 294 5.517
## 295 4.793
## 296 6.276
## 297 3.274
## 298 5.517
## 299 3.966
## 300 4.033
## 301 4.275
## 302 4.378
## 303 5.517
## 304 4.896
## 305 3.000
## 306 6.172
## 307 3.965
## 308 3.724
## 309 3.793
## 310 4.517
## 311 4.654
## 312 4.723
## 313 7.000
## 314 4.241
## 315 4.000
## 316 3.965
## 317 3.000
## 318 6.241
## 319 5.413
## 320 7.000
## 321 2.654
## 322 2.724
## 323 3.276
## 324 3.689
## 325 5.000
## 326 3.034
## 327 7.000
## 328 4.965
## 329 7.000
## 330 4.034
## 331 4.000
## 332 3.517
## 333 4.758
## 334 4.000
## 335 4.724
## 336 3.758
## 337 3.724
## 338 6.000
## 339 4.654
## 340 4.171
## 341 6.241
## 342 4.207
## 343 5.276
## 344 1.000
## 345 2.517
## 346 4.517
## 347 5.344
## 348 4.241
## 349 6.517
## 350 3.689
## 351 5.483
## 352 3.724
## 353 4.656
## 354 4.586
## 355 4.276
## 356 4.965
## 357 6.241
## 358 4.276
## 359 1.000
## 360 3.241
## 361 4.827
## 362 4.758
## 363 3.517
## 364 4.241
## 365 6.276
## 366 6.000
## 367 5.034
## 368 2.446
## 369 2.414
## 370 4.758
## 371 6.241
## 372 5.724
## 373 3.000
## 374 3.758
## 375 2.517
## 376 5.241
## 377 3.551
## 378 4.551
## 379 2.482
## 380 4.000
## 381 4.000
## 382 6.172
## 383 4.999
## 384 3.550
## 385 4.448
## 386 2.241
## 387 2.483
## 388 3.516
## 389 2.448
## 390 6.724
## 391 3.965
## 392 5.000
## 393 4.241
## 394 6.241
## 395 4.793
## 396 1.000
## 397 3.896
## 398 3.173
## 399 3.725
## 400 4.759
## 401 3.276
## 402 4.724
## 403 3.483
## 404 5.000
## 405 4.000
## 406 3.275
## 407 5.965
## 408 7.000
## 409 2.448
## 410 3.861
## 411 4.724
## 412 7.000
## 413 3.757
## 414 4.724
## 415 2.965
## 416 5.241
## 417 4.000
## 418 6.277
## 419 3.724
## 420 4.827
## 421 6.069
## 422 3.793
## 423 5.517
## 424 2.276
## 425 4.034
## 426 3.448
## 427 6.517
## 428 5.689
## 429 4.241
## 430 5.724
## 431 5.034
## 432 4.482
## 433 4.585
## 434 4.309
## 435 6.241
## 436 4.758
## 437 4.483
## 438 3.896
## 439 3.724
## 440 4.758
## 441 4.517
## 442 4.930
## 443 5.482
## 444 4.517
## 445 5.000
## 446 4.448
## 447 6.103
## 448 3.310
## 449 4.827
## 450 4.207
## 451 5.449
## 452 4.517
## 453 3.758
## 454 6.034
## 455 5.068
## 456 6.241
## 457 4.827
## 458 7.000
## 459 5.275
## 460 3.241
## 461 4.724
## 462 3.448
## 463 5.896
## 464 2.690
## 465 6.586
## 466 6.724
## 467 5.724
## 468 5.965
## 469 6.241
## 470 2.758
## 471 3.276
## 472 5.551
## 473 3.861
## 474 2.586
## 475 3.896
## 476 3.034
## 477 7.000
## 478 2.241
## 479 5.000
## 480 5.793
## 481 3.000
## 482 5.069
## 483 2.034
## 484 3.827
## 485 3.517
## 486 5.000
## 487 5.241
## 488 2.724
## 489 5.758
## 490 4.861
## 491 2.724
## 492 6.483
## 493 4.448
## 494 7.000
## 495 5.483
## 496 4.000
## 497 5.793
## 498 3.276
## 499 5.034
## 500 5.551
## 501 4.999
## 502 1.724
## 503 5.000
## 504 4.482
## 505 2.999
## 506 3.759
## 507 4.310
## 508 3.724
## 509 5.000
## 510 7.000
## 511 4.345
## 512 5.206
## 513 5.069
## 514 6.310
## 515 4.758
## 516 4.241
## 517 3.276
## 518 4.793
## 519 4.241
## 520 4.517
## 521 4.724
## 522 3.034
## 523 2.724
## 524 6.034
## 525 2.000
## 526 5.482
## 527 4.724
## 528 5.241
## 529 4.482
## 530 2.931
## 531 7.000
## 532 6.000
## 533 5.965
## 534 7.000
## 535 4.069
## 536 4.517
## 537 6.172
## 538 6.103
## 539 5.551
## 540 4.276
## 541 4.861
## 542 4.654
## 543 6.517
## 544 2.999
## 545 4.000
## 546 4.241
## 547 5.206
## 548 4.552
## 549 2.275
## 550 5.000
## 551 3.689
## 552 5.517
## 553 2.552
## 554 6.448
## 555 4.999
## 556 3.758
## 557 2.965
## 558 2.724
## 559 2.759
## 560 7.000
## 561 4.241
## 562 2.518
## 563 4.000
## 564 7.000
## 565 4.138
## 566 4.724
## 567 4.000
## 568 3.862
## 569 3.792
## 570 3.964
## 571 7.000
## 572 4.724
## 573 5.586
## 574 2.000
## 575 3.000
## 576 4.517
## 577 3.482
## 578 3.000
## 579 3.758
## 580 4.173
## 581 4.758
## 582 4.000
## 583 3.757
## 584 5.793
## 585 5.759
## 586 4.620
## 587 5.068
## 588 3.481
## 589 4.482
## 590 4.138
## 591 2.000
## 592 4.241
## 593 4.000
## 594 5.206
## 595 3.448
## 596 4.345
## 597 2.483
## 598 4.310
## 599 3.000
## 600 4.759
## 601 3.759
## 602 5.276
## 603 2.517
## 604 5.034
## 605 4.620
## 606 2.000
## 607 4.792
## 608 3.241
## 609 7.000
## 610 4.309
## 611 4.207
## 612 1.000
## 613 4.999
## 614 4.240
## 615 4.482
## 616 5.103
## 617 5.000
## 618 3.034
## 619 5.758
## 620 7.000
## 621 6.034
## 622 4.241
## 623 4.068
## 624 5.276
## 625 4.896
## 626 4.033
## 627 4.069
## 628 5.206
## 629 5.551
## 630 4.792
## 631 7.000
## 632 7.000
## 633 3.724
## 634 7.000
## 635 4.000
## 636 7.000
## 637 4.758
## 638 4.517
## 639 7.000
## 640 4.000
## 641 3.033
## 642 2.517
## 643 4.793
## 644 4.275
## 645 5.793
## 646 4.621
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans72=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans72)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 44.39 58.05 57.79 71.85 100.00
round(sd(IH_trans72),2)
## [1] 21.81
#hist(IH_trans7,col="azure2",xlab="IPSE",main = "Distribución de IPSE",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=Palmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 8:11) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(8:11)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:4])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 58.03333 58.61667 60.05000 58.05000 55.16667 58.61667 59.75000 58.03333
## [9] 58.05000 56.02500 58.05000 58.03333 58.04167 57.46667 57.46667 58.32500
## [17] 58.03333 57.46667 58.03333 58.03333 58.61667 57.46667 58.03333 60.33333
## [25] 55.16667 57.45833 58.61667 58.03333 58.03333 58.61667 58.03333 58.03333
## [33] 58.04167 57.46667 57.46667 57.75000 58.61667 58.60833 57.46667 58.05000
## [41] 57.46667 58.61667 58.61667 58.61667 58.60833 57.45000 58.05000 58.61667
## [49] 57.46667 58.03333 58.61667 55.16667 58.04167 58.61667 58.03333 58.60000
## [57] 54.60000 57.46667 57.75000 58.61667 56.87500 58.04167 58.61667 58.03333
## [65] 58.61667 58.61667 55.75000 58.61667 57.46667 58.03333 58.05000 57.46667
## [73] 58.03333 55.16667 58.61667 58.03333 55.45833 56.02500 58.60000 58.03333
## [81] 58.03333 58.61667 57.46667 56.02500 57.46667 58.04167 58.03333 58.03333
## [89] 57.46667 56.30000 55.16667 58.61667 58.03333 60.33333 57.46667 58.61667
## [97] 58.03333 58.03333 58.03333 56.30000 57.46667 58.05000 58.03333 58.61667
## [105] 58.03333 58.61667 57.46667 58.61667 58.61667 58.90000 58.03333 58.04167
## [113] 58.61667 59.76667 58.03333 58.61667 58.05000 58.61667 58.61667 58.03333
## [121] 58.03333 58.61667 58.32500 58.61667 54.60000 58.61667 58.05000 57.46667
## [129] 55.15833 58.61667 58.61667 59.76667 58.03333 58.61667 58.04167 60.90000
## [137] 58.03333 58.61667 56.60000 57.46667 58.03333 58.33333 57.75000 58.03333
## [145] 57.45833 55.75000 58.31667 57.46667 55.45833 59.18333 58.32500 56.87500
## [153] 58.03333 58.05000 58.60833 55.16667 57.75000 57.45833 58.05000 54.60000
## [161] 60.33333 58.03333 54.30000 58.03333 58.03333 55.16667 58.05000 58.61667
## [169] 58.61667 58.61667 58.05000 59.76667 57.46667 58.61667 58.03333 54.60000
## [177] 57.46667 57.46667 57.75000 60.90000 58.03333 58.03333 58.03333 57.46667
## [185] 58.05000 58.60000 58.03333 58.05000 57.46667 55.16667 58.03333 58.05000
## [193] 58.61667 58.31667 57.46667 57.46667 54.87500 55.75000 58.61667 58.60833
## [201] 55.16667 54.60000 58.61667 58.61667 58.61667 55.73333 58.03333 57.45000
## [209] 58.61667 58.61667 54.01667 58.60000 60.90000 58.90000 58.04167 57.46667
## [217] 56.30000 54.60000 55.16667 58.03333 58.61667 58.05000 58.61667 58.03333
## [225] 58.03333 58.03333 58.03333 56.02500 58.61667 56.87500 58.60000 57.46667
## [233] 57.46667 57.75000 57.46667 58.61667 58.61667 57.46667 57.46667 58.61667
## [241] 58.03333 57.45833 58.03333 54.58333 57.45833 58.03333 58.61667 58.61667
## [249] 58.32500 58.60000 58.60000 58.61667 58.61667 58.04167 58.05000 60.05000
## [257] 54.60000 57.46667 58.61667 55.15833 58.05000 58.90000 58.61667 58.32500
## [265] 57.45000 58.61667 54.87500 55.15000 58.61667 58.03333 55.75000 56.02500
## [273] 57.46667 58.61667 60.90000 58.61667 54.87500 58.61667 55.15833 58.03333
## [281] 57.46667 58.03333 59.48333 55.15833 58.03333 58.61667 58.61667 58.03333
## [289] 58.03333 57.46667 58.60000 58.61667 60.33333 58.04167 55.16667 54.60000
## [297] 58.05000 58.61667 58.05000 57.75000 55.16667 60.33333 57.45833 58.61667
## [305] 57.46667 55.45000 57.46667 55.15833 57.46667 58.61667 58.61667 58.61667
## [313] 54.87500 55.16667 55.15000 58.61667 57.46667 58.61667 55.16667 60.90000
## [321] 58.61667 54.60000 58.61667 57.75000 57.45833 57.46667 58.61667 58.05000
## [329] 58.05000 58.03333 58.61667 56.88333 55.45833 58.61667 58.61667 54.87500
## [337] 58.05000 58.05000 57.46667 58.90833 58.04167 58.03333 57.46667 54.60000
## [345] 55.15000 58.03333 58.04167 58.60000 58.61667 58.61667 55.15000 58.04167
## [353] 60.90000 58.61667 55.16667 58.03333 58.03333 55.75000 59.19167 57.46667
## [361] 58.32500 58.61667 58.03333 57.46667 58.32500 60.90833 57.75000 56.87500
## [369] 55.75000 58.04167 58.03333 55.15833 58.61667 58.61667 61.20833 58.03333
## [377] 59.47500 58.90000 60.90000 56.30000 58.60000 58.61667 57.46667 58.05000
## [385] 58.03333 58.31667 58.05000 58.05000 58.03333 54.01667 55.75000 58.61667
## [393] 58.60000 57.46667 58.61667 58.60000 55.45833 58.32500 57.46667 58.60833
## [401] 58.03333 58.61667 58.61667 54.59167 58.32500 58.32500 61.48333 58.61667
## [409] 58.61667 58.03333 57.46667 57.45833 58.03333 59.18333 58.03333 58.60000
## [417] 58.03333 55.75000 58.61667 58.04167 59.76667 58.05000 54.01667 58.61667
## [425] 54.60000 58.60000 57.46667 58.05000 58.05000 58.05000 58.03333 58.60833
## [433] 58.61667 58.03333 55.16667 58.60000 58.61667 57.45000 54.87500 58.05000
## [441] 58.03333 58.32500 58.61667 57.45000 58.90000 55.75000 58.61667 60.33333
## [449] 58.61667 58.05000 57.46667 58.60000 55.16667 57.75000 57.46667 58.61667
## [457] 58.60833 57.75000 58.05000 58.03333 55.75000 58.05000 55.16667 58.61667
## [465] 58.61667 54.01667 58.61667 59.18333 56.88333 57.46667 58.61667 58.61667
## [473] 57.46667 58.61667 58.61667 58.61667 58.61667 57.75000 58.60833 58.61667
## [481] 58.61667 58.61667 54.87500 58.32500 59.18333 58.32500 54.60000 57.75000
## [489] 57.46667 55.15000 55.75000 57.46667 58.05000 58.61667 58.32500 55.45833
## [497] 56.30833 58.60000 56.31667 57.75000 55.45833 55.16667 58.60833 58.60833
## [505] 58.05000 58.03333 58.61667 58.03333 58.90833 54.87500 59.20000 58.61667
## [513] 58.61667 58.61667 58.03333 58.03333 57.46667 58.90000 57.46667 55.16667
## [521] 59.76667 60.90000 56.30833 58.61667 58.05000 56.87500 58.60000 58.04167
## [529] 58.61667 58.61667 58.03333 58.61667 57.75000 58.03333 58.03333 59.75833
## [537] 58.03333 57.46667 59.47500 58.61667 58.61667 58.05000 58.03333 58.61667
## [545] 58.05000 54.60000 58.05000 58.61667 58.61667 58.61667 58.61667 58.04167
## [553] 58.04167 58.03333 58.61667 58.03333 58.03333 55.75000 58.61667 58.61667
## [561] 59.75000 54.60000 58.33333 58.61667 56.88333 58.03333 58.61667 58.33333
## [569] 58.05000 58.05000 58.61667 58.61667 58.61667 57.46667 58.61667 57.46667
## [577] 58.61667 54.87500 54.60000 57.46667 58.61667 58.04167 58.04167 57.46667
## [585] 58.61667 58.61667 58.04167 58.61667 57.75000 58.04167 58.61667 58.05000
## [593] 58.61667 58.61667 58.61667 55.16667 54.60000 55.15000 57.46667 58.04167
## [601] 58.90000 57.46667 57.46667 54.60000 58.03333 57.46667 58.03333 58.05000
## [609] 56.88333 59.47500 58.61667 59.75833 58.61667 58.61667 58.04167 58.61667
## [617] 58.61667 58.61667 58.60000 58.61667 57.75000 58.03333 58.61667 58.03333
## [625] 58.60833 58.32500 58.61667 58.05000 57.46667 58.60000 55.16667 60.92500
## [633] 58.60833 58.61667 57.46667 58.03333 58.03333 58.61667 56.30000 58.61667
## [641] 58.60833 58.61667 58.03333 57.46667 58.61667 60.90000 58.61667 58.61667
## [649] 58.61667 58.03333 58.61667 57.46667 58.03333 58.61667 58.61667 54.60000
## [657] 58.03333 58.60833 58.03333 58.61667 58.32500 55.16667 56.87500 58.61667
## [665] 58.61667 58.03333 58.61667 54.60000 58.05000 58.03333 62.05833 58.04167
## [673] 58.61667 58.61667 56.02500 58.61667 58.04167 58.61667 54.60000 58.03333
## [681] 55.16667 58.61667 55.45833 56.30833 58.61667 58.61667 60.05000 58.03333
## [689] 56.30000 58.03333 58.61667 58.61667 58.61667 57.46667 58.61667 58.61667
## [697] 57.46667 58.61667 58.04167 58.61667 58.03333 58.61667 58.03333 58.61667
## [705] 58.61667 54.87500 58.61667 56.02500 58.61667 58.61667 57.75000 58.61667
## [713] 58.03333 58.60833 58.03333 58.60833 58.61667 57.46667 58.05000 58.61667
## [721] 58.61667 55.16667 57.46667 57.46667 55.75000 58.60833 60.33333 54.60000
## [729] 58.61667 58.61667 58.03333 54.30000 58.03333 57.46667 57.46667 58.61667
## [737] 58.03333 60.90000 57.46667 57.46667 56.60833 60.33333 58.32500 55.75000
## [745] 55.75000 54.60000 58.05000 58.03333 58.03333 57.46667 58.61667 55.16667
## [753] 58.61667 58.61667 58.61667 61.48333 60.90000 58.61667 58.03333 60.91667
## [761] 58.60833 58.90833 58.03333 59.76667 58.60000 55.16667 56.88333 58.03333
## [769] 58.60000 58.60833 54.60000 58.04167 59.75833 56.87500 55.75000 58.61667
## [777] 58.61667 58.04167 58.61667 54.01667 59.75833 58.03333 58.61667 59.76667
## [785] 58.61667 58.03333 58.03333 57.46667 58.61667 58.05000 58.61667 58.61667
## [793] 58.03333 59.75000 58.05000 58.61667 58.05000 58.05000 57.45833 58.05000
## [801] 55.75000 58.61667 58.61667 58.61667 58.05000 58.03333 58.61667 58.03333
## [809] 60.90000 56.30000 58.90833 58.61667 58.61667 60.33333 58.60833 58.61667
## [817] 58.90833 55.16667 58.60833 58.61667 59.76667 57.75000 58.60833 58.60000
## [825] 57.45000 58.61667 54.60000 57.75000 56.30000 56.60000 57.46667 58.90000
## [833] 58.03333 56.87500 57.45833 58.03333 57.75000 58.61667 55.15000 58.03333
## [841] 58.32500 57.46667 57.46667 58.32500 58.60000 58.61667 58.04167 58.03333
## [849] 57.46667 58.03333 58.04167 60.35000 58.04167 58.05000 58.61667 58.32500
## [857] 58.03333 55.15833 58.04167 58.05000 58.03333 58.61667 57.45833 58.61667
## [865] 54.60000 57.75000 58.61667 58.60833 59.19167 58.32500 58.61667 58.04167
## [873] 55.75000 58.05000 54.01667 57.46667 56.88333 58.32500 58.04167 58.61667
## [881] 58.61667 58.61667 58.61667 58.05000 54.58333 54.60000 58.61667 58.61667
## [889] 57.45833 58.04167 58.32500 58.61667 55.45833 58.61667 58.61667 58.61667
## [897] 57.46667 58.61667 60.34167 55.16667 57.46667 58.60000 57.46667 58.61667
## [905] 55.16667 58.61667 57.45833 56.88333 58.32500 58.03333 58.61667 58.61667
## [913] 59.76667 54.60000 58.03333 58.61667 58.04167 57.46667 58.61667 58.61667
## [921] 58.03333 59.76667 58.03333 58.61667 58.60000 57.46667 58.03333 58.61667
## [929] 58.03333 58.03333 58.05000 58.61667 58.05000 58.61667 58.05000 58.05000
## [937] 58.61667 58.61667 58.03333 57.46667 58.61667 58.61667 58.61667 58.03333
## [945] 58.61667 58.03333 58.05000 58.03333 58.61667 58.61667 58.61667 57.75000
## [953] 58.61667 58.61667 58.61667 54.87500 58.60833 58.61667 58.61667 58.05000
## [961] 56.02500 56.87500 58.60833 58.61667 58.03333 55.16667 58.05000 58.61667
## [969] 58.04167 59.18333 57.46667 58.05000 57.46667 55.15000 58.33333 58.60833
## [977] 58.61667 58.61667 58.61667 58.61667 57.46667 55.16667 58.61667 57.45833
## [985] 58.61667 58.61667 58.61667 58.05000 58.61667 55.45833 57.46667 58.61667
## [993] 58.04167 56.02500 58.32500 58.03333 58.61667 58.61667 58.03333 56.60833
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
#I_ref=58.05
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans72))^2+(median(NfinalMedia)-median(IH_trans72))^2,2);EE
## [1] 32.58
SUSCEPTIBILIDAD
#--------------------------------susceptibilidad-----------------------------------
#susceptibilidad=Datos[,c(27:31)]*pesos[c(27:31)];susceptibilidad
temp_K<-c()
lista_vacia <- vector("list", length = 646)
celsius_to_kelvin <- function(temp_C) {
for (i in 12:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(12:16)]
}
return(datosnew)
};susceptibilidad=data.frame(celsius_to_kelvin(Datos))
IH=rowSums(susceptibilidad[ ,1:5]);IH
## [1] 3.664 1.359 0.999 2.830 5.328 3.552 1.554 2.886 2.553 4.107 5.050 2.165
## [13] 2.386 1.942 2.719 4.495 3.302 3.885 3.108 3.691 4.329 3.107 3.108 1.970
## [25] 1.915 1.165 2.359 2.691 3.469 2.858 2.692 4.912 3.135 1.776 1.970 3.885
## [37] 3.940 3.690 3.746 2.331 4.856 2.940 3.302 3.330 1.721 5.383 3.330 3.550
## [49] 3.330 2.359 4.245 3.330 4.912 1.941 4.356 1.554 3.442 3.968 3.718 1.748
## [61] 2.359 3.080 1.748 4.162 1.694 2.913 5.300 4.967 0.777 2.331 3.690 1.998
## [73] 2.137 3.080 3.108 2.525 2.720 3.885 4.801 2.109 4.080 1.665 3.330 4.107
## [85] 4.689 2.886 2.277 2.914 2.525 3.912 5.522 3.913 2.525 2.192 1.554 2.941
## [97] 5.883 3.080 2.525 2.330 0.999 2.330 4.495 2.304 1.888 2.358 1.165 4.078
## [109] 4.052 0.777 4.745 1.776 3.329 3.885 3.691 1.333 3.302 3.690 4.301 3.024
## [121] 3.857 4.772 3.885 2.525 3.690 2.303 3.885 4.274 3.052 1.915 3.164 0.944
## [133] 4.690 2.552 1.942 1.720 3.497 3.218 1.472 4.079 3.496 1.748 5.661 1.776
## [145] 2.524 5.661 3.885 6.105 2.886 3.330 2.553 1.941 5.273 4.107 4.274 5.300
## [157] 3.080 3.552 4.107 1.554 4.524 2.108 3.746 4.690 3.108 2.746 2.192 0.971
## [169] 1.748 3.108 4.329 3.330 4.495 4.662 2.663 3.718 3.885 5.106 1.747 4.857
## [181] 4.579 5.106 3.134 2.525 2.330 2.969 1.554 2.331 2.331 3.108 2.358 6.105
## [193] 4.301 5.495 4.301 1.554 0.777 2.331 1.747 3.385 5.273 3.746 4.301 1.693
## [205] 1.748 4.302 4.662 4.052 2.525 3.496 3.330 3.108 3.302 2.524 3.135 1.748
## [217] 4.356 5.467 3.108 1.332 0.971 5.661 6.105 2.524 5.134 4.107 5.495 4.217
## [229] 2.552 2.719 3.524 4.134 2.498 3.302 5.245 4.079 0.971 3.912 2.108 1.554
## [241] 2.331 2.331 1.776 3.302 4.273 2.553 4.495 4.301 4.275 2.470 3.552 2.137
## [253] 4.495 4.662 1.554 3.302 2.913 3.884 3.746 4.079 0.777 3.968 4.912 3.108
## [265] 1.554 3.108 2.524 5.744 1.860 5.079 5.661 2.553 2.330 4.107 2.331 2.969
## [277] 2.719 3.524 2.720 2.831 4.079 2.331 2.303 4.329 1.779 2.886 3.524 6.549
## [289] 4.273 3.912 2.663 2.498 1.942 4.107 3.275 5.300 1.554 4.329 2.275 2.580
## [301] 2.164 2.940 4.662 0.777 2.914 5.273 1.915 4.107 2.331 3.496 5.050 3.552
## [313] 5.245 3.552 3.108 2.719 3.690 3.302 2.747 3.107 0.777 2.747 2.552 2.692
## [325] 3.108 1.554 4.856 3.108 5.661 2.136 3.330 2.941 4.107 2.719 3.302 2.525
## [337] 2.720 5.550 2.858 4.052 4.884 4.107 3.663 0.999 1.915 0.971 1.554 3.996
## [349] 5.328 2.110 3.885 3.108 5.717 2.525 2.746 2.775 4.107 3.552 0.999 2.747
## [361] 4.079 2.525 2.553 2.719 5.300 3.717 4.772 0.777 1.915 3.080 6.105 3.885
## [373] 2.331 2.109 3.107 3.330 2.055 2.553 1.554 4.080 5.523 3.329 2.302 2.442
## [385] 2.525 1.360 2.525 1.941 1.138 4.578 2.109 3.524 2.525 4.107 3.940 0.777
## [397] 1.915 4.135 4.717 3.025 2.914 2.831 3.746 3.885 3.968 1.748 3.108 5.661
## [409] 3.329 2.302 5.106 5.300 2.359 3.857 1.748 3.524 1.942 5.661 3.136 4.440
## [421] 4.301 2.553 4.578 1.554 2.940 3.497 4.329 4.079 4.107 5.522 2.747 3.718
## [433] 2.719 2.719 3.108 3.108 4.135 2.859 3.330 3.913 2.331 1.748 3.691 3.746
## [445] 3.774 3.885 4.913 2.747 4.080 3.690 5.939 3.719 4.107 3.885 2.719 5.133
## [457] 2.330 5.883 3.524 1.915 3.552 3.829 2.942 3.330 3.885 4.523 5.078 2.717
## [469] 4.329 2.330 3.357 1.888 3.191 0.777 3.302 2.136 3.078 1.776 3.885 3.690
## [481] 1.776 3.802 2.940 2.913 2.969 4.551 5.717 3.496 4.884 3.302 2.553 5.467
## [493] 3.718 5.439 4.939 3.718 4.107 2.719 4.301 5.661 4.800 1.942 3.690 3.302
## [505] 2.552 2.331 2.774 3.913 3.885 5.382 3.717 4.689 3.719 5.549 3.108 3.330
## [517] 3.191 2.331 4.690 3.746 4.716 2.137 1.748 4.329 0.777 3.885 4.549 4.718
## [529] 3.274 2.942 4.495 4.079 3.302 3.690 2.553 4.550 6.105 5.938 4.080 3.053
## [541] 5.217 2.329 4.663 1.970 3.690 3.524 4.495 3.691 0.777 4.107 2.137 4.634
## [553] 1.554 5.495 3.468 2.691 2.913 3.107 2.331 5.661 4.856 4.189 3.552 4.995
## [565] 1.831 4.690 3.108 4.328 1.554 2.330 5.078 2.524 3.607 2.330 1.915 3.358
## [577] 3.719 2.832 2.331 4.302 2.358 3.912 2.330 3.524 4.301 4.717 4.717 1.554
## [589] 2.997 3.912 1.748 3.496 2.304 1.915 3.330 3.108 4.885 2.747 2.525 3.912
## [601] 2.471 3.885 1.942 5.328 1.554 1.332 1.554 2.525 3.108 3.135 3.524 0.777
## [613] 4.051 3.108 3.108 3.745 3.690 1.942 3.275 5.661 3.690 4.439 1.332 4.273
## [625] 2.416 2.331 2.524 3.247 1.941 4.107 5.883 3.494 3.912 5.273 2.331 5.883
## [637] 3.108 3.329 5.661 5.328 1.941 2.721 3.080 2.886 4.328 2.581
data.frame(IH)
## IH
## 1 3.664
## 2 1.359
## 3 0.999
## 4 2.830
## 5 5.328
## 6 3.552
## 7 1.554
## 8 2.886
## 9 2.553
## 10 4.107
## 11 5.050
## 12 2.165
## 13 2.386
## 14 1.942
## 15 2.719
## 16 4.495
## 17 3.302
## 18 3.885
## 19 3.108
## 20 3.691
## 21 4.329
## 22 3.107
## 23 3.108
## 24 1.970
## 25 1.915
## 26 1.165
## 27 2.359
## 28 2.691
## 29 3.469
## 30 2.858
## 31 2.692
## 32 4.912
## 33 3.135
## 34 1.776
## 35 1.970
## 36 3.885
## 37 3.940
## 38 3.690
## 39 3.746
## 40 2.331
## 41 4.856
## 42 2.940
## 43 3.302
## 44 3.330
## 45 1.721
## 46 5.383
## 47 3.330
## 48 3.550
## 49 3.330
## 50 2.359
## 51 4.245
## 52 3.330
## 53 4.912
## 54 1.941
## 55 4.356
## 56 1.554
## 57 3.442
## 58 3.968
## 59 3.718
## 60 1.748
## 61 2.359
## 62 3.080
## 63 1.748
## 64 4.162
## 65 1.694
## 66 2.913
## 67 5.300
## 68 4.967
## 69 0.777
## 70 2.331
## 71 3.690
## 72 1.998
## 73 2.137
## 74 3.080
## 75 3.108
## 76 2.525
## 77 2.720
## 78 3.885
## 79 4.801
## 80 2.109
## 81 4.080
## 82 1.665
## 83 3.330
## 84 4.107
## 85 4.689
## 86 2.886
## 87 2.277
## 88 2.914
## 89 2.525
## 90 3.912
## 91 5.522
## 92 3.913
## 93 2.525
## 94 2.192
## 95 1.554
## 96 2.941
## 97 5.883
## 98 3.080
## 99 2.525
## 100 2.330
## 101 0.999
## 102 2.330
## 103 4.495
## 104 2.304
## 105 1.888
## 106 2.358
## 107 1.165
## 108 4.078
## 109 4.052
## 110 0.777
## 111 4.745
## 112 1.776
## 113 3.329
## 114 3.885
## 115 3.691
## 116 1.333
## 117 3.302
## 118 3.690
## 119 4.301
## 120 3.024
## 121 3.857
## 122 4.772
## 123 3.885
## 124 2.525
## 125 3.690
## 126 2.303
## 127 3.885
## 128 4.274
## 129 3.052
## 130 1.915
## 131 3.164
## 132 0.944
## 133 4.690
## 134 2.552
## 135 1.942
## 136 1.720
## 137 3.497
## 138 3.218
## 139 1.472
## 140 4.079
## 141 3.496
## 142 1.748
## 143 5.661
## 144 1.776
## 145 2.524
## 146 5.661
## 147 3.885
## 148 6.105
## 149 2.886
## 150 3.330
## 151 2.553
## 152 1.941
## 153 5.273
## 154 4.107
## 155 4.274
## 156 5.300
## 157 3.080
## 158 3.552
## 159 4.107
## 160 1.554
## 161 4.524
## 162 2.108
## 163 3.746
## 164 4.690
## 165 3.108
## 166 2.746
## 167 2.192
## 168 0.971
## 169 1.748
## 170 3.108
## 171 4.329
## 172 3.330
## 173 4.495
## 174 4.662
## 175 2.663
## 176 3.718
## 177 3.885
## 178 5.106
## 179 1.747
## 180 4.857
## 181 4.579
## 182 5.106
## 183 3.134
## 184 2.525
## 185 2.330
## 186 2.969
## 187 1.554
## 188 2.331
## 189 2.331
## 190 3.108
## 191 2.358
## 192 6.105
## 193 4.301
## 194 5.495
## 195 4.301
## 196 1.554
## 197 0.777
## 198 2.331
## 199 1.747
## 200 3.385
## 201 5.273
## 202 3.746
## 203 4.301
## 204 1.693
## 205 1.748
## 206 4.302
## 207 4.662
## 208 4.052
## 209 2.525
## 210 3.496
## 211 3.330
## 212 3.108
## 213 3.302
## 214 2.524
## 215 3.135
## 216 1.748
## 217 4.356
## 218 5.467
## 219 3.108
## 220 1.332
## 221 0.971
## 222 5.661
## 223 6.105
## 224 2.524
## 225 5.134
## 226 4.107
## 227 5.495
## 228 4.217
## 229 2.552
## 230 2.719
## 231 3.524
## 232 4.134
## 233 2.498
## 234 3.302
## 235 5.245
## 236 4.079
## 237 0.971
## 238 3.912
## 239 2.108
## 240 1.554
## 241 2.331
## 242 2.331
## 243 1.776
## 244 3.302
## 245 4.273
## 246 2.553
## 247 4.495
## 248 4.301
## 249 4.275
## 250 2.470
## 251 3.552
## 252 2.137
## 253 4.495
## 254 4.662
## 255 1.554
## 256 3.302
## 257 2.913
## 258 3.884
## 259 3.746
## 260 4.079
## 261 0.777
## 262 3.968
## 263 4.912
## 264 3.108
## 265 1.554
## 266 3.108
## 267 2.524
## 268 5.744
## 269 1.860
## 270 5.079
## 271 5.661
## 272 2.553
## 273 2.330
## 274 4.107
## 275 2.331
## 276 2.969
## 277 2.719
## 278 3.524
## 279 2.720
## 280 2.831
## 281 4.079
## 282 2.331
## 283 2.303
## 284 4.329
## 285 1.779
## 286 2.886
## 287 3.524
## 288 6.549
## 289 4.273
## 290 3.912
## 291 2.663
## 292 2.498
## 293 1.942
## 294 4.107
## 295 3.275
## 296 5.300
## 297 1.554
## 298 4.329
## 299 2.275
## 300 2.580
## 301 2.164
## 302 2.940
## 303 4.662
## 304 0.777
## 305 2.914
## 306 5.273
## 307 1.915
## 308 4.107
## 309 2.331
## 310 3.496
## 311 5.050
## 312 3.552
## 313 5.245
## 314 3.552
## 315 3.108
## 316 2.719
## 317 3.690
## 318 3.302
## 319 2.747
## 320 3.107
## 321 0.777
## 322 2.747
## 323 2.552
## 324 2.692
## 325 3.108
## 326 1.554
## 327 4.856
## 328 3.108
## 329 5.661
## 330 2.136
## 331 3.330
## 332 2.941
## 333 4.107
## 334 2.719
## 335 3.302
## 336 2.525
## 337 2.720
## 338 5.550
## 339 2.858
## 340 4.052
## 341 4.884
## 342 4.107
## 343 3.663
## 344 0.999
## 345 1.915
## 346 0.971
## 347 1.554
## 348 3.996
## 349 5.328
## 350 2.110
## 351 3.885
## 352 3.108
## 353 5.717
## 354 2.525
## 355 2.746
## 356 2.775
## 357 4.107
## 358 3.552
## 359 0.999
## 360 2.747
## 361 4.079
## 362 2.525
## 363 2.553
## 364 2.719
## 365 5.300
## 366 3.717
## 367 4.772
## 368 0.777
## 369 1.915
## 370 3.080
## 371 6.105
## 372 3.885
## 373 2.331
## 374 2.109
## 375 3.107
## 376 3.330
## 377 2.055
## 378 2.553
## 379 1.554
## 380 4.080
## 381 5.523
## 382 3.329
## 383 2.302
## 384 2.442
## 385 2.525
## 386 1.360
## 387 2.525
## 388 1.941
## 389 1.138
## 390 4.578
## 391 2.109
## 392 3.524
## 393 2.525
## 394 4.107
## 395 3.940
## 396 0.777
## 397 1.915
## 398 4.135
## 399 4.717
## 400 3.025
## 401 2.914
## 402 2.831
## 403 3.746
## 404 3.885
## 405 3.968
## 406 1.748
## 407 3.108
## 408 5.661
## 409 3.329
## 410 2.302
## 411 5.106
## 412 5.300
## 413 2.359
## 414 3.857
## 415 1.748
## 416 3.524
## 417 1.942
## 418 5.661
## 419 3.136
## 420 4.440
## 421 4.301
## 422 2.553
## 423 4.578
## 424 1.554
## 425 2.940
## 426 3.497
## 427 4.329
## 428 4.079
## 429 4.107
## 430 5.522
## 431 2.747
## 432 3.718
## 433 2.719
## 434 2.719
## 435 3.108
## 436 3.108
## 437 4.135
## 438 2.859
## 439 3.330
## 440 3.913
## 441 2.331
## 442 1.748
## 443 3.691
## 444 3.746
## 445 3.774
## 446 3.885
## 447 4.913
## 448 2.747
## 449 4.080
## 450 3.690
## 451 5.939
## 452 3.719
## 453 4.107
## 454 3.885
## 455 2.719
## 456 5.133
## 457 2.330
## 458 5.883
## 459 3.524
## 460 1.915
## 461 3.552
## 462 3.829
## 463 2.942
## 464 3.330
## 465 3.885
## 466 4.523
## 467 5.078
## 468 2.717
## 469 4.329
## 470 2.330
## 471 3.357
## 472 1.888
## 473 3.191
## 474 0.777
## 475 3.302
## 476 2.136
## 477 3.078
## 478 1.776
## 479 3.885
## 480 3.690
## 481 1.776
## 482 3.802
## 483 2.940
## 484 2.913
## 485 2.969
## 486 4.551
## 487 5.717
## 488 3.496
## 489 4.884
## 490 3.302
## 491 2.553
## 492 5.467
## 493 3.718
## 494 5.439
## 495 4.939
## 496 3.718
## 497 4.107
## 498 2.719
## 499 4.301
## 500 5.661
## 501 4.800
## 502 1.942
## 503 3.690
## 504 3.302
## 505 2.552
## 506 2.331
## 507 2.774
## 508 3.913
## 509 3.885
## 510 5.382
## 511 3.717
## 512 4.689
## 513 3.719
## 514 5.549
## 515 3.108
## 516 3.330
## 517 3.191
## 518 2.331
## 519 4.690
## 520 3.746
## 521 4.716
## 522 2.137
## 523 1.748
## 524 4.329
## 525 0.777
## 526 3.885
## 527 4.549
## 528 4.718
## 529 3.274
## 530 2.942
## 531 4.495
## 532 4.079
## 533 3.302
## 534 3.690
## 535 2.553
## 536 4.550
## 537 6.105
## 538 5.938
## 539 4.080
## 540 3.053
## 541 5.217
## 542 2.329
## 543 4.663
## 544 1.970
## 545 3.690
## 546 3.524
## 547 4.495
## 548 3.691
## 549 0.777
## 550 4.107
## 551 2.137
## 552 4.634
## 553 1.554
## 554 5.495
## 555 3.468
## 556 2.691
## 557 2.913
## 558 3.107
## 559 2.331
## 560 5.661
## 561 4.856
## 562 4.189
## 563 3.552
## 564 4.995
## 565 1.831
## 566 4.690
## 567 3.108
## 568 4.328
## 569 1.554
## 570 2.330
## 571 5.078
## 572 2.524
## 573 3.607
## 574 2.330
## 575 1.915
## 576 3.358
## 577 3.719
## 578 2.832
## 579 2.331
## 580 4.302
## 581 2.358
## 582 3.912
## 583 2.330
## 584 3.524
## 585 4.301
## 586 4.717
## 587 4.717
## 588 1.554
## 589 2.997
## 590 3.912
## 591 1.748
## 592 3.496
## 593 2.304
## 594 1.915
## 595 3.330
## 596 3.108
## 597 4.885
## 598 2.747
## 599 2.525
## 600 3.912
## 601 2.471
## 602 3.885
## 603 1.942
## 604 5.328
## 605 1.554
## 606 1.332
## 607 1.554
## 608 2.525
## 609 3.108
## 610 3.135
## 611 3.524
## 612 0.777
## 613 4.051
## 614 3.108
## 615 3.108
## 616 3.745
## 617 3.690
## 618 1.942
## 619 3.275
## 620 5.661
## 621 3.690
## 622 4.439
## 623 1.332
## 624 4.273
## 625 2.416
## 626 2.331
## 627 2.524
## 628 3.247
## 629 1.941
## 630 4.107
## 631 5.883
## 632 3.494
## 633 3.912
## 634 5.273
## 635 2.331
## 636 5.883
## 637 3.108
## 638 3.329
## 639 5.661
## 640 5.328
## 641 1.941
## 642 2.721
## 643 3.080
## 644 2.886
## 645 4.328
## 646 2.581
IH_MIN=min(IH)
IH_MAX=max(IH)
IH_trans82=((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
summary(IH_trans82)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 27.41 43.75 43.88 57.69 100.00
round(sd(IH_trans82),2)
## [1] 21.04
#hist(IH_trans8,col="azure2",xlab="IPSU",main = "Distribución de IPSU",freq = FALSE,ylim = c(0,0.035))
#ERROR
NfinalMedia<-c() ##En este vector se estan almacenando las proporciones, osea, cada repeticion bootstrap
for (i in 1:1000) {
#Datos=CaliyPalmira[,-c(8:10)] #Este es cuando junté todo y solo quité la incertidumbre
Datos=Palmira[,c(19:34)]
#N<-Datos[sample(nrow(Datos),replace = TRUE)]
temp_K<-c()
lista_vacia <- vector("list", length = length(Datos))
celsius_to_kelvin <- function(temp_C) {
for (i in 12:16) {
# temp_K <- temp_C[,i]*vector[i]
lista_vacia[i]<-data.frame(#temp_C[,i]*vector[i])
Datos[,i]*pesos[i])
datosnew=lista_vacia[c(12:16)]
}
return(datosnew)
};IHPRG1=data.frame(celsius_to_kelvin(Datos))
IH<-rowSums(IHPRG1[ ,1:5])
data.frame(IH)
IH_MIN<-min(IH)
IH_MAX<-max(IH)
IH_trans<-((IH-IH_MIN)/(IH_MAX-IH_MIN))*100
NfinalMedia[i]=median(sample(IH_trans,replace=T))
}; NfinalMedia
## [1] 43.74567 41.11227 43.74567 40.60984 43.74567 40.38462 40.85239 41.82259
## [9] 40.38462 43.74567 41.82259 43.74567 40.38462 43.74567 43.27789 44.23077
## [17] 43.51178 43.27789 41.58870 44.21344 43.74567 40.61850 43.74567 43.27789
## [25] 44.23077 43.26923 43.97956 43.74567 43.74567 42.29037 43.74567 44.21344
## [33] 43.51178 40.86105 43.74567 40.38462 43.74567 43.97956 44.23077 43.74567
## [41] 40.38462 41.82259 40.38462 44.21344 44.23077 40.38462 44.23077 43.26057
## [49] 43.74567 43.74567 43.27789 43.98822 43.74567 42.05648 43.74567 44.21344
## [57] 43.74567 43.74567 41.82259 43.02668 43.74567 44.23077 43.27789 40.38462
## [65] 43.74567 40.38462 43.74567 40.85239 43.74567 40.38462 43.74567 43.97956
## [73] 43.74567 44.23077 44.23077 44.23077 43.74567 43.74567 41.58870 42.30769
## [81] 44.21344 43.26057 41.82259 40.38462 44.21344 40.38462 43.27789 40.85239
## [89] 46.17117 41.82259 43.74567 40.85239 40.38462 43.97956 44.23077 43.74567
## [97] 44.22211 44.21344 40.83507 42.05648 43.74567 41.82259 43.74567 43.74567
## [105] 43.74567 43.74567 43.27789 43.74567 44.21344 43.74567 41.82259 44.23077
## [113] 43.74567 43.74567 43.74567 44.23077 42.29037 40.85239 40.38462 43.74567
## [121] 40.38462 43.74567 42.54158 43.26923 43.74567 43.27789 40.38462 43.02668
## [129] 42.55024 43.74567 42.05648 42.05648 43.74567 43.74567 43.26057 40.85239
## [137] 43.74567 43.51178 43.74567 43.74567 42.05648 43.74567 40.86972 43.74567
## [145] 44.23077 43.27789 43.74567 42.79279 44.23077 43.27789 41.11227 44.21344
## [153] 41.82259 43.27789 41.35482 44.23077 43.26923 43.27789 40.85239 40.38462
## [161] 43.27789 41.35482 40.38462 43.74567 43.74567 43.74567 43.74567 43.74567
## [169] 43.74567 41.82259 40.38462 43.74567 44.23077 43.97956 41.82259 40.38462
## [177] 43.74567 44.22211 44.23077 43.74567 43.74567 42.54158 43.74567 44.21344
## [185] 40.38462 41.58870 44.23077 43.51178 40.38462 44.23077 43.74567 43.74567
## [193] 44.23077 40.86972 40.85239 43.74567 44.23077 43.27789 43.74567 43.27789
## [201] 43.74567 41.11227 42.29037 44.23077 42.29037 44.22211 43.74567 43.74567
## [209] 40.86972 44.21344 40.85239 41.58870 43.74567 44.21344 43.74567 43.74567
## [217] 40.85239 43.74567 43.74567 43.74567 43.74567 43.74567 40.85239 43.74567
## [225] 43.27789 43.74567 43.74567 43.74567 43.27789 40.60984 43.74567 43.74567
## [233] 40.38462 41.82259 41.35482 43.74567 44.23077 43.02668 43.97956 43.74567
## [241] 43.51178 40.38462 43.26923 46.85551 43.26057 40.38462 40.85239 43.74567
## [249] 43.74567 41.35482 44.23077 44.23077 43.74567 43.97956 43.74567 43.02668
## [257] 41.82259 43.97956 40.38462 44.23077 40.38462 40.38462 40.38462 44.22211
## [265] 41.58870 43.51178 43.74567 41.34615 43.74567 44.23077 41.82259 42.29037
## [273] 41.35482 42.05648 40.38462 42.78413 43.74567 40.38462 43.74567 44.21344
## [281] 41.82259 42.29037 40.38462 43.97956 43.74567 43.74567 44.21344 42.79279
## [289] 43.97956 44.23077 43.27789 43.74567 44.21344 43.97956 43.27789 44.21344
## [297] 43.74567 43.26057 43.74567 43.74567 41.82259 43.26923 44.23077 43.97956
## [305] 43.74567 43.74567 42.29037 41.58870 43.97956 43.74567 41.35482 40.38462
## [313] 44.23077 42.54158 44.23077 42.54158 40.38462 43.51178 40.38462 40.86972
## [321] 43.27789 44.71587 40.83507 43.74567 43.74567 40.84373 40.38462 44.46466
## [329] 44.23077 40.86972 43.26057 43.74567 45.67741 42.78413 44.21344 40.38462
## [337] 41.58870 43.74567 44.23077 43.74567 40.86105 40.38462 43.74567 44.46466
## [345] 43.74567 44.21344 43.74567 40.38462 44.23077 43.27789 43.74567 43.74567
## [353] 43.74567 43.03534 42.29037 42.79279 40.85239 43.51178 43.74567 43.51178
## [361] 43.74567 40.38462 40.86105 40.38462 44.23077 41.82259 44.22211 44.21344
## [369] 43.74567 43.74567 40.85239 40.84373 43.26057 44.23077 40.84373 40.85239
## [377] 43.74567 43.74567 40.38462 43.50312 43.74567 41.82259 44.22211 40.85239
## [385] 41.10360 40.84373 44.23077 40.85239 43.98822 40.38462 42.30769 43.27789
## [393] 43.74567 41.82259 40.38462 40.38462 41.82259 40.38462 43.74567 43.74567
## [401] 40.38462 42.79279 40.86972 43.74567 43.26923 43.74567 43.74567 43.74567
## [409] 43.97956 43.74567 40.86105 43.74567 43.74567 43.74567 41.82259 44.47332
## [417] 44.23077 44.23077 44.22211 41.10360 43.51178 40.38462 44.21344 40.38462
## [425] 43.74567 40.38462 40.85239 43.74567 43.51178 43.74567 40.38462 40.38462
## [433] 43.50312 43.74567 42.79279 44.23077 43.74567 43.74567 43.74567 42.77547
## [441] 43.74567 43.74567 44.23077 40.86105 43.74567 43.74567 43.27789 43.74567
## [449] 42.77547 42.77547 44.23077 44.23077 42.30769 43.74567 40.38462 43.74567
## [457] 43.50312 43.74567 42.29037 43.74567 44.23077 43.51178 44.21344 41.35482
## [465] 43.74567 43.74567 43.74567 43.74567 44.21344 44.23077 43.51178 43.74567
## [473] 44.23077 42.29037 44.23077 40.83507 43.74567 43.74567 43.74567 43.74567
## [481] 43.74567 43.27789 44.23077 41.58870 43.74567 40.38462 40.38462 42.79279
## [489] 40.38462 43.74567 41.82259 44.21344 40.38462 40.38462 40.38462 40.38462
## [497] 43.74567 44.23077 44.23077 44.23077 43.74567 44.23077 42.05648 43.74567
## [505] 43.02668 43.74567 43.51178 43.74567 44.23077 40.83507 44.23077 43.02668
## [513] 43.74567 43.74567 41.82259 40.38462 47.10672 43.74567 43.97956 44.23077
## [521] 43.74567 43.74567 40.38462 40.38462 43.27789 40.84373 40.38462 43.74567
## [529] 43.74567 40.83507 43.74567 41.11227 43.74567 44.23077 43.74567 41.35482
## [537] 43.26057 41.82259 43.74567 44.23077 43.74567 44.22211 40.38462 40.38462
## [545] 42.05648 43.51178 44.21344 43.74567 44.23077 43.74567 40.38462 44.23077
## [553] 43.74567 43.27789 40.38462 40.60984 43.74567 43.74567 40.38462 44.23077
## [561] 44.22211 43.26057 43.74567 43.74567 40.85239 43.74567 40.60984 40.84373
## [569] 43.74567 43.50312 40.38462 44.23077 40.83507 40.85239 43.03534 44.23077
## [577] 44.23077 40.38462 43.74567 41.82259 43.97956 43.74567 43.74567 44.21344
## [585] 43.74567 43.74567 44.22211 43.74567 40.85239 43.26057 41.82259 44.22211
## [593] 40.38462 44.23077 43.74567 41.34615 43.74567 43.74567 43.97956 44.23077
## [601] 40.83507 40.38462 43.26923 44.21344 43.27789 40.85239 44.21344 44.21344
## [609] 40.38462 40.85239 41.82259 43.74567 44.21344 43.74567 40.85239 43.74567
## [617] 44.21344 43.26923 44.21344 43.74567 43.74567 43.51178 43.50312 43.51178
## [625] 40.38462 44.21344 42.30769 43.26057 43.74567 40.85239 44.23077 40.38462
## [633] 43.74567 44.23077 43.97956 43.74567 41.82259 43.74567 44.21344 40.38462
## [641] 40.86105 43.74567 44.21344 40.38462 43.74567 43.74567 41.82259 41.10360
## [649] 43.74567 43.51178 41.35482 43.74567 43.26923 42.29037 40.38462 43.74567
## [657] 41.82259 44.21344 44.23077 44.21344 44.23077 41.82259 41.82259 44.23077
## [665] 40.84373 40.38462 43.74567 44.21344 40.38462 40.38462 41.33749 43.74567
## [673] 42.05648 44.23077 43.74567 43.74567 40.38462 40.84373 43.26923 41.35482
## [681] 44.22211 44.22211 43.51178 40.85239 44.21344 44.23077 42.29037 43.74567
## [689] 44.23077 43.97956 44.23077 40.86972 43.51178 43.74567 42.55024 42.77547
## [697] 43.74567 40.38462 42.79279 43.27789 43.51178 40.38462 42.30769 43.74567
## [705] 40.38462 43.74567 41.35482 43.02668 43.27789 43.74567 44.23077 40.38462
## [713] 40.83507 44.23077 43.74567 40.38462 41.82259 43.74567 43.74567 41.82259
## [721] 43.26923 44.23077 42.54158 43.74567 43.27789 44.23077 44.22211 43.74567
## [729] 42.05648 43.74567 40.38462 40.38462 44.23077 40.38462 40.83507 43.27789
## [737] 44.23077 40.85239 43.97956 43.51178 43.74567 43.97956 43.74567 43.74567
## [745] 40.85239 43.74567 40.60984 42.79279 41.82259 44.23077 44.23077 43.26057
## [753] 43.74567 47.10672 43.97956 44.23077 40.38462 43.74567 44.22211 43.26923
## [761] 43.74567 42.54158 43.97956 43.74567 44.21344 43.74567 40.38462 43.74567
## [769] 43.74567 40.38462 40.38462 44.23077 44.23077 41.35482 43.97956 40.38462
## [777] 43.74567 43.74567 40.85239 40.85239 43.27789 44.22211 43.74567 43.74567
## [785] 41.82259 43.74567 43.74567 41.82259 43.26923 44.23077 44.21344 43.74567
## [793] 44.22211 43.74567 42.54158 43.74567 40.38462 44.23077 44.21344 43.74567
## [801] 42.79279 44.22211 42.05648 40.85239 43.74567 43.74567 40.38462 40.38462
## [809] 43.03534 43.74567 43.74567 40.60984 40.38462 43.74567 44.23077 43.51178
## [817] 44.22211 43.74567 43.27789 44.23077 43.74567 43.74567 44.23077 43.74567
## [825] 43.74567 43.74567 40.61850 40.38462 45.42620 43.74567 43.74567 43.51178
## [833] 40.85239 41.35482 43.74567 44.23077 43.74567 43.51178 41.58870 43.74567
## [841] 41.33749 43.74567 40.38462 40.84373 43.97956 42.05648 43.74567 42.55024
## [849] 44.21344 43.74567 43.74567 41.33749 43.74567 43.74567 43.26057 43.74567
## [857] 44.23077 43.51178 41.58870 40.85239 41.35482 44.23077 40.86105 40.85239
## [865] 44.21344 43.27789 44.22211 41.82259 41.82259 40.38462 40.84373 43.74567
## [873] 40.38462 40.86105 40.86972 44.21344 44.23077 40.38462 43.74567 42.05648
## [881] 43.27789 43.74567 44.23077 42.79279 43.74567 43.74567 41.10360 42.30769
## [889] 43.26923 40.38462 42.05648 44.23077 44.23077 40.38462 40.38462 41.34615
## [897] 40.85239 43.74567 43.74567 40.85239 40.38462 43.74567 43.74567 40.38462
## [905] 44.23077 40.38462 41.11227 43.27789 44.23077 43.74567 41.58870 40.38462
## [913] 43.97956 42.79279 43.74567 44.23077 43.74567 44.21344 44.23077 43.74567
## [921] 44.21344 43.74567 43.74567 41.82259 43.74567 43.02668 40.38462 43.74567
## [929] 43.74567 42.30769 44.22211 40.38462 40.38462 43.74567 43.74567 40.38462
## [937] 43.74567 41.82259 43.74567 41.58870 43.74567 43.26923 44.23077 43.74567
## [945] 43.74567 43.74567 44.23077 44.23077 43.74567 41.34615 40.38462 41.82259
## [953] 40.38462 43.74567 43.74567 40.38462 42.05648 42.05648 40.38462 44.22211
## [961] 43.74567 43.74567 43.74567 40.85239 43.74567 43.74567 43.74567 44.23077
## [969] 43.97956 43.74567 43.02668 40.38462 40.61850 40.38462 44.23077 40.83507
## [977] 44.23077 40.84373 43.74567 43.74567 42.54158 44.21344 43.74567 43.74567
## [985] 43.74567 40.38462 43.74567 43.02668 40.38462 43.74567 40.38462 43.02668
## [993] 40.85239 43.74567 41.82259 41.58870 42.05648 40.83507 40.85239 43.74567
hist(NfinalMedia)
I_mediana=median(NfinalMedia);
#I_ref=43.73
#EE=I_ref-round(I_mediana,3);EE
#EE<-round((1/1000)*sum((NfinalMedia-I_mediana)^2+((1/1000)*sum(NfinalMedia)-I_mediana)^2),2);EE
EE<-round((1/(1000-1))*sum(NfinalMedia-median(IH_trans82))^2+(median(NfinalMedia)-median(IH_trans82))^2,2);EE
## [1] 773.68