# install.packages("readxl")
# install.packages("sf")
library(raster)
## Loading required package: sp
library(sp)
library(readxl)
library(sf)
## Linking to GEOS 3.9.1, GDAL 3.2.1, PROJ 7.2.1; sf_use_s2() is TRUE
b2 <- raster("C:/E2_CLASE_06_ABRIL/LC08_L1TP_009060_20201210_20210313_02_T1_B2.TIF")
b3 <- raster("C:/E2_CLASE_06_ABRIL/LC08_L1TP_009060_20201210_20210313_02_T1_B3.TIF")
b4 <- raster("C:/E2_CLASE_06_ABRIL/LC08_L1TP_009060_20201210_20210313_02_T1_B4.TIF")
b5 <- raster("C:/E2_CLASE_06_ABRIL/LC08_L1TP_009060_20201210_20210313_02_T1_B5.TIF")
b6 <- raster("C:/E2_CLASE_06_ABRIL/LC08_L1TP_009060_20201210_20210313_02_T1_B6.TIF")
b7 <- raster("C:/E2_CLASE_06_ABRIL/LC08_L1TP_009060_20201210_20210313_02_T1_B7.TIF")
landsat <- stack(b2, b3, b4, b5, b6, b7)
ENTRENAMIENTO <- read_xlsx("C:/E2_CLASE_06_ABRIL/puntos_.xlsx")
ENTRENAMIENTO <- ENTRENAMIENTO %>%
st_as_sf(coords = c("X","Y"))
ENTRENAMIENTO
## Simple feature collection with 160 features and 3 fields
## Geometry type: POINT
## Dimension: XY
## Bounding box: xmin: 296676 ymin: 48978 xmax: 338142 ymax: 71851
## CRS: NA
## # A tibble: 160 x 4
## NUMERO ID_CLASE CLASE geometry
## <dbl> <dbl> <chr> <POINT>
## 1 1 1 Agua (315899 55861)
## 2 2 1 Agua (316394 56024)
## 3 3 1 Agua (316589 56104)
## 4 4 1 Agua (317343 55829)
## 5 5 1 Agua (317794 55726)
## 6 6 1 Agua (319363 56082)
## 7 7 1 Agua (319898 56082)
## 8 8 1 Agua (320754 56110)
## 9 9 1 Agua (321145 55836)
## 10 10 1 Agua (321520 55999)
## # ... with 150 more rows
plot(ENTRENAMIENTO$geometry)
df <- extract(landsat, ENTRENAMIENTO)
df
## LC08_L1TP_009060_20201210_20210313_02_T1_B2
## [1,] 8588
## [2,] 13724
## [3,] 11314
## [4,] 9238
## [5,] 11848
## [6,] 10890
## [7,] 9166
## [8,] 9179
## [9,] 9144
## [10,] 9300
## [11,] 8916
## [12,] 9114
## [13,] 9114
## [14,] 9100
## [15,] 9279
## [16,] 9165
## [17,] 8999
## [18,] 9149
## [19,] 9031
## [20,] 9081
## [21,] 9161
## [22,] 8677
## [23,] 9148
## [24,] 8299
## [25,] 8590
## [26,] 8432
## [27,] 9222
## [28,] 9129
## [29,] 8587
## [30,] 9041
## [31,] 9268
## [32,] 9158
## [33,] 9190
## [34,] 8866
## [35,] 9133
## [36,] 9118
## [37,] 9050
## [38,] 8986
## [39,] 8456
## [40,] 10783
## [41,] 12734
## [42,] 11627
## [43,] 11158
## [44,] 12420
## [45,] 11379
## [46,] 9761
## [47,] 9612
## [48,] 9373
## [49,] 9814
## [50,] 8955
## [51,] 9602
## [52,] 9602
## [53,] 9212
## [54,] 9339
## [55,] 9259
## [56,] 9458
## [57,] 10177
## [58,] 9612
## [59,] 9422
## [60,] 10376
## [61,] 9652
## [62,] 9851
## [63,] 9851
## [64,] 9933
## [65,] 9886
## [66,] 9454
## [67,] 9701
## [68,] 9895
## [69,] 10058
## [70,] 12522
## [71,] 9841
## [72,] 10482
## [73,] 11958
## [74,] 11958
## [75,] 12000
## [76,] 9552
## [77,] 9552
## [78,] 9623
## [79,] 9280
## [80,] 9143
## [81,] 13772
## [82,] 8784
## [83,] 8371
## [84,] 8950
## [85,] 8331
## [86,] 8338
## [87,] 8606
## [88,] 8398
## [89,] 8150
## [90,] 8383
## [91,] 8425
## [92,] 8333
## [93,] 8385
## [94,] 8620
## [95,] 9908
## [96,] 8370
## [97,] 8478
## [98,] 8366
## [99,] 8397
## [100,] 8301
## [101,] 8353
## [102,] 8315
## [103,] 9012
## [104,] 8263
## [105,] 8679
## [106,] 8342
## [107,] 17538
## [108,] 8356
## [109,] 8522
## [110,] 8677
## [111,] 8433
## [112,] 8411
## [113,] 17874
## [114,] 12427
## [115,] 8980
## [116,] 17748
## [117,] 9708
## [118,] 12612
## [119,] 18401
## [120,] 8184
## [121,] 10790
## [122,] 9626
## [123,] 11404
## [124,] 11404
## [125,] 9473
## [126,] 8973
## [127,] 9133
## [128,] 8858
## [129,] 8811
## [130,] 8851
## [131,] 8817
## [132,] 9081
## [133,] 8988
## [134,] 8632
## [135,] 12990
## [136,] 11560
## [137,] 11859
## [138,] 13517
## [139,] 12452
## [140,] 12217
## [141,] 11223
## [142,] 9529
## [143,] 10672
## [144,] 10450
## [145,] 11170
## [146,] 11698
## [147,] 11204
## [148,] 16882
## [149,] 17561
## [150,] 10455
## [151,] 16420
## [152,] 18775
## [153,] 11140
## [154,] 11698
## [155,] 12262
## [156,] 10614
## [157,] 11829
## [158,] 18775
## [159,] 11336
## [160,] 11421
## LC08_L1TP_009060_20201210_20210313_02_T1_B3
## [1,] 7774
## [2,] 12886
## [3,] 11109
## [4,] 9181
## [5,] 11887
## [6,] 10710
## [7,] 9070
## [8,] 9072
## [9,] 9032
## [10,] 9099
## [11,] 8694
## [12,] 9027
## [13,] 9001
## [14,] 8990
## [15,] 9160
## [16,] 8839
## [17,] 8697
## [18,] 8950
## [19,] 8711
## [20,] 8851
## [21,] 9030
## [22,] 7934
## [23,] 8956
## [24,] 7190
## [25,] 7708
## [26,] 7355
## [27,] 9259
## [28,] 8934
## [29,] 7708
## [30,] 8692
## [31,] 9253
## [32,] 8934
## [33,] 9066
## [34,] 8314
## [35,] 8932
## [36,] 8934
## [37,] 8878
## [38,] 8645
## [39,] 7480
## [40,] 10474
## [41,] 12522
## [42,] 10954
## [43,] 10710
## [44,] 12138
## [45,] 11332
## [46,] 9817
## [47,] 9694
## [48,] 9186
## [49,] 9894
## [50,] 8440
## [51,] 9641
## [52,] 9641
## [53,] 8878
## [54,] 8984
## [55,] 9175
## [56,] 9322
## [57,] 9896
## [58,] 9557
## [59,] 9502
## [60,] 10278
## [61,] 9547
## [62,] 9666
## [63,] 9666
## [64,] 9840
## [65,] 9688
## [66,] 9178
## [67,] 9466
## [68,] 10027
## [69,] 10018
## [70,] 12793
## [71,] 9854
## [72,] 10583
## [73,] 11933
## [74,] 11933
## [75,] 11689
## [76,] 9255
## [77,] 9255
## [78,] 9630
## [79,] 9117
## [80,] 8836
## [81,] 13068
## [82,] 8201
## [83,] 7733
## [84,] 8195
## [85,] 7924
## [86,] 7825
## [87,] 8112
## [88,] 7829
## [89,] 7014
## [90,] 7983
## [91,] 7784
## [92,] 7428
## [93,] 7257
## [94,] 8165
## [95,] 9166
## [96,] 7870
## [97,] 8056
## [98,] 7737
## [99,] 7926
## [100,] 7840
## [101,] 8030
## [102,] 7819
## [103,] 8808
## [104,] 7684
## [105,] 8502
## [106,] 7675
## [107,] 17299
## [108,] 7922
## [109,] 8237
## [110,] 8683
## [111,] 8041
## [112,] 7918
## [113,] 17676
## [114,] 12367
## [115,] 8825
## [116,] 17011
## [117,] 9754
## [118,] 12387
## [119,] 18210
## [120,] 7124
## [121,] 10290
## [122,] 8993
## [123,] 11084
## [124,] 11084
## [125,] 8609
## [126,] 7835
## [127,] 7919
## [128,] 7614
## [129,] 7534
## [130,] 7677
## [131,] 7585
## [132,] 7921
## [133,] 7754
## [134,] 7465
## [135,] 12536
## [136,] 11296
## [137,] 11536
## [138,] 13111
## [139,] 11757
## [140,] 11803
## [141,] 10912
## [142,] 8464
## [143,] 10266
## [144,] 10042
## [145,] 10687
## [146,] 11606
## [147,] 10798
## [148,] 16423
## [149,] 16931
## [150,] 10066
## [151,] 16563
## [152,] 18501
## [153,] 10576
## [154,] 11606
## [155,] 11698
## [156,] 10145
## [157,] 11397
## [158,] 18501
## [159,] 10330
## [160,] 10771
## LC08_L1TP_009060_20201210_20210313_02_T1_B4
## [1,] 7139
## [2,] 12415
## [3,] 10639
## [4,] 8928
## [5,] 11435
## [6,] 10472
## [7,] 8806
## [8,] 8855
## [9,] 8813
## [10,] 8862
## [11,] 8138
## [12,] 8796
## [13,] 8777
## [14,] 8766
## [15,] 8939
## [16,] 8573
## [17,] 8457
## [18,] 8783
## [19,] 8482
## [20,] 8651
## [21,] 8988
## [22,] 7480
## [23,] 8796
## [24,] 6529
## [25,] 7157
## [26,] 6704
## [27,] 9188
## [28,] 8784
## [29,] 7102
## [30,] 8466
## [31,] 9159
## [32,] 8811
## [33,] 9006
## [34,] 7995
## [35,] 8807
## [36,] 8862
## [37,] 8833
## [38,] 8455
## [39,] 6890
## [40,] 10312
## [41,] 11854
## [42,] 10274
## [43,] 10000
## [44,] 11460
## [45,] 10509
## [46,] 8914
## [47,] 9196
## [48,] 8604
## [49,] 9520
## [50,] 7782
## [51,] 9215
## [52,] 9215
## [53,] 8381
## [54,] 8346
## [55,] 8254
## [56,] 8769
## [57,] 9417
## [58,] 8880
## [59,] 8715
## [60,] 9934
## [61,] 9131
## [62,] 9372
## [63,] 9372
## [64,] 9437
## [65,] 9091
## [66,] 8480
## [67,] 9052
## [68,] 9595
## [69,] 9657
## [70,] 12147
## [71,] 9204
## [72,] 10557
## [73,] 11299
## [74,] 11299
## [75,] 11168
## [76,] 8593
## [77,] 8593
## [78,] 9089
## [79,] 8335
## [80,] 8016
## [81,] 12558
## [82,] 7768
## [83,] 6551
## [84,] 8105
## [85,] 6587
## [86,] 6582
## [87,] 7149
## [88,] 6725
## [89,] 6113
## [90,] 6616
## [91,] 6613
## [92,] 6430
## [93,] 6616
## [94,] 7078
## [95,] 8176
## [96,] 6641
## [97,] 7201
## [98,] 6687
## [99,] 6715
## [100,] 6551
## [101,] 6597
## [102,] 6569
## [103,] 8788
## [104,] 6432
## [105,] 7395
## [106,] 6480
## [107,] 16825
## [108,] 6585
## [109,] 6998
## [110,] 7378
## [111,] 6742
## [112,] 6583
## [113,] 17434
## [114,] 11482
## [115,] 7486
## [116,] 16747
## [117,] 9130
## [118,] 11901
## [119,] 18007
## [120,] 6182
## [121,] 10419
## [122,] 8596
## [123,] 10078
## [124,] 10078
## [125,] 7649
## [126,] 7075
## [127,] 7251
## [128,] 6850
## [129,] 6857
## [130,] 7069
## [131,] 6964
## [132,] 7210
## [133,] 7047
## [134,] 6761
## [135,] 12497
## [136,] 11143
## [137,] 11368
## [138,] 13089
## [139,] 12071
## [140,] 11196
## [141,] 10883
## [142,] 7902
## [143,] 10109
## [144,] 10181
## [145,] 10717
## [146,] 11232
## [147,] 10683
## [148,] 16775
## [149,] 17164
## [150,] 9888
## [151,] 16998
## [152,] 18618
## [153,] 10676
## [154,] 11232
## [155,] 11636
## [156,] 10123
## [157,] 11024
## [158,] 18618
## [159,] 10520
## [160,] 10752
## LC08_L1TP_009060_20201210_20210313_02_T1_B5
## [1,] 6089
## [2,] 19495
## [3,] 15730
## [4,] 6367
## [5,] 15576
## [6,] 11821
## [7,] 6452
## [8,] 6236
## [9,] 6226
## [10,] 7838
## [11,] 10466
## [12,] 6298
## [13,] 6365
## [14,] 6416
## [15,] 6692
## [16,] 6602
## [17,] 6210
## [18,] 6164
## [19,] 6171
## [20,] 6230
## [21,] 5958
## [22,] 6056
## [23,] 6279
## [24,] 5892
## [25,] 5990
## [26,] 5930
## [27,] 6450
## [28,] 6295
## [29,] 5989
## [30,] 6225
## [31,] 6381
## [32,] 6404
## [33,] 6380
## [34,] 6265
## [35,] 6349
## [36,] 6426
## [37,] 6371
## [38,] 6242
## [39,] 5985
## [40,] 11433
## [41,] 22063
## [42,] 21082
## [43,] 20644
## [44,] 21843
## [45,] 20834
## [46,] 18961
## [47,] 17364
## [48,] 17082
## [49,] 17532
## [50,] 16120
## [51,] 17239
## [52,] 17239
## [53,] 18388
## [54,] 17458
## [55,] 17673
## [56,] 17005
## [57,] 17322
## [58,] 18382
## [59,] 17938
## [60,] 16233
## [61,] 16962
## [62,] 16977
## [63,] 16977
## [64,] 16701
## [65,] 17412
## [66,] 17174
## [67,] 16517
## [68,] 15601
## [69,] 15414
## [70,] 22758
## [71,] 20954
## [72,] 15312
## [73,] 20731
## [74,] 20731
## [75,] 19946
## [76,] 17811
## [77,] 17811
## [78,] 15331
## [79,] 18245
## [80,] 19115
## [81,] 24134
## [82,] 14891
## [83,] 19049
## [84,] 13563
## [85,] 20465
## [86,] 20500
## [87,] 19047
## [88,] 19912
## [89,] 9674
## [90,] 20282
## [91,] 18480
## [92,] 16439
## [93,] 8780
## [94,] 19020
## [95,] 19023
## [96,] 21432
## [97,] 16701
## [98,] 13777
## [99,] 20011
## [100,] 19524
## [101,] 23516
## [102,] 18557
## [103,] 17490
## [104,] 17331
## [105,] 22193
## [106,] 18727
## [107,] 25846
## [108,] 22361
## [109,] 21159
## [110,] 22777
## [111,] 19871
## [112,] 21286
## [113,] 26355
## [114,] 21457
## [115,] 24406
## [116,] 24813
## [117,] 22635
## [118,] 22852
## [119,] 27827
## [120,] 10032
## [121,] 15549
## [122,] 13500
## [123,] 12840
## [124,] 12840
## [125,] 9308
## [126,] 7916
## [127,] 8049
## [128,] 7600
## [129,] 7535
## [130,] 8114
## [131,] 7487
## [132,] 8298
## [133,] 7444
## [134,] 7783
## [135,] 18319
## [136,] 14336
## [137,] 13338
## [138,] 19603
## [139,] 14230
## [140,] 16980
## [141,] 14382
## [142,] 9602
## [143,] 15760
## [144,] 15059
## [145,] 14461
## [146,] 14452
## [147,] 14533
## [148,] 22627
## [149,] 23244
## [150,] 16014
## [151,] 22847
## [152,] 24771
## [153,] 13765
## [154,] 14452
## [155,] 15112
## [156,] 14117
## [157,] 13488
## [158,] 24771
## [159,] 14593
## [160,] 12436
## LC08_L1TP_009060_20201210_20210313_02_T1_B6
## [1,] 5373
## [2,] 14672
## [3,] 11156
## [4,] 5391
## [5,] 13626
## [6,] 9238
## [7,] 5401
## [8,] 5569
## [9,] 5370
## [10,] 6601
## [11,] 7046
## [12,] 5303
## [13,] 5346
## [14,] 5341
## [15,] 5581
## [16,] 5797
## [17,] 5308
## [18,] 5227
## [19,] 5276
## [20,] 5263
## [21,] 5262
## [22,] 5286
## [23,] 5278
## [24,] 5286
## [25,] 5290
## [26,] 5287
## [27,] 5394
## [28,] 5288
## [29,] 5280
## [30,] 5302
## [31,] 5338
## [32,] 5310
## [33,] 5296
## [34,] 5341
## [35,] 5325
## [36,] 5377
## [37,] 5364
## [38,] 5257
## [39,] 5271
## [40,] 8804
## [41,] 16082
## [42,] 14328
## [43,] 14493
## [44,] 15805
## [45,] 14935
## [46,] 12618
## [47,] 13251
## [48,] 12727
## [49,] 13802
## [50,] 12634
## [51,] 14194
## [52,] 14194
## [53,] 14364
## [54,] 13075
## [55,] 12305
## [56,] 12979
## [57,] 13797
## [58,] 13231
## [59,] 12626
## [60,] 13950
## [61,] 13381
## [62,] 12532
## [63,] 12532
## [64,] 14345
## [65,] 12488
## [66,] 12682
## [67,] 13085
## [68,] 13017
## [69,] 14000
## [70,] 17121
## [71,] 14386
## [72,] 13649
## [73,] 16491
## [74,] 16491
## [75,] 15938
## [76,] 13386
## [77,] 13386
## [78,] 12677
## [79,] 12761
## [80,] 12756
## [81,] 17098
## [82,] 11900
## [83,] 10523
## [84,] 13996
## [85,] 11423
## [86,] 10927
## [87,] 12014
## [88,] 11410
## [89,] 6531
## [90,] 11078
## [91,] 10816
## [92,] 9108
## [93,] 7470
## [94,] 11904
## [95,] 11636
## [96,] 11074
## [97,] 13183
## [98,] 8416
## [99,] 10969
## [100,] 11196
## [101,] 12901
## [102,] 11495
## [103,] 14146
## [104,] 9417
## [105,] 13671
## [106,] 9668
## [107,] 20058
## [108,] 12534
## [109,] 11848
## [110,] 13290
## [111,] 10599
## [112,] 10750
## [113,] 20566
## [114,] 15947
## [115,] 12842
## [116,] 19780
## [117,] 17593
## [118,] 15744
## [119,] 22523
## [120,] 6468
## [121,] 14747
## [122,] 11908
## [123,] 14290
## [124,] 14290
## [125,] 8658
## [126,] 7286
## [127,] 7326
## [128,] 7112
## [129,] 7028
## [130,] 7670
## [131,] 7231
## [132,] 7596
## [133,] 7251
## [134,] 7232
## [135,] 17157
## [136,] 15837
## [137,] 15599
## [138,] 17887
## [139,] 16720
## [140,] 16115
## [141,] 15558
## [142,] 8748
## [143,] 17473
## [144,] 15986
## [145,] 17862
## [146,] 16637
## [147,] 16911
## [148,] 21801
## [149,] 21824
## [150,] 15787
## [151,] 21751
## [152,] 23681
## [153,] 17154
## [154,] 16637
## [155,] 16821
## [156,] 15239
## [157,] 14133
## [158,] 23681
## [159,] 18197
## [160,] 15789
## LC08_L1TP_009060_20201210_20210313_02_T1_B7
## [1,] 5209
## [2,] 11735
## [3,] 8841
## [4,] 5214
## [5,] 10314
## [6,] 7414
## [7,] 5242
## [8,] 5269
## [9,] 5210
## [10,] 5856
## [11,] 5749
## [12,] 5094
## [13,] 5188
## [14,] 5165
## [15,] 5351
## [16,] 5491
## [17,] 5177
## [18,] 5171
## [19,] 5167
## [20,] 5135
## [21,] 5184
## [22,] 5142
## [23,] 5153
## [24,] 5164
## [25,] 5169
## [26,] 5164
## [27,] 5220
## [28,] 5156
## [29,] 5166
## [30,] 5174
## [31,] 5207
## [32,] 5183
## [33,] 5178
## [34,] 5216
## [35,] 5184
## [36,] 5237
## [37,] 5228
## [38,] 5139
## [39,] 5143
## [40,] 7486
## [41,] 11265
## [42,] 9726
## [43,] 9704
## [44,] 10851
## [45,] 10257
## [46,] 9153
## [47,] 9220
## [48,] 8930
## [49,] 9867
## [50,] 8794
## [51,] 10145
## [52,] 10145
## [53,] 9479
## [54,] 9206
## [55,] 8684
## [56,] 9294
## [57,] 9756
## [58,] 9343
## [59,] 9005
## [60,] 10605
## [61,] 9590
## [62,] 8977
## [63,] 8977
## [64,] 10422
## [65,] 9071
## [66,] 8983
## [67,] 9412
## [68,] 9852
## [69,] 10805
## [70,] 13058
## [71,] 9852
## [72,] 10639
## [73,] 11578
## [74,] 11578
## [75,] 11177
## [76,] 9184
## [77,] 9184
## [78,] 9387
## [79,] 8791
## [80,] 8558
## [81,] 13088
## [82,] 8589
## [83,] 6834
## [84,] 10128
## [85,] 7193
## [86,] 7046
## [87,] 7840
## [88,] 7142
## [89,] 5553
## [90,] 7015
## [91,] 6972
## [92,] 6409
## [93,] 6204
## [94,] 7695
## [95,] 7795
## [96,] 7168
## [97,] 8575
## [98,] 6463
## [99,] 7108
## [100,] 7086
## [101,] 7842
## [102,] 7469
## [103,] 9160
## [104,] 6410
## [105,] 8379
## [106,] 6550
## [107,] 16292
## [108,] 7652
## [109,] 7597
## [110,] 8100
## [111,] 6909
## [112,] 7010
## [113,] 16921
## [114,] 11643
## [115,] 8159
## [116,] 16308
## [117,] 11323
## [118,] 11306
## [119,] 18244
## [120,] 5549
## [121,] 12188
## [122,] 9104
## [123,] 12388
## [124,] 12388
## [125,] 7661
## [126,] 6604
## [127,] 6506
## [128,] 6563
## [129,] 6553
## [130,] 6878
## [131,] 6648
## [132,] 6772
## [133,] 6760
## [134,] 6505
## [135,] 13584
## [136,] 13419
## [137,] 13757
## [138,] 14419
## [139,] 14461
## [140,] 13356
## [141,] 13255
## [142,] 6973
## [143,] 14419
## [144,] 13771
## [145,] 16004
## [146,] 14693
## [147,] 15059
## [148,] 17393
## [149,] 17747
## [150,] 12734
## [151,] 17443
## [152,] 19810
## [153,] 14860
## [154,] 14693
## [155,] 14197
## [156,] 12546
## [157,] 12560
## [158,] 19810
## [159,] 16070
## [160,] 13769
ms <- aggregate(df,list(ENTRENAMIENTO$CLASE), mean)
ms
## Group.1 LC08_L1TP_009060_20201210_20210313_02_T1_B2
## 1 Agua 9340.825
## 2 Suelo 10177.100
## 3 Tejido urbano 11563.750
## 4 Vegetacion 9812.525
## LC08_L1TP_009060_20201210_20210313_02_T1_B3
## 1 9010.400
## 2 10038.375
## 3 10942.150
## 4 9327.125
## LC08_L1TP_009060_20201210_20210313_02_T1_B4
## 1 8726.250
## 2 9468.150
## 3 10674.975
## 4 8380.075
## LC08_L1TP_009060_20201210_20210313_02_T1_B5
## 1 7468.60
## 2 18172.05
## 3 14038.88
## 4 19654.88
## LC08_L1TP_009060_20201210_20210313_02_T1_B6
## 1 6188.025
## 2 13812.350
## 3 14515.250
## 4 12612.800
## LC08_L1TP_009060_20201210_20210313_02_T1_B7
## 1 5722.125
## 2 9812.600
## 3 12358.000
## 4 8768.150
# library("writexl")
# write_xlsx(ms,"C:/E2_CLASE_06_ABRIL/RESULTADO.xlsx")