#file.choose()
datos <- read.csv("/Users/monicagonzalez/Downloads/Housing.csv")
summary(datos)
## price area bedrooms bathrooms
## Min. : 1750000 Min. : 1650 Min. :1.000 Min. :1.000
## 1st Qu.: 3430000 1st Qu.: 3600 1st Qu.:2.000 1st Qu.:1.000
## Median : 4340000 Median : 4600 Median :3.000 Median :1.000
## Mean : 4766729 Mean : 5151 Mean :2.965 Mean :1.286
## 3rd Qu.: 5740000 3rd Qu.: 6360 3rd Qu.:3.000 3rd Qu.:2.000
## Max. :13300000 Max. :16200 Max. :6.000 Max. :4.000
## stories mainroad guestroom basement
## Min. :1.000 Min. :0.0000 Min. :0.000 Min. :0.0000
## 1st Qu.:1.000 1st Qu.:1.0000 1st Qu.:0.000 1st Qu.:0.0000
## Median :2.000 Median :1.0000 Median :0.000 Median :0.0000
## Mean :1.806 Mean :0.8587 Mean :0.178 Mean :0.3505
## 3rd Qu.:2.000 3rd Qu.:1.0000 3rd Qu.:0.000 3rd Qu.:1.0000
## Max. :4.000 Max. :1.0000 Max. :1.000 Max. :1.0000
## hotwaterheating airconditioning parking prefarea
## Min. :0.00000 Min. :0.0000 Min. :0.0000 Min. :0.0000
## 1st Qu.:0.00000 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:0.0000
## Median :0.00000 Median :0.0000 Median :0.0000 Median :0.0000
## Mean :0.04587 Mean :0.3156 Mean :0.6936 Mean :0.2349
## 3rd Qu.:0.00000 3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:0.0000
## Max. :1.00000 Max. :1.0000 Max. :3.0000 Max. :1.0000
## furnishingstatus
## Length:545
## Class :character
## Mode :character
##
##
##
#install.packages("ggplot2") #Gráficas con mejor diseño
library(ggplot2)
#install.packages("lattice") #Crear gráficos
library(lattice)
#install.packages("caret") #algoritmos de aprendizaje automático (machine learning)
library(caret)
#install.packages("datasets") # usar la base de datos "iris"
library(datasets)
#install.packages("DataExplorer") # exploración de datos
library(DataExplorer)
#install.packages("kernlab") # paquete con métodos de aprendizaje automático
library(kernlab)
##
## Attaching package: 'kernlab'
## The following object is masked from 'package:ggplot2':
##
## alpha
#install.packages("randomForest") # paquete para este método de clasificación
library(randomForest)
## randomForest 4.7-1.1
## Type rfNews() to see new features/changes/bug fixes.
##
## Attaching package: 'randomForest'
## The following object is masked from 'package:ggplot2':
##
## margin
set.seed(123)
renglones_entrenamiento <- createDataPartition(datos$price, p=0.8, list=FALSE)
entrenamiento <- datos[renglones_entrenamiento, ]
prueba <- datos[-renglones_entrenamiento, ]
modelo1 <- train(price ~ ., data=entrenamiento,
method = "lm", # Cambiar)
preProcess=c("scale","center"),
trControl = trainControl(method="cv", number=10)
)
resultado_entrenamiento1 <- predict(modelo1,entrenamiento)
resultado_prueba1 <- predict(modelo1,prueba)
regresion <- lm(price ~., data = datos)
summary(regresion)
##
## Call:
## lm(formula = price ~ ., data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2619718 -657322 -68409 507176 5166695
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 42771.69 264313.31 0.162 0.871508
## area 244.14 24.29 10.052 < 2e-16 ***
## bedrooms 114787.56 72598.66 1.581 0.114445
## bathrooms 987668.11 103361.98 9.555 < 2e-16 ***
## stories 450848.00 64168.93 7.026 6.55e-12 ***
## mainroad 421272.59 142224.13 2.962 0.003193 **
## guestroom 300525.86 131710.22 2.282 0.022901 *
## basement 350106.90 110284.06 3.175 0.001587 **
## hotwaterheating 855447.15 223152.69 3.833 0.000141 ***
## airconditioning 864958.31 108354.51 7.983 8.91e-15 ***
## parking 277107.10 58525.89 4.735 2.82e-06 ***
## prefarea 651543.80 115682.34 5.632 2.89e-08 ***
## furnishingstatussemi-furnished -46344.62 116574.09 -0.398 0.691118
## furnishingstatusunfurnished -411234.39 126210.56 -3.258 0.001192 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1068000 on 531 degrees of freedom
## Multiple R-squared: 0.6818, Adjusted R-squared: 0.674
## F-statistic: 87.52 on 13 and 531 DF, p-value: < 2.2e-16
predict(regresion,datos)
## 1 2 3 4 5 6 7 8
## 8133305 10561027 7626588 8329202 6693878 8427783 9808678 8446506
## 9 10 11 12 13 14 15 16
## 7511437 7673837 8341234 8266681 7146604 6064376 6194926 5135371
## 17 18 19 20 21 22 23 24
## 7444554 8081492 6528179 7000079 5465877 6639979 6004943 6591413
## 25 26 27 28 29 30 31 32
## 7253038 8118247 8172762 4644423 7204456 7240365 7420015 6681271
## 33 34 35 36 37 38 39 40
## 6785236 6644684 6389958 7715283 7747036 8318350 6372767 7262480
## 41 42 43 44 45 46 47 48
## 6163493 7656364 7177097 6674629 7308824 6419737 7194037 7558610
## 49 50 51 52 53 54 55 56
## 4951218 7171778 6920949 5874480 7609350 7217281 6546522 4893438
## 57 58 59 60 61 62 63 64
## 6837926 8993312 7973160 7494563 5681564 5395814 6465722 7874518
## 65 66 67 68 69 70 71 72
## 7118897 7345569 6837437 5257444 4853825 7957630 6482261 6620483
## 73 74 75 76 77 78 79 80
## 5930315 7085318 5166755 5649363 7220164 7239695 6359867 6766608
## 81 82 83 84 85 86 87 88
## 5900361 6107824 7941771 6870585 4979052 7015395 5367445 4071692
## 89 90 91 92 93 94 95 96
## 6366111 7551613 4737082 5636467 6924488 6992437 6397522 6510087
## 97 98 99 100 101 102 103 104
## 5722935 6207313 6852875 5619185 6301286 5008802 7326148 6852056
## 105 106 107 108 109 110 111 112
## 6433749 5151818 6500203 5306410 4285181 6801944 5668289 6200492
## 113 114 115 116 117 118 119 120
## 5079601 6151409 4997130 6875043 5810095 4881359 5680907 6335260
## 121 122 123 124 125 126 127 128
## 5699985 6583933 6108640 5587327 6457252 7428325 5139592 6176917
## 129 130 131 132 133 134 135 136
## 5933977 7105870 3658191 5391280 5236758 4774212 5465419 6505695
## 137 138 139 140 141 142 143 144
## 6126518 4176128 5187930 6520999 6456868 6959134 6594453 5910778
## 145 146 147 148 149 150 151 152
## 5752712 4820164 4926362 5258968 5306545 5916005 5707571 5911144
## 153 154 155 156 157 158 159 160
## 6412834 5782530 5084418 6279706 5187317 4994435 4703025 5519221
## 161 162 163 164 165 166 167 168
## 6395844 6408553 6667379 6033965 6902898 5904136 6160799 5615673
## 169 170 171 172 173 174 175 176
## 5067658 5794239 4881120 5636297 7058657 5748585 4793550 7001188
## 177 178 179 180 181 182 183 184
## 5746163 4679272 5786697 4969672 5749668 6034858 3927627 5077462
## 185 186 187 188 189 190 191 192
## 5068490 3369062 6020158 5556438 5084729 3179404 6087190 5914351
## 193 194 195 196 197 198 199 200
## 5160420 3908293 5828615 6722526 5583114 5393585 4968526 4000264
## 201 202 203 204 205 206 207 208
## 4970002 4745496 3718859 4084567 4015756 5157829 5017390 4598910
## 209 210 211 212 213 214 215 216
## 3827368 3476305 4990545 5950535 6358118 4872617 3133014 3753005
## 217 218 219 220 221 222 223 224
## 4880938 6443772 4777824 4345619 7414718 4588839 6092852 5733148
## 225 226 227 228 229 230 231 232
## 6291605 5354328 5680281 5089144 4091867 7041717 4506535 3906804
## 233 234 235 236 237 238 239 240
## 3962180 4366900 5490676 5480729 4539495 4224672 5205058 3951436
## 241 242 243 244 245 246 247 248
## 4517573 3672757 4451397 3670433 5252425 4800882 3711493 6185112
## 249 250 251 252 253 254 255 256
## 4725063 6320659 3959204 4120921 4607793 4093898 5286455 4299727
## 257 258 259 260 261 262 263 264
## 4228543 4261073 3914857 5177034 4611805 3508356 3651946 3198899
## 265 266 267 268 269 270 271 272
## 4083029 4006092 4232847 4129699 4839662 3238680 6367469 3274921
## 273 274 275 276 277 278 279 280
## 4400293 4221261 4340913 3466612 3437111 5543726 5037365 3684862
## 281 282 283 284 285 286 287 288
## 3724476 4649935 3911858 3877006 4306206 4575479 3928990 4494262
## 289 290 291 292 293 294 295 296
## 4732064 4718853 4957481 4222546 4003260 2653390 4309167 2797778
## 297 298 299 300 301 302 303 304
## 5904201 4512979 5026248 4787220 4098119 4162341 4189715 3695657
## 305 306 307 308 309 310 311 312
## 5396157 3770814 4110168 4201729 4266428 4762026 4011860 4192490
## 313 314 315 316 317 318 319 320
## 4992434 4537528 3800069 4317930 5035356 5047163 3260143 5718760
## 321 322 323 324 325 326 327 328
## 4958211 5934982 5571486 4350252 4543846 4475895 2880282 4954243
## 329 330 331 332 333 334 335 336
## 5531514 3664563 4462690 6488997 4759613 3383845 4067908 4833051
## 337 338 339 340 341 342 343 344
## 5592397 4463474 4110119 4576590 5162608 4754143 5308814 3081880
## 345 346 347 348 349 350 351 352
## 3025728 4145018 4019956 3104404 3771332 3828178 4504150 2964693
## 353 354 355 356 357 358 359 360
## 3698448 4497425 4460013 4815287 5150297 4360279 3586940 2991698
## 361 362 363 364 365 366 367 368
## 3072114 3670298 3120900 3816234 4197423 3462695 3368468 3472085
## 369 370 371 372 373 374 375 376
## 3041464 3011037 4549880 3873111 3356624 4180360 4282937 4392240
## 377 378 379 380 381 382 383 384
## 5201604 4550380 6029641 3900817 3184418 3713892 3816917 5803175
## 385 386 387 388 389 390 391 392
## 2809490 2609568 3329840 4551536 3177645 3889255 3374170 3742741
## 393 394 395 396 397 398 399 400
## 3625543 3226907 3128979 3786908 3251565 3849665 3325359 4157322
## 401 402 403 404 405 406 407 408
## 3506970 6088726 3156441 4995829 3061547 2582755 3948374 4323842
## 409 410 411 412 413 414 415 416
## 2697459 3052699 2775625 4323842 3925391 4751927 2707224 5658676
## 417 418 419 420 421 422 423 424
## 3582291 3020803 4674985 4006721 3177603 2880563 3072785 2751211
## 425 426 427 428 429 430 431 432
## 3337093 3814041 2484827 4223101 2984331 3567090 2774935 4392753
## 433 434 435 436 437 438 439 440
## 4377041 3471654 3691991 2707224 4223101 3548335 2763146 2259096
## 441 442 443 444 445 446 447 448
## 3640099 3353426 3518237 2746205 3038213 2859629 4188176 2869113
## 449 450 451 452 453 454 455 456
## 3639756 2618201 3843814 3733732 5402895 2747272 4250122 3527342
## 457 458 459 460 461 462 463 464
## 3437569 3011793 3226473 2575389 3975537 4146898 3107602 3125925
## 465 466 467 468 469 470 471 472
## 4767820 2648631 2984545 3996652 2777926 3255177 2653668 3202059
## 473 474 475 476 477 478 479 480
## 4483761 3686223 3319653 3269057 4341966 2931832 3021273 2873602
## 481 482 483 484 485 486 487 488
## 3356866 2370039 2634303 4266408 2041812 2607127 3550627 3719677
## 489 490 491 492 493 494 495 496
## 4121697 3312921 4059825 2632498 3560720 3213715 3381049 3540201
## 497 498 499 500 501 502 503 504
## 2697459 2681345 3024918 5027352 2519279 2007675 3212503 3177136
## 505 506 507 508 509 510 511 512
## 3363443 4128053 2010074 2599803 2795114 5076767 2117538 2190779
## 513 514 515 516 517 518 519 520
## 3315402 3360750 2962572 3420331 2668273 2730426 2875915 3353384
## 521 522 523 524 525 526 527 528
## 3600774 2187075 3302016 4480643 2517772 2609568 2497264 2462865
## 529 530 531 532 533 534 535 536
## 2154074 3605877 2745935 4224857 2032047 2872471 3133742 2818317
## 537 538 539 540 541 542 543 544
## 2929796 2701574 2611766 2306712 3357640 2365240 2604686 2536096
## 545
## 3226473
LS0tCnRpdGxlOiAiSG91c2UgUHJpY2UgUHJlZGljdGlvbiIKYXV0aG9yOiAiTW9uaWNhIEdvbnphbGV6IEEwMTczNTYyNiIKZGF0ZTogIjIwMjQtMDgtMjAiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgIHRoZW1lOiBjb3NtbwotLS0KCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpkYXRvcyA8LSByZWFkLmNzdigiL1VzZXJzL21vbmljYWdvbnphbGV6L0Rvd25sb2Fkcy9Ib3VzaW5nLmNzdiIpCnN1bW1hcnkoZGF0b3MpCmBgYApgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImdncGxvdDIiKSAjR3LDoWZpY2FzIGNvbiBtZWpvciBkaXNlw7FvCmxpYnJhcnkoZ2dwbG90MikKI2luc3RhbGwucGFja2FnZXMoImxhdHRpY2UiKSAjQ3JlYXIgZ3LDoWZpY29zCmxpYnJhcnkobGF0dGljZSkKI2luc3RhbGwucGFja2FnZXMoImNhcmV0IikgI2FsZ29yaXRtb3MgZGUgYXByZW5kaXphamUgYXV0b23DoXRpY28gKG1hY2hpbmUgbGVhcm5pbmcpCmxpYnJhcnkoY2FyZXQpCiNpbnN0YWxsLnBhY2thZ2VzKCJkYXRhc2V0cyIpICMgdXNhciBsYSBiYXNlIGRlIGRhdG9zICJpcmlzIgpsaWJyYXJ5KGRhdGFzZXRzKQojaW5zdGFsbC5wYWNrYWdlcygiRGF0YUV4cGxvcmVyIikgIyBleHBsb3JhY2nDs24gZGUgZGF0b3MKbGlicmFyeShEYXRhRXhwbG9yZXIpCiNpbnN0YWxsLnBhY2thZ2VzKCJrZXJubGFiIikgIyBwYXF1ZXRlIGNvbiBtw6l0b2RvcyBkZSBhcHJlbmRpemFqZSBhdXRvbcOhdGljbwpsaWJyYXJ5KGtlcm5sYWIpCiNpbnN0YWxsLnBhY2thZ2VzKCJyYW5kb21Gb3Jlc3QiKSAjIHBhcXVldGUgcGFyYSBlc3RlIG3DqXRvZG8gZGUgY2xhc2lmaWNhY2nDs24KbGlicmFyeShyYW5kb21Gb3Jlc3QpCmBgYAoKYGBge3J9CnNldC5zZWVkKDEyMykKcmVuZ2xvbmVzX2VudHJlbmFtaWVudG8gPC0gY3JlYXRlRGF0YVBhcnRpdGlvbihkYXRvcyRwcmljZSwgcD0wLjgsIGxpc3Q9RkFMU0UpCmVudHJlbmFtaWVudG8gPC0gZGF0b3NbcmVuZ2xvbmVzX2VudHJlbmFtaWVudG8sIF0KcHJ1ZWJhIDwtIGRhdG9zWy1yZW5nbG9uZXNfZW50cmVuYW1pZW50bywgXQpgYGAKCmBgYHtyfQptb2RlbG8xIDwtIHRyYWluKHByaWNlIH4gLiwgZGF0YT1lbnRyZW5hbWllbnRvLAogICAgICAgICAgICAgICAgIG1ldGhvZCA9ICJsbSIsICMgQ2FtYmlhcikKICAgICAgICAgICAgICAgICBwcmVQcm9jZXNzPWMoInNjYWxlIiwiY2VudGVyIiksCiAgICAgICAgICAgICAgICAgdHJDb250cm9sID0gdHJhaW5Db250cm9sKG1ldGhvZD0iY3YiLCBudW1iZXI9MTApCikKcmVzdWx0YWRvX2VudHJlbmFtaWVudG8xIDwtIHByZWRpY3QobW9kZWxvMSxlbnRyZW5hbWllbnRvKQpyZXN1bHRhZG9fcHJ1ZWJhMSA8LSBwcmVkaWN0KG1vZGVsbzEscHJ1ZWJhKQpgYGAKCmBgYHtyfQpyZWdyZXNpb24gPC0gbG0ocHJpY2Ugfi4sIGRhdGEgPSBkYXRvcykKc3VtbWFyeShyZWdyZXNpb24pCmBgYAoKYGBge3J9CgpwcmVkaWN0KHJlZ3Jlc2lvbixkYXRvcykKYGBg