Red Neuronal con neuralnet en R

Objetivo: Generar una red neuronal para calcular cuantos sobrevivientes resultaron del Titanic, por medio de un ETL del dataset.

*Paso 1: Instalar y referenciar librerias

library(readr)
df_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(df_titanic)
#sumar los NA'S por cada columna factor 
sum(is.na(df_titanic$Vivio))
## [1] 0
sum(is.na(df_titanic$Sexo))
## [1] 0
sum(is.na(df_titanic$Edad))
## [1] 177
sum(is.na(df_titanic$ClasePasajero))
## [1] 0

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