Estadistica Descriptiva

##Estadistica descriptiva En el presente documento, se analiza la base de datos de un banco, solamente los 10 principales atributos.

#Paso 1: Importacion de datos A continuacion, importamos los datos en formato CSV

BankChurners <- read.csv("C:\\Business Analytics\\2. Statistics Programming for Business Analytics\\Estad_Clase1\\BankChurners.csv")

summary(BD)

data <- BankChurners[,2:11]

#Paso 2: Generar un codigo para la lectura de los datos

data <- BankChurners[,2:11]

columnas <- dim(data)[2]
par(mfrow= c(2,columnas/2))

inum <- NULL
icat <- NULL

for (i in 1:columnas) {
  if(is.numeric(data[,i]) == TRUE) {
    texto <- paste("Atributo: ", colnames(data)[i])
    hist(data[,i], col = i, main=texto)
    inum <- c(inum, i)
  } else {
    pie(table(data[,i]))
    icat <- c(icat, i)
  }
}