Publications by Rene Olea
Arbol de Decision
library(openxlsx) library(readxl) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1 ## ✔ lubridate...
43 sym R (107267 sym/34 pcs) 2 img
LDA
library(foreign) library(ggplot2) library(MASS) library(openxlsx) library(readr) Evidencia1 <- read_csv("Documents/Evidencia1.csv") ## Rows: 12510 Columns: 6 ## ── Column specification ─────────────────────────────────────────────────────�...
9 sym R (714579 sym/5 pcs) 1 img
Regresión Logistica
library("stats") library("psych") library("readxl") library("MASS") library("ISLR") library("fRegression") library("vcd") ## Loading required package: grid ## ## Attaching package: 'vcd' ## The following object is masked from 'package:ISLR': ## ## Hitters library("openxlsx") library(readr) Evidencia1 <- read_csv("Documents/Evidencia1.csv") ##...
24 sym R (3242 sym/19 pcs) 8 img
Clustering
library(openxlsx) library(readxl) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1 ## ✔ lubridate...
24 sym R (33078 sym/20 pcs) 1 img
ANOVA
library(readr) Evidencia1 <- read_csv("Documents/Evidencia1.csv") ## Rows: 12510 Columns: 6 ## ── Column specification ──────────────────────────────────────────────────────── ## Delimiter: "," ## dbl (6): ent, mun, est, pea, ocupados...
11 sym R (750 sym/7 pcs) 1 img
Redes Neuronales
library(neuralnet) library(openxlsx) data <- read.csv("Documents/Evidencia1.csv" ) str(data) ## 'data.frame': 12510 obs. of 6 variables: ## $ ent : int 0 0 0 0 0 1 1 1 1 1 ... ## $ mun : int 0 0 0 0 0 0 0 0 0 0 ... ## $ est : int 1 2 3 4 5 1 2 3 4 5 ... ## $ pea : num 58.743 0.165 58.471 59.015 0.281 ... ## $ o...
17 sym R (1840 sym/10 pcs) 4 img