Página 1

Columna 1

Lectura de Datos

library(tidyverse)
library(funModeling)
library(DT)
Base <- read.csv("credit.csv", sep = ";")
DT::datatable(Base)

Columna 2

Resumen de datos

summary(Base)
      ID                 Edad          Ingresos       ConsumoTC      
 Length:112         Min.   :20.00   Min.   : 1500   Min.   :   0.00  
 Class :character   1st Qu.:26.00   1st Qu.: 2300   1st Qu.:  33.79  
 Mode  :character   Median :31.00   Median : 3000   Median : 100.07  
                    Mean   :31.92   Mean   : 3366   Mean   : 216.91  
                    3rd Qu.:37.00   3rd Qu.: 3970   3rd Qu.: 267.08  
                    Max.   :55.00   Max.   :10000   Max.   :1898.03  
   CasaPropia     NivelEstudios        Negaciones     EstadoFinal       
 Min.   :0.0000   Length:112         Min.   :0.0000   Length:112        
 1st Qu.:0.0000   Class :character   1st Qu.:0.0000   Class :character  
 Median :0.0000   Mode  :character   Median :0.0000   Mode  :character  
 Mean   :0.3839                      Mean   :0.3304                     
 3rd Qu.:1.0000                      3rd Qu.:0.0000                     
 Max.   :1.0000                      Max.   :4.0000

Datos Perdidos

df_status(Base)
       variable q_zeros p_zeros q_na p_na q_inf p_inf      type unique
1            ID       0    0.00    0    0     0     0 character    112
2          Edad       0    0.00    0    0     0     0   integer     28
3      Ingresos       0    0.00    0    0     0     0   integer     78
4     ConsumoTC      22   19.64    0    0     0     0   numeric     90
5    CasaPropia      69   61.61    0    0     0     0   integer      2
6 NivelEstudios       0    0.00    0    0     0     0 character      6
7    Negaciones      91   81.25    0    0     0     0   integer      5
8   EstadoFinal       0    0.00    0    0     0     0 character      2

Página 2

Fila 1

Ingresos vs Estado Final

Edad vs Estado Final