Análisis

Red neuronal Con Neuronalnet en R

Objetivo: Generar una red neuronal para calcular cuantos sobrevivientes resultaron del Titanic, por medio de un ETL del dataset *Paso 1: Instalar referenciar librerias

library(corrplot)

## Warning: package 'corrplot' was built under R version 4.4.3

## corrplot 0.95 loaded

*Paso 2: Leer Dataset y visualizar NA’s

library(readr)
library(corrplot)
titanic <- read_csv("C:/R/DatosTitanicEsp.csv" )

## Rows: 891 Columns: 12
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (5): Nombre, Sexo, Ticket, Cabina, Puerto
## dbl (7): Numero, Vivio, ClasePasajero, Edad, Familiares, FamiliaDirecta, Costo
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

View(titanic)

#Sumar los NA's por cada columna factor
sum(is.na(titanic$Vivio))

## [1] 0

sum(is.na(titanic$Sexo))

## [1] 0

sum(is.na(titanic$Edad))

## [1] 177

sum(is.na(titanic$ClasePasajero))

## [1] 0

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.