
Teoría
El Bosque Aleatorio es un algoritmo de aprendizaje
automático que combina el resultado de múltiples arboles de decision
para llegar a un resultado óptimo.
Ejemplo 1. Melbourne
En esta base de datos tenemos los precios de más de 13,000 casas de
la ciudad de Melbourne:
Instalar paquetes y llamar librerias
# install.packages("tidyverse")
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.2 ✔ tibble 3.3.0
## ✔ lubridate 1.9.4 ✔ tidyr 1.3.1
## ✔ purrr 1.1.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
# install.packages("rpart")
library(rpart)
# install.packages("rpart.plot")
library(rpart.plot)
# install.packages("randomForest")
library(randomForest)
## randomForest 4.7-1.2
## Type rfNews() to see new features/changes/bug fixes.
##
## Adjuntando el paquete: 'randomForest'
##
## The following object is masked from 'package:dplyr':
##
## combine
##
## The following object is masked from 'package:ggplot2':
##
## margin
# install.packages("modelr")
library(modelr)
Ejercicio 1. Rendimiento Automotriz
LS0tDQp0aXRsZTogIkJvc3F1ZSBBbGVhdG9yaW8iDQphdXRob3I6ICJFdWdlbmlvIFZpbGxhcnJlYWwgLSBBMDE3MjI1ODIiDQpkYXRlOiAiMjAyNS0wOC0yNyINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIHRoZW1lOiBqb3VybmFsDQotLS0NCg0KIVtdKGh0dHBzOi8vZW5jcnlwdGVkLXRibjAuZ3N0YXRpYy5jb20vaW1hZ2VzP3E9dGJuOkFOZDlHY1RiSXZjWWd6NlgzaEtzVGpfUXN2X1RXVFo4X0ZDVW4zZGNQQSZzKQ0KDQojIDxzcGFuIHN0eWxlID0iY29sb3I6YnJvd24iID4gVGVvcsOtYSA8L3NwYW4+DQpFbCAqKkJvc3F1ZSBBbGVhdG9yaW8qKiBlcyB1biBhbGdvcml0bW8gZGUgYXByZW5kaXphamUgYXV0b23DoXRpY28gcXVlIGNvbWJpbmEgZWwgcmVzdWx0YWRvIGRlIG3Dumx0aXBsZXMgYXJib2xlcyBkZSBkZWNpc2lvbiBwYXJhIGxsZWdhciBhIHVuIHJlc3VsdGFkbyDDs3B0aW1vLg0KDQojIDxzcGFuIHN0eWxlID0iY29sb3I6YnJvd24iID4gRWplbXBsbyAxLiBNZWxib3VybmUgPC9zcGFuPg0KRW4gZXN0YSBiYXNlIGRlIGRhdG9zIHRlbmVtb3MgbG9zIHByZWNpb3MgZGUgbcOhcyBkZSAxMywwMDAgY2FzYXMgZGUgbGEgY2l1ZGFkIGRlIE1lbGJvdXJuZToNCg0KIyMgPHNwYW4gc3R5bGUgPSJjb2xvcjpicm93biIgPiBJbnN0YWxhciBwYXF1ZXRlcyB5IGxsYW1hciBsaWJyZXJpYXMgPC9zcGFuPg0KYGBge3J9DQojIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIpDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCiMgaW5zdGFsbC5wYWNrYWdlcygicnBhcnQiKQ0KbGlicmFyeShycGFydCkNCiMgaW5zdGFsbC5wYWNrYWdlcygicnBhcnQucGxvdCIpDQpsaWJyYXJ5KHJwYXJ0LnBsb3QpDQojIGluc3RhbGwucGFja2FnZXMoInJhbmRvbUZvcmVzdCIpDQpsaWJyYXJ5KHJhbmRvbUZvcmVzdCkNCiMgaW5zdGFsbC5wYWNrYWdlcygibW9kZWxyIikNCmxpYnJhcnkobW9kZWxyKQ0KYGBgDQoNCg0KDQojIDxzcGFuIHN0eWxlID0iY29sb3I6YnJvd24iID4gRWplcmNpY2lvIDEuIFJlbmRpbWllbnRvIEF1dG9tb3RyaXogPC9zcGFuPg0K