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