VARIABLE CREATION

library(readxl)
library(magrittr)
library(dplyr)

## Warning: package 'dplyr' was built under R version 3.6.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(stargazer)

## 
## Please cite as:

##  Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.

##  R package version 5.2.2. https://CRAN.R-project.org/package=stargazer

CHUNK FOR VARIABLE CREATION

This code has the porspose to create a grade variable for each finance item with the goal to normalize the data and also get rid of the outliers with a grade between 1 and 5, as 1 the worst scenario and 5 the best possible scenario

df <- read_excel("D:/Descargas/Base de Datos consolidada.xlsx")

df <- df[complete.cases(df),]
table(is.na(df))

## 
## FALSE 
## 24596

df_manufactura <- df %>% filter(Sector=="Manufactura")
##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`ROA`[i]<=summary(df_manufactura$`ROA`)[6]) & (!is.na(df_manufactura$`ROA`[i]))) ROA[i] =  5
    if((df_manufactura$`ROA`[i]<=summary(df_manufactura$`ROA`)[5]) & (!is.na(df_manufactura$`ROA`[i]))) ROA[i] =  4
    if((df_manufactura$`ROA`[i]<=summary(df_manufactura$`ROA`)[3]) & (!is.na(df_manufactura$`ROA`[i]))) ROA[i] =  3
    if((df_manufactura$`ROA`[i]<=summary(df_manufactura$`ROA`)[2]) & (!is.na(df_manufactura$`ROA`[i]))) ROA[i] =  2
    if((df_manufactura$`ROA`[i]<=summary(df_manufactura$`ROA`)[1]) & (!is.na(df_manufactura$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_manufactura$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`ROE`[i]<=summary(df_manufactura$`ROE`)[6]) & (!is.na(df_manufactura$`ROE`[i]))) ROE[i] =  5
    if((df_manufactura$`ROE`[i]<=summary(df_manufactura$`ROE`)[5]) & (!is.na(df_manufactura$`ROE`[i]))) ROE[i] =  4
    if((df_manufactura$`ROE`[i]<=summary(df_manufactura$`ROE`)[3]) & (!is.na(df_manufactura$`ROE`[i]))) ROE[i] =  3
    if((df_manufactura$`ROE`[i]<=summary(df_manufactura$`ROE`)[2]) & (!is.na(df_manufactura$`ROE`[i]))) ROE[i] =  2
    if((df_manufactura$`ROE`[i]<=0) & (!is.na(df_manufactura$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_manufactura$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Pasivo/ Patimonio`[i]<=summary(df_manufactura$`Pasivo/ Patimonio`)[6]) & (!is.na(df_manufactura$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_manufactura$`Pasivo/ Patimonio`[i]<=summary(df_manufactura$`Pasivo/ Patimonio`)[5]) & (!is.na(df_manufactura$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_manufactura$`Pasivo/ Patimonio`[i]<=summary(df_manufactura$`Pasivo/ Patimonio`)[3]) & (!is.na(df_manufactura$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_manufactura$`Pasivo/ Patimonio`[i]<=summary(df_manufactura$`Pasivo/ Patimonio`)[2]) & (!is.na(df_manufactura$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_manufactura$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_manufactura$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_manufactura$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

##   [1] 2 2 2 2 2 2 2 2 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
##  [38] 5 5 5 5 5 5 5 2 2 4 4 4 2 2 2 2 2 5 5 2 2 2 2 4 4 5 4 4 4 4 4 3 3 3 3 3 3
##  [75] 3 3 4 4 4 4 4 3 3 3 3 3 3 3 3 5 5 5 5 5 2 2 4 4 4 2 2 2 2 2 5 5 2 2 2 2 5
## [112] 5 5 4 4 4 4 4 2 2 2 2 2 2 2 2 5 5 5 5 3 3 3 3 3 3 3 3 4 4 4 4 4 2 2 4 5 5
## [149] 2 2 2 2 2 2 2 5 5 3 3 3 3 5 5 4 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4
## [186] 4 4 4 4 4 2 2 2 2 2 2 2 4 5 5 2 2 2 2 2 5 5 3 3 3 3 5 5 4 4 4 4 4 3 3 3 3
## [223] 3 3 3 3 4 4 4 4 3 3 3 3 3 3 3 3 2 2 2 2 2 2 2 4 5 5 3 3 3 3 3 5 5 3 3 3 3
## [260] 5 5 2 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 4 4 2 2 4 3 3 3 3 5

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Apalancamiento`[i]<=summary(df_manufactura$`Apalancamiento`)[6]) & (!is.na(df_manufactura$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_manufactura$`Apalancamiento`[i]<=summary(df_manufactura$`Apalancamiento`)[5]) & (!is.na(df_manufactura$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_manufactura$`Apalancamiento`[i]<=summary(df_manufactura$`Apalancamiento`)[3]) & (!is.na(df_manufactura$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_manufactura$`Apalancamiento`[i]<=summary(df_manufactura$`Apalancamiento`)[2]) & (!is.na(df_manufactura$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_manufactura$`Apalancamiento`[i]<=0) & (!is.na(df_manufactura$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_manufactura$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

##   [1] 2 2 2 2 2 2 2 2 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
##  [38] 5 5 5 5 5 5 5 2 2 4 4 4 2 2 2 2 2 5 5 2 2 2 2 4 4 5 4 4 4 4 4 3 3 3 3 3 3
##  [75] 3 3 4 4 4 4 4 3 3 3 3 3 3 3 3 5 5 5 5 5 2 2 4 4 4 2 2 2 2 2 5 5 2 2 2 2 5
## [112] 5 5 4 4 4 4 4 2 2 2 2 2 2 2 2 5 5 5 5 3 3 3 3 3 3 3 3 4 4 4 4 4 2 2 4 5 5
## [149] 2 2 2 2 2 2 2 5 5 3 3 3 3 5 5 4 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4
## [186] 4 4 4 4 4 2 2 2 2 2 2 2 4 5 5 2 2 2 2 2 5 5 3 3 3 3 5 5 4 4 4 4 4 3 3 3 3
## [223] 3 3 3 3 4 4 4 4 3 3 3 3 3 3 3 3 2 2 2 2 2 2 2 4 5 5 3 3 3 3 3 5 5 3 3 3 3
## [260] 5 5 2 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 4 4 2 2 4 3 3 3 3 5

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Liquidez`[i]<=summary(df_manufactura$`Liquidez`)[6]) & (!is.na(df_manufactura$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_manufactura$`Liquidez`[i]<=summary(df_manufactura$`Liquidez`)[5]) & (!is.na(df_manufactura$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_manufactura$`Liquidez`[i]<=summary(df_manufactura$`Liquidez`)[3]) & (!is.na(df_manufactura$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_manufactura$`Liquidez`[i]<=summary(df_manufactura$`Liquidez`)[2]) & (!is.na(df_manufactura$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_manufactura$`Liquidez`[i]<=0) & (!is.na(df_manufactura$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_manufactura$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

##   [1] 5 5 5 5 5 5 5 5 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3
##  [38] 3 3 3 3 3 3 3 5 5 5 4 4 5 5 5 5 5 2 2 4 4 4 4 4 3 2 5 5 5 5 5 4 4 4 4 4 4
##  [75] 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 4 5 5 5 4 4 5 5 5 5 5 2 2 4 4 4 4 4
## [112] 3 2 4 4 4 4 4 5 5 5 5 5 5 5 5 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3 5 5 5 2 2
## [149] 5 5 5 5 5 5 5 2 2 4 4 4 4 3 3 2 2 2 2 2 2 2 5 5 5 5 5 5 5 5 2 2 2 2 2 2 2
## [186] 2 2 2 2 2 3 3 3 3 3 5 5 5 2 2 4 4 4 4 4 2 2 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4
## [223] 4 4 4 4 4 4 4 4 2 2 2 2 2 2 2 2 3 3 3 3 3 5 5 5 3 3 4 4 4 4 4 2 2 3 3 3 3
## [260] 3 3 5 5 5 5 5 5 5 4 4 4 4 3 3 3 3 3 3 3 3 5 5 5 3 3 3 3 3

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Prueba Ácida`[i]<=summary(df_manufactura$`Prueba Ácida`)[6]) & (!is.na(df_manufactura$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_manufactura$`Prueba Ácida`[i]<=summary(df_manufactura$`Prueba Ácida`)[5]) & (!is.na(df_manufactura$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_manufactura$`Prueba Ácida`[i]<=summary(df_manufactura$`Prueba Ácida`)[3]) & (!is.na(df_manufactura$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_manufactura$`Prueba Ácida`[i]<=summary(df_manufactura$`Prueba Ácida`)[2]) & (!is.na(df_manufactura$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_manufactura$`Prueba Ácida`[i]<=0) & (!is.na(df_manufactura$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_manufactura$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

##   [1] 4 4 4 4 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 4 4 4
##  [38] 4 4 4 4 4 4 4 5 5 5 4 4 3 3 3 3 3 2 2 3 3 3 3 3 3 2 5 5 5 5 5 4 4 4 4 4 4
##  [75] 4 4 2 2 2 2 2 3 3 3 3 3 3 3 3 4 4 4 4 4 5 5 5 4 4 2 2 2 2 2 2 2 3 3 3 3 3
## [112] 5 2 5 5 5 5 5 4 4 4 4 4 4 4 4 2 2 2 2 2 2 2 2 2 2 2 2 5 5 5 5 5 4 4 5 3 3
## [149] 5 5 5 5 5 5 5 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4 5 5 5 5 5 5 5 5 2 2 2 2 2 2 2
## [186] 2 2 2 2 2 4 4 4 4 4 4 4 5 3 3 3 3 3 3 3 2 2 3 3 3 3 4 2 5 5 5 5 5 5 5 5 5
## [223] 5 5 5 5 3 3 3 3 3 3 3 3 3 3 3 3 5 5 5 5 5 3 3 5 3 3 4 4 4 4 4 2 2 3 3 3 3
## [260] 3 2 5 5 5 5 5 5 5 3 3 3 3 4 4 4 4 4 4 4 4 4 4 5 2 2 2 2 3

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Pasivo/Activo`[i]<=summary(df_manufactura$`Pasivo/Activo`)[6]) & (!is.na(df_manufactura$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_manufactura$`Pasivo/Activo`[i]<=summary(df_manufactura$`Pasivo/Activo`)[5]) & (!is.na(df_manufactura$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_manufactura$`Pasivo/Activo`[i]<=summary(df_manufactura$`Pasivo/Activo`)[3]) & (!is.na(df_manufactura$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_manufactura$`Pasivo/Activo`[i]<=summary(df_manufactura$`Pasivo/Activo`)[2]) & (!is.na(df_manufactura$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_manufactura$`Pasivo/Activo`[i]<=0) & (!is.na(df_manufactura$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_manufactura$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

##   [1] 5 5 5 5 5 5 5 5 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
##  [38] 2 2 2 2 2 2 2 5 5 3 3 3 5 5 5 5 5 2 2 5 5 5 5 3 3 2 3 3 3 3 3 4 4 4 4 4 4
##  [75] 4 4 3 3 3 3 3 4 4 4 4 4 4 4 4 2 2 2 2 2 5 5 3 3 3 5 5 5 5 5 2 2 5 5 5 5 2
## [112] 2 2 3 3 3 3 3 5 5 5 5 5 5 5 5 3 3 3 3 4 4 4 4 4 4 4 4 3 3 3 3 3 5 5 3 2 2
## [149] 5 5 5 5 5 5 5 2 2 4 4 4 4 2 2 3 4 4 4 4 4 4 4 4 4 4 4 4 4 4 3 3 3 3 3 3 3
## [186] 3 3 3 3 3 2 2 2 2 2 5 5 3 2 2 5 5 5 5 5 2 2 4 4 4 4 2 2 3 3 3 3 3 4 4 4 4
## [223] 4 4 4 4 3 3 3 3 4 4 4 4 4 4 4 4 3 3 3 3 3 5 5 3 2 2 4 4 4 4 4 2 2 4 4 4 4
## [260] 2 2 5 5 5 5 5 5 5 3 3 3 3 3 3 3 3 3 3 3 3 5 5 3 4 4 4 4 2

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_manufactura$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_manufactura$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_manufactura$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_manufactura$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_manufactura$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

##   [1] 5 5 5 5 5 5 5 5 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
##  [38] 3 3 3 3 3 3 3 5 5 5 5 5 3 3 3 3 3 4 4 5 5 5 5 4 2 2 5 5 5 5 5 2 2 2 2 2 2
##  [75] 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 2 2 2 2 2 5 5 3 4 4 2 2 2 2 2 3 3 5 5 5 5 4
## [112] 2 2 2 2 2 2 2 4 4 4 4 4 4 4 4 2 2 2 2 4 4 4 4 4 4 4 4 2 2 2 2 2 5 5 2 3 3
## [149] 5 5 5 5 5 5 5 3 3 4 4 4 4 2 2 4 3 3 3 3 3 3 5 5 5 5 5 5 5 5 3 3 3 3 4 4 4
## [186] 4 4 4 4 4 5 5 5 5 5 5 5 5 2 2 5 5 5 5 5 3 3 2 2 2 2 5 2 2 2 2 2 2 4 4 4 4
## [223] 4 4 4 4 2 2 2 2 4 4 4 4 4 4 4 4 2 2 2 2 2 5 5 5 2 2 5 5 5 5 5 3 3 4 4 4 4
## [260] 5 4 2 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 4 4 5 5 5 4 4 4 4 5

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Utilidad Neta/Ventas`[i]<=summary(df_manufactura$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_manufactura$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_manufactura$`Utilidad Neta/Ventas`[i]<=summary(df_manufactura$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_manufactura$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_manufactura$`Utilidad Neta/Ventas`[i]<=summary(df_manufactura$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_manufactura$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_manufactura$`Utilidad Neta/Ventas`[i]<=summary(df_manufactura$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_manufactura$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_manufactura$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_manufactura$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_manufactura$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

##   [1] 5 5 5 5 5 5 5 5 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 4 4 4 4 4 4 4
##  [38] 4 4 4 4 4 4 4 5 5 5 5 5 3 3 3 3 3 4 4 5 5 5 5 3 1 4 3 3 3 3 3 1 1 1 1 1 1
##  [75] 1 1 1 1 1 1 1 4 4 4 4 4 4 4 4 3 3 3 3 3 5 5 3 5 5 1 1 1 1 1 3 3 5 5 5 5 1
## [112] 3 1 3 3 3 3 3 5 5 5 5 5 5 5 5 1 1 1 1 4 4 4 4 4 4 4 4 4 4 4 4 4 5 5 5 3 3
## [149] 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 5 3 3 3 3 3 3 4 4 4 4 4 4 4 4 3 3 3 3 4 4 4
## [186] 4 4 4 4 4 4 4 4 4 4 5 5 5 1 1 5 5 5 5 5 3 3 1 1 1 1 4 3 2 2 2 2 2 4 4 4 4
## [223] 4 4 4 4 3 3 3 3 5 5 5 5 5 5 5 5 3 3 3 3 3 5 5 5 3 3 1 1 1 1 1 1 1 3 3 3 3
## [260] 5 5 1 1 1 1 1 1 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 1 1 1 1 3

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`DEUDA/EBITDA`[i]<=summary(df_manufactura$`DEUDA/EBITDA`)[6]) & (!is.na(df_manufactura$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_manufactura$`DEUDA/EBITDA`[i]<=summary(df_manufactura$`DEUDA/EBITDA`)[5]) & (!is.na(df_manufactura$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_manufactura$`DEUDA/EBITDA`[i]<=summary(df_manufactura$`DEUDA/EBITDA`)[3]) & (!is.na(df_manufactura$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_manufactura$`DEUDA/EBITDA`[i]<=summary(df_manufactura$`DEUDA/EBITDA`)[2]) & (!is.na(df_manufactura$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_manufactura$`DEUDA/EBITDA`[i]<=summary(df_manufactura$`DEUDA/EBITDA`)[1]) & (!is.na(df_manufactura$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_manufactura$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`PASIVO/EBITDA`[i]<=summary(df_manufactura$`PASIVO/EBITDA`)[6]) & (!is.na(df_manufactura$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_manufactura$`PASIVO/EBITDA`[i]<=summary(df_manufactura$`PASIVO/EBITDA`)[5]) & (!is.na(df_manufactura$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_manufactura$`PASIVO/EBITDA`[i]<=summary(df_manufactura$`PASIVO/EBITDA`)[3]) & (!is.na(df_manufactura$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_manufactura$`PASIVO/EBITDA`[i]<=summary(df_manufactura$`PASIVO/EBITDA`)[2]) & (!is.na(df_manufactura$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_manufactura$`PASIVO/EBITDA`[i]<=summary(df_manufactura$`PASIVO/EBITDA`)[1]) & (!is.na(df_manufactura$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_manufactura$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Días de Inventario`[i]<=summary(df_manufactura$`Días de Inventario`)[6]) & (!is.na(df_manufactura$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_manufactura$`Días de Inventario`[i]<=summary(df_manufactura$`Días de Inventario`)[5]) & (!is.na(df_manufactura$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_manufactura$`Días de Inventario`[i]<=summary(df_manufactura$`Días de Inventario`)[3]) & (!is.na(df_manufactura$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_manufactura$`Días de Inventario`[i]<=summary(df_manufactura$`Días de Inventario`)[2]) & (!is.na(df_manufactura$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_manufactura$`Días de Inventario`[i]<=summary(df_manufactura$`Días de Inventario`)[1]) & (!is.na(df_manufactura$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_manufactura$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Días de cuentas por Cobrar`[i]<=summary(df_manufactura$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_manufactura$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_manufactura$`Días de cuentas por Cobrar`[i]<=summary(df_manufactura$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_manufactura$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_manufactura$`Días de cuentas por Cobrar`[i]<=summary(df_manufactura$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_manufactura$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_manufactura$`Días de cuentas por Cobrar`[i]<=summary(df_manufactura$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_manufactura$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_manufactura$`Días de cuentas por Cobrar`[i]<=summary(df_manufactura$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_manufactura$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_manufactura$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Días de Cuentas por Pagar`[i]<=summary(df_manufactura$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_manufactura$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_manufactura$`Días de Cuentas por Pagar`[i]<=summary(df_manufactura$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_manufactura$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_manufactura$`Días de Cuentas por Pagar`[i]<=summary(df_manufactura$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_manufactura$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_manufactura$`Días de Cuentas por Pagar`[i]<=summary(df_manufactura$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_manufactura$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_manufactura$`Días de Cuentas por Pagar`[i]<=summary(df_manufactura$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_manufactura$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_manufactura$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_manufactura)) {
    
    if((df_manufactura$`Ciclo de efectivo`[i]<=summary(df_manufactura$`Ciclo de efectivo`)[6]) & (!is.na(df_manufactura$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_manufactura$`Ciclo de efectivo`[i]<=summary(df_manufactura$`Ciclo de efectivo`)[5]) & (!is.na(df_manufactura$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_manufactura$`Ciclo de efectivo`[i]<=summary(df_manufactura$`Ciclo de efectivo`)[3]) & (!is.na(df_manufactura$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_manufactura$`Ciclo de efectivo`[i]<=summary(df_manufactura$`Ciclo de efectivo`)[2]) & (!is.na(df_manufactura$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_manufactura$`Ciclo de efectivo`[i]<=summary(df_manufactura$`Ciclo de efectivo`)[1]) & (!is.na(df_manufactura$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_manufactura$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_manufactura$NOTA_ROA <- ROA

### NOTA ROE
df_manufactura$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_manufactura$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_manufactura$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_manufactura$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_manufactura$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_manufactura$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_manufactura$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_manufactura$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_manufactura$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_manufactura$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_manufactura$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_manufactura$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_manufactura$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_manufactura$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`

# COMERCIAL ---------------------------------------------------------------


df_comercial <- df %>% filter(Sector == "Comercial")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`ROA`[i]<=summary(df_comercial$`ROA`)[6]) & (!is.na(df_comercial$`ROA`[i]))) ROA[i] =  5
    if((df_comercial$`ROA`[i]<=summary(df_comercial$`ROA`)[5]) & (!is.na(df_comercial$`ROA`[i]))) ROA[i] =  4
    if((df_comercial$`ROA`[i]<=summary(df_comercial$`ROA`)[3]) & (!is.na(df_comercial$`ROA`[i]))) ROA[i] =  3
    if((df_comercial$`ROA`[i]<=summary(df_comercial$`ROA`)[2]) & (!is.na(df_comercial$`ROA`[i]))) ROA[i] =  2
    if((df_comercial$`ROA`[i]<=summary(df_comercial$`ROA`)[1]) & (!is.na(df_comercial$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_comercial$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`ROE`[i]<=summary(df_comercial$`ROE`)[6]) & (!is.na(df_comercial$`ROE`[i]))) ROE[i] =  5
    if((df_comercial$`ROE`[i]<=summary(df_comercial$`ROE`)[5]) & (!is.na(df_comercial$`ROE`[i]))) ROE[i] =  4
    if((df_comercial$`ROE`[i]<=summary(df_comercial$`ROE`)[3]) & (!is.na(df_comercial$`ROE`[i]))) ROE[i] =  3
    if((df_comercial$`ROE`[i]<=summary(df_comercial$`ROE`)[2]) & (!is.na(df_comercial$`ROE`[i]))) ROE[i] =  2
    if((df_comercial$`ROE`[i]<=0) & (!is.na(df_comercial$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_comercial$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Pasivo/ Patimonio`[i]<=summary(df_comercial$`Pasivo/ Patimonio`)[6]) & (!is.na(df_comercial$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_comercial$`Pasivo/ Patimonio`[i]<=summary(df_comercial$`Pasivo/ Patimonio`)[5]) & (!is.na(df_comercial$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_comercial$`Pasivo/ Patimonio`[i]<=summary(df_comercial$`Pasivo/ Patimonio`)[3]) & (!is.na(df_comercial$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_comercial$`Pasivo/ Patimonio`[i]<=summary(df_comercial$`Pasivo/ Patimonio`)[2]) & (!is.na(df_comercial$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_comercial$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_comercial$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_comercial$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

##   [1] 2 2 2 5 5 5 5 5 2 4 4 4 4 2 5 4 4 4 3 3 3 3 2 2 4 4 5 5 5 2 2 2 3 3 3 5 2
##  [38] 5 5 4 2 5 3 3 4 3 3 3 3 2 2 4 4 5 5 5 2 2 2 4 4 4 5 2 4 4 2 3 4 4 4 4 3 3
##  [75] 3 3 2 2 5 5 5 5 5 2 2 5 4 2 4 4 2 3 4 3 3 4 5 5 2 5 5 4 2 4 4 2 3 2 3 3 3
## [112] 5 5 5 3 2 3 3 3 3

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Apalancamiento`[i]<=summary(df_comercial$`Apalancamiento`)[6]) & (!is.na(df_comercial$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_comercial$`Apalancamiento`[i]<=summary(df_comercial$`Apalancamiento`)[5]) & (!is.na(df_comercial$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_comercial$`Apalancamiento`[i]<=summary(df_comercial$`Apalancamiento`)[3]) & (!is.na(df_comercial$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_comercial$`Apalancamiento`[i]<=summary(df_comercial$`Apalancamiento`)[2]) & (!is.na(df_comercial$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_comercial$`Apalancamiento`[i]<=0) & (!is.na(df_comercial$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_comercial$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

##   [1] 2 2 2 5 5 5 5 5 2 5 5 4 4 2 5 4 4 4 3 3 3 3 2 2 3 3 5 5 5 2 2 2 3 3 3 5 2
##  [38] 5 5 5 2 5 4 4 4 3 3 3 3 2 2 3 3 5 5 5 2 2 2 4 4 4 5 2 4 4 2 3 5 4 4 4 3 3
##  [75] 3 3 2 2 4 4 5 5 5 2 2 5 4 2 4 4 2 3 4 3 3 5 3 3 2 5 5 4 2 4 4 2 3 2 4 4 3
## [112] 5 5 3 3 2 3 3 3 3

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Liquidez`[i]<=summary(df_comercial$`Liquidez`)[6]) & (!is.na(df_comercial$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_comercial$`Liquidez`[i]<=summary(df_comercial$`Liquidez`)[5]) & (!is.na(df_comercial$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_comercial$`Liquidez`[i]<=summary(df_comercial$`Liquidez`)[3]) & (!is.na(df_comercial$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_comercial$`Liquidez`[i]<=summary(df_comercial$`Liquidez`)[2]) & (!is.na(df_comercial$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_comercial$`Liquidez`[i]<=0) & (!is.na(df_comercial$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_comercial$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

##   [1] 4 4 4 2 2 2 2 2 4 3 3 4 4 5 5 3 3 4 3 3 3 3 5 5 2 2 3 3 3 4 5 5 5 5 5 2 4
##  [38] 4 4 4 5 5 2 2 4 3 3 3 3 5 5 2 2 2 2 2 4 5 5 3 3 3 2 5 5 5 5 4 4 4 4 3 3 3
##  [75] 3 3 5 5 2 2 2 2 2 5 5 3 2 2 4 4 5 4 5 3 3 4 2 2 4 2 2 4 2 3 3 5 4 5 4 4 3
## [112] 2 2 2 4 5 5 5 3 3

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Prueba Ácida`[i]<=summary(df_comercial$`Prueba Ácida`)[6]) & (!is.na(df_comercial$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_comercial$`Prueba Ácida`[i]<=summary(df_comercial$`Prueba Ácida`)[5]) & (!is.na(df_comercial$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_comercial$`Prueba Ácida`[i]<=summary(df_comercial$`Prueba Ácida`)[3]) & (!is.na(df_comercial$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_comercial$`Prueba Ácida`[i]<=summary(df_comercial$`Prueba Ácida`)[2]) & (!is.na(df_comercial$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_comercial$`Prueba Ácida`[i]<=0) & (!is.na(df_comercial$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_comercial$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

##   [1] 4 4 4 3 3 3 3 3 2 3 3 4 4 4 2 3 3 3 3 3 3 3 5 5 2 2 4 4 4 4 5 5 5 5 5 2 2
##  [38] 5 5 4 4 3 4 4 3 2 2 2 2 5 5 2 2 4 4 4 4 5 5 2 2 2 2 2 5 5 5 3 2 5 5 4 2 2
##  [75] 2 2 5 5 2 2 3 3 3 4 5 2 2 3 5 5 5 4 3 5 5 4 2 2 4 2 2 3 2 4 4 4 4 3 5 5 4
## [112] 3 3 2 3 3 5 5 4 4

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Pasivo/Activo`[i]<=summary(df_comercial$`Pasivo/Activo`)[6]) & (!is.na(df_comercial$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_comercial$`Pasivo/Activo`[i]<=summary(df_comercial$`Pasivo/Activo`)[5]) & (!is.na(df_comercial$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_comercial$`Pasivo/Activo`[i]<=summary(df_comercial$`Pasivo/Activo`)[3]) & (!is.na(df_comercial$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_comercial$`Pasivo/Activo`[i]<=summary(df_comercial$`Pasivo/Activo`)[2]) & (!is.na(df_comercial$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_comercial$`Pasivo/Activo`[i]<=0) & (!is.na(df_comercial$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_comercial$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

##   [1] 5 5 5 2 2 2 2 2 5 3 3 3 3 5 2 3 3 3 4 4 4 4 5 5 2 2 2 2 2 5 5 5 4 4 4 3 5
##  [38] 3 3 3 5 2 4 4 3 4 4 4 4 5 5 2 2 2 2 2 5 5 5 3 3 3 3 5 3 3 4 5 3 3 3 3 4 4
##  [75] 4 4 5 5 2 2 2 2 2 5 5 2 3 5 3 3 5 4 3 4 4 3 2 2 5 2 2 3 5 3 3 4 5 5 4 4 4
## [112] 2 2 2 4 5 4 4 4 4

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_comercial$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_comercial$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_comercial$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_comercial$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_comercial$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_comercial$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_comercial$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_comercial$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_comercial$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_comercial$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_comercial$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_comercial$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_comercial$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_comercial$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

##   [1] 4 4 4 5 5 5 5 5 4 5 5 4 4 3 3 5 5 3 3 3 3 3 5 5 3 3 5 5 5 5 3 3 2 2 2 2 4
##  [38] 5 5 4 3 2 4 4 2 3 3 3 3 2 2 3 3 4 4 4 5 3 3 2 2 2 4 5 1 1 5 5 4 1 1 2 4 4
##  [75] 4 4 4 4 4 4 3 3 3 5 4 2 5 5 5 5 3 5 2 1 1 2 5 5 5 2 2 3 4 3 3 3 3 3 4 4 2
## [112] 2 2 2 2 4 4 4 2 2

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Utilidad Neta/Ventas`[i]<=summary(df_comercial$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_comercial$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_comercial$`Utilidad Neta/Ventas`[i]<=summary(df_comercial$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_comercial$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_comercial$`Utilidad Neta/Ventas`[i]<=summary(df_comercial$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_comercial$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_comercial$`Utilidad Neta/Ventas`[i]<=summary(df_comercial$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_comercial$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_comercial$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_comercial$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_comercial$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

##   [1] 4 4 4 5 5 5 5 5 2 5 5 5 5 3 5 2 2 1 3 3 3 3 5 5 4 4 4 4 4 5 3 5 1 1 1 3 3
##  [38] 4 4 4 3 4 2 2 4 2 2 2 2 4 4 3 3 3 3 3 4 3 5 1 1 1 5 5 4 4 4 4 5 2 2 4 3 3
##  [75] 3 3 4 4 5 5 2 2 2 5 4 1 5 5 5 5 3 4 5 2 2 2 4 4 5 1 1 4 5 3 3 4 3 5 3 3 3
## [112] 1 1 4 3 5 3 3 1 1

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`DEUDA/EBITDA`[i]<=summary(df_comercial$`DEUDA/EBITDA`)[6]) & (!is.na(df_comercial$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_comercial$`DEUDA/EBITDA`[i]<=summary(df_comercial$`DEUDA/EBITDA`)[5]) & (!is.na(df_comercial$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_comercial$`DEUDA/EBITDA`[i]<=summary(df_comercial$`DEUDA/EBITDA`)[3]) & (!is.na(df_comercial$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_comercial$`DEUDA/EBITDA`[i]<=summary(df_comercial$`DEUDA/EBITDA`)[2]) & (!is.na(df_comercial$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_comercial$`DEUDA/EBITDA`[i]<=summary(df_comercial$`DEUDA/EBITDA`)[1]) & (!is.na(df_comercial$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_comercial$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`PASIVO/EBITDA`[i]<=summary(df_comercial$`PASIVO/EBITDA`)[6]) & (!is.na(df_comercial$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_comercial$`PASIVO/EBITDA`[i]<=summary(df_comercial$`PASIVO/EBITDA`)[5]) & (!is.na(df_comercial$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_comercial$`PASIVO/EBITDA`[i]<=summary(df_comercial$`PASIVO/EBITDA`)[3]) & (!is.na(df_comercial$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_comercial$`PASIVO/EBITDA`[i]<=summary(df_comercial$`PASIVO/EBITDA`)[2]) & (!is.na(df_comercial$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_comercial$`PASIVO/EBITDA`[i]<=summary(df_comercial$`PASIVO/EBITDA`)[1]) & (!is.na(df_comercial$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_comercial$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Días de Inventario`[i]<=summary(df_comercial$`Días de Inventario`)[6]) & (!is.na(df_comercial$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_comercial$`Días de Inventario`[i]<=summary(df_comercial$`Días de Inventario`)[5]) & (!is.na(df_comercial$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_comercial$`Días de Inventario`[i]<=summary(df_comercial$`Días de Inventario`)[3]) & (!is.na(df_comercial$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_comercial$`Días de Inventario`[i]<=summary(df_comercial$`Días de Inventario`)[2]) & (!is.na(df_comercial$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_comercial$`Días de Inventario`[i]<=summary(df_comercial$`Días de Inventario`)[1]) & (!is.na(df_comercial$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_comercial$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Días de cuentas por Cobrar`[i]<=summary(df_comercial$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_comercial$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_comercial$`Días de cuentas por Cobrar`[i]<=summary(df_comercial$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_comercial$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_comercial$`Días de cuentas por Cobrar`[i]<=summary(df_comercial$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_comercial$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_comercial$`Días de cuentas por Cobrar`[i]<=summary(df_comercial$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_comercial$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_comercial$`Días de cuentas por Cobrar`[i]<=summary(df_comercial$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_comercial$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_comercial$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Días de Cuentas por Pagar`[i]<=summary(df_comercial$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_comercial$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_comercial$`Días de Cuentas por Pagar`[i]<=summary(df_comercial$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_comercial$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_comercial$`Días de Cuentas por Pagar`[i]<=summary(df_comercial$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_comercial$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_comercial$`Días de Cuentas por Pagar`[i]<=summary(df_comercial$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_comercial$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_comercial$`Días de Cuentas por Pagar`[i]<=summary(df_comercial$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_comercial$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_comercial$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_comercial)) {
    
    if((df_comercial$`Ciclo de efectivo`[i]<=summary(df_comercial$`Ciclo de efectivo`)[6]) & (!is.na(df_comercial$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_comercial$`Ciclo de efectivo`[i]<=summary(df_comercial$`Ciclo de efectivo`)[5]) & (!is.na(df_comercial$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_comercial$`Ciclo de efectivo`[i]<=summary(df_comercial$`Ciclo de efectivo`)[3]) & (!is.na(df_comercial$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_comercial$`Ciclo de efectivo`[i]<=summary(df_comercial$`Ciclo de efectivo`)[2]) & (!is.na(df_comercial$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_comercial$`Ciclo de efectivo`[i]<=summary(df_comercial$`Ciclo de efectivo`)[1]) & (!is.na(df_comercial$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_comercial$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_comercial$NOTA_ROA <- ROA

### NOTA ROE
df_comercial$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_comercial$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_comercial$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_comercial$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_comercial$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_comercial$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_comercial$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_comercial$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_comercial$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_comercial$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_comercial$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_comercial$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_comercial$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_comercial$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`



# AGRICULTURA -------------------------------------------------------------
df_agricultura_y_otros <- df %>% filter(Sector == "Agricultura , Ganadería, Caza y Silvicultura")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`ROA`[i]<=summary(df_agricultura_y_otros$`ROA`)[6]) & (!is.na(df_agricultura_y_otros$`ROA`[i]))) ROA[i] =  5
    if((df_agricultura_y_otros$`ROA`[i]<=summary(df_agricultura_y_otros$`ROA`)[5]) & (!is.na(df_agricultura_y_otros$`ROA`[i]))) ROA[i] =  4
    if((df_agricultura_y_otros$`ROA`[i]<=summary(df_agricultura_y_otros$`ROA`)[3]) & (!is.na(df_agricultura_y_otros$`ROA`[i]))) ROA[i] =  3
    if((df_agricultura_y_otros$`ROA`[i]<=summary(df_agricultura_y_otros$`ROA`)[2]) & (!is.na(df_agricultura_y_otros$`ROA`[i]))) ROA[i] =  2
    if((df_agricultura_y_otros$`ROA`[i]<=summary(df_agricultura_y_otros$`ROA`)[1]) & (!is.na(df_agricultura_y_otros$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_agricultura_y_otros$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`ROE`[i]<=summary(df_agricultura_y_otros$`ROE`)[6]) & (!is.na(df_agricultura_y_otros$`ROE`[i]))) ROE[i] =  5
    if((df_agricultura_y_otros$`ROE`[i]<=summary(df_agricultura_y_otros$`ROE`)[5]) & (!is.na(df_agricultura_y_otros$`ROE`[i]))) ROE[i] =  4
    if((df_agricultura_y_otros$`ROE`[i]<=summary(df_agricultura_y_otros$`ROE`)[3]) & (!is.na(df_agricultura_y_otros$`ROE`[i]))) ROE[i] =  3
    if((df_agricultura_y_otros$`ROE`[i]<=summary(df_agricultura_y_otros$`ROE`)[2]) & (!is.na(df_agricultura_y_otros$`ROE`[i]))) ROE[i] =  2
    if((df_agricultura_y_otros$`ROE`[i]<=0) & (!is.na(df_agricultura_y_otros$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_agricultura_y_otros$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agricultura_y_otros$`Pasivo/ Patimonio`)[6]) & (!is.na(df_agricultura_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_agricultura_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agricultura_y_otros$`Pasivo/ Patimonio`)[5]) & (!is.na(df_agricultura_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_agricultura_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agricultura_y_otros$`Pasivo/ Patimonio`)[3]) & (!is.na(df_agricultura_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_agricultura_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agricultura_y_otros$`Pasivo/ Patimonio`)[2]) & (!is.na(df_agricultura_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_agricultura_y_otros$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_agricultura_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_agricultura_y_otros$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

##  [1] 5 2 3 3 3 3 2 2 2 2 5 5 5 2 4 4 4 4 5 3 3 3 5 5 5 2 4 4 4 4 5 3 3 3 5 5 5 2
## [39] 3 3 3 3 5 2 2 2 4 5 2 2 2 2 2 5 4 4 4 4

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Apalancamiento`[i]<=summary(df_agricultura_y_otros$`Apalancamiento`)[6]) & (!is.na(df_agricultura_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_agricultura_y_otros$`Apalancamiento`[i]<=summary(df_agricultura_y_otros$`Apalancamiento`)[5]) & (!is.na(df_agricultura_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_agricultura_y_otros$`Apalancamiento`[i]<=summary(df_agricultura_y_otros$`Apalancamiento`)[3]) & (!is.na(df_agricultura_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_agricultura_y_otros$`Apalancamiento`[i]<=summary(df_agricultura_y_otros$`Apalancamiento`)[2]) & (!is.na(df_agricultura_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_agricultura_y_otros$`Apalancamiento`[i]<=0) & (!is.na(df_agricultura_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_agricultura_y_otros$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

##  [1] 5 2 3 3 3 3 2 2 2 2 5 5 5 2 4 4 4 4 5 3 3 3 5 5 5 2 4 4 4 4 5 3 3 3 5 5 5 2
## [39] 3 3 3 3 5 2 2 2 4 5 2 2 2 2 2 5 4 4 4 4

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Liquidez`[i]<=summary(df_agricultura_y_otros$`Liquidez`)[6]) & (!is.na(df_agricultura_y_otros$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_agricultura_y_otros$`Liquidez`[i]<=summary(df_agricultura_y_otros$`Liquidez`)[5]) & (!is.na(df_agricultura_y_otros$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_agricultura_y_otros$`Liquidez`[i]<=summary(df_agricultura_y_otros$`Liquidez`)[3]) & (!is.na(df_agricultura_y_otros$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_agricultura_y_otros$`Liquidez`[i]<=summary(df_agricultura_y_otros$`Liquidez`)[2]) & (!is.na(df_agricultura_y_otros$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_agricultura_y_otros$`Liquidez`[i]<=0) & (!is.na(df_agricultura_y_otros$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_agricultura_y_otros$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

##  [1] 2 3 4 4 4 4 5 2 2 2 2 3 3 3 5 5 5 5 2 2 2 2 2 3 3 4 5 5 5 5 4 2 2 2 2 3 5 3
## [39] 4 4 4 4 2 3 3 3 3 3 4 5 5 5 5 3 4 4 4 4

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Prueba Ácida`[i]<=summary(df_agricultura_y_otros$`Prueba Ácida`)[6]) & (!is.na(df_agricultura_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_agricultura_y_otros$`Prueba Ácida`[i]<=summary(df_agricultura_y_otros$`Prueba Ácida`)[5]) & (!is.na(df_agricultura_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_agricultura_y_otros$`Prueba Ácida`[i]<=summary(df_agricultura_y_otros$`Prueba Ácida`)[3]) & (!is.na(df_agricultura_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_agricultura_y_otros$`Prueba Ácida`[i]<=summary(df_agricultura_y_otros$`Prueba Ácida`)[2]) & (!is.na(df_agricultura_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_agricultura_y_otros$`Prueba Ácida`[i]<=0) & (!is.na(df_agricultura_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_agricultura_y_otros$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

##  [1] 3 3 4 4 4 4 5 2 2 2 2 2 4 2 5 5 5 5 3 2 2 2 3 3 3 4 5 5 5 5 5 2 2 2 2 3 5 4
## [39] 3 3 3 3 2 3 3 3 2 4 3 4 4 4 4 3 5 5 5 5

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Pasivo/Activo`[i]<=summary(df_agricultura_y_otros$`Pasivo/Activo`)[6]) & (!is.na(df_agricultura_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_agricultura_y_otros$`Pasivo/Activo`[i]<=summary(df_agricultura_y_otros$`Pasivo/Activo`)[5]) & (!is.na(df_agricultura_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_agricultura_y_otros$`Pasivo/Activo`[i]<=summary(df_agricultura_y_otros$`Pasivo/Activo`)[3]) & (!is.na(df_agricultura_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_agricultura_y_otros$`Pasivo/Activo`[i]<=summary(df_agricultura_y_otros$`Pasivo/Activo`)[2]) & (!is.na(df_agricultura_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_agricultura_y_otros$`Pasivo/Activo`[i]<=0) & (!is.na(df_agricultura_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_agricultura_y_otros$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

##  [1] 2 5 3 3 3 3 5 5 5 5 2 2 2 5 3 3 3 3 2 4 4 4 2 2 2 5 3 3 3 3 2 4 4 4 2 2 2 5
## [39] 4 4 4 4 2 5 5 5 3 2 5 4 4 4 4 2 3 3 3 3

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_agricultura_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

##  [1] 5 4 3 3 3 3 1 5 5 5 2 4 5 3 4 4 4 4 5 3 3 3 2 2 5 3 2 2 2 2 2 5 5 5 2 4 5 3
## [39] 4 4 4 4 5 5 5 5 2 4 4 3 3 3 3 4 2 2 2 2

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agricultura_y_otros$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_agricultura_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_agricultura_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agricultura_y_otros$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_agricultura_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_agricultura_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agricultura_y_otros$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_agricultura_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_agricultura_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agricultura_y_otros$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_agricultura_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_agricultura_y_otros$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_agricultura_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_agricultura_y_otros$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

##  [1] 4 3 3 3 3 3 2 5 5 5 2 5 4 2 3 3 3 3 2 2 2 2 2 3 4 2 4 4 4 4 2 5 5 5 1 4 4 2
## [39] 5 5 5 5 2 5 5 5 5 4 4 2 2 2 2 2 3 3 3 3

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agricultura_y_otros$`DEUDA/EBITDA`)[6]) & (!is.na(df_agricultura_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_agricultura_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agricultura_y_otros$`DEUDA/EBITDA`)[5]) & (!is.na(df_agricultura_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_agricultura_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agricultura_y_otros$`DEUDA/EBITDA`)[3]) & (!is.na(df_agricultura_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_agricultura_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agricultura_y_otros$`DEUDA/EBITDA`)[2]) & (!is.na(df_agricultura_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_agricultura_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agricultura_y_otros$`DEUDA/EBITDA`)[1]) & (!is.na(df_agricultura_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_agricultura_y_otros$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agricultura_y_otros$`PASIVO/EBITDA`)[6]) & (!is.na(df_agricultura_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_agricultura_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agricultura_y_otros$`PASIVO/EBITDA`)[5]) & (!is.na(df_agricultura_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_agricultura_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agricultura_y_otros$`PASIVO/EBITDA`)[3]) & (!is.na(df_agricultura_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_agricultura_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agricultura_y_otros$`PASIVO/EBITDA`)[2]) & (!is.na(df_agricultura_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_agricultura_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agricultura_y_otros$`PASIVO/EBITDA`)[1]) & (!is.na(df_agricultura_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_agricultura_y_otros$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Días de Inventario`[i]<=summary(df_agricultura_y_otros$`Días de Inventario`)[6]) & (!is.na(df_agricultura_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_agricultura_y_otros$`Días de Inventario`[i]<=summary(df_agricultura_y_otros$`Días de Inventario`)[5]) & (!is.na(df_agricultura_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_agricultura_y_otros$`Días de Inventario`[i]<=summary(df_agricultura_y_otros$`Días de Inventario`)[3]) & (!is.na(df_agricultura_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_agricultura_y_otros$`Días de Inventario`[i]<=summary(df_agricultura_y_otros$`Días de Inventario`)[2]) & (!is.na(df_agricultura_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_agricultura_y_otros$`Días de Inventario`[i]<=summary(df_agricultura_y_otros$`Días de Inventario`)[1]) & (!is.na(df_agricultura_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_agricultura_y_otros$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agricultura_y_otros$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agricultura_y_otros$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agricultura_y_otros$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agricultura_y_otros$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agricultura_y_otros$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_agricultura_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_agricultura_y_otros$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agricultura_y_otros$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agricultura_y_otros$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agricultura_y_otros$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agricultura_y_otros$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agricultura_y_otros$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_agricultura_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_agricultura_y_otros$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_agricultura_y_otros)) {
    
    if((df_agricultura_y_otros$`Ciclo de efectivo`[i]<=summary(df_agricultura_y_otros$`Ciclo de efectivo`)[6]) & (!is.na(df_agricultura_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_agricultura_y_otros$`Ciclo de efectivo`[i]<=summary(df_agricultura_y_otros$`Ciclo de efectivo`)[5]) & (!is.na(df_agricultura_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_agricultura_y_otros$`Ciclo de efectivo`[i]<=summary(df_agricultura_y_otros$`Ciclo de efectivo`)[3]) & (!is.na(df_agricultura_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_agricultura_y_otros$`Ciclo de efectivo`[i]<=summary(df_agricultura_y_otros$`Ciclo de efectivo`)[2]) & (!is.na(df_agricultura_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_agricultura_y_otros$`Ciclo de efectivo`[i]<=summary(df_agricultura_y_otros$`Ciclo de efectivo`)[1]) & (!is.na(df_agricultura_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_agricultura_y_otros$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_agricultura_y_otros$NOTA_ROA <- ROA

### NOTA ROE
df_agricultura_y_otros$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_agricultura_y_otros$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_agricultura_y_otros$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_agricultura_y_otros$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_agricultura_y_otros$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_agricultura_y_otros$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_agricultura_y_otros$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_agricultura_y_otros$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_agricultura_y_otros$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_agricultura_y_otros$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_agricultura_y_otros$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_agricultura_y_otros$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_agricultura_y_otros$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_agricultura_y_otros$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`


# CONSTRUCCION ------------------------------------------------------------

df_construccion <- df %>% filter(Sector == "Construcción")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`ROA`[i]<=summary(df_construccion$`ROA`)[6]) & (!is.na(df_construccion$`ROA`[i]))) ROA[i] =  5
    if((df_construccion$`ROA`[i]<=summary(df_construccion$`ROA`)[5]) & (!is.na(df_construccion$`ROA`[i]))) ROA[i] =  4
    if((df_construccion$`ROA`[i]<=summary(df_construccion$`ROA`)[3]) & (!is.na(df_construccion$`ROA`[i]))) ROA[i] =  3
    if((df_construccion$`ROA`[i]<=summary(df_construccion$`ROA`)[2]) & (!is.na(df_construccion$`ROA`[i]))) ROA[i] =  2
    if((df_construccion$`ROA`[i]<=summary(df_construccion$`ROA`)[1]) & (!is.na(df_construccion$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_construccion$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`ROE`[i]<=summary(df_construccion$`ROE`)[6]) & (!is.na(df_construccion$`ROE`[i]))) ROE[i] =  5
    if((df_construccion$`ROE`[i]<=summary(df_construccion$`ROE`)[5]) & (!is.na(df_construccion$`ROE`[i]))) ROE[i] =  4
    if((df_construccion$`ROE`[i]<=summary(df_construccion$`ROE`)[3]) & (!is.na(df_construccion$`ROE`[i]))) ROE[i] =  3
    if((df_construccion$`ROE`[i]<=summary(df_construccion$`ROE`)[2]) & (!is.na(df_construccion$`ROE`[i]))) ROE[i] =  2
    if((df_construccion$`ROE`[i]<=0) & (!is.na(df_construccion$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_construccion$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Pasivo/ Patimonio`[i]<=summary(df_construccion$`Pasivo/ Patimonio`)[6]) & (!is.na(df_construccion$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_construccion$`Pasivo/ Patimonio`[i]<=summary(df_construccion$`Pasivo/ Patimonio`)[5]) & (!is.na(df_construccion$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_construccion$`Pasivo/ Patimonio`[i]<=summary(df_construccion$`Pasivo/ Patimonio`)[3]) & (!is.na(df_construccion$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_construccion$`Pasivo/ Patimonio`[i]<=summary(df_construccion$`Pasivo/ Patimonio`)[2]) & (!is.na(df_construccion$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_construccion$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_construccion$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_construccion$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

##  [1] 2 2 4 2 4 4 4 4 4 4 2 2 5 5 2 5 5 5 5 5 5 2 2 5 4 2 4 4 4 4 4 4 2 2 4 3 2 3
## [39] 3 3 3 3 3 3 3 4 3 2 3 3 4 3 2

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Apalancamiento`[i]<=summary(df_construccion$`Apalancamiento`)[6]) & (!is.na(df_construccion$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_construccion$`Apalancamiento`[i]<=summary(df_construccion$`Apalancamiento`)[5]) & (!is.na(df_construccion$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_construccion$`Apalancamiento`[i]<=summary(df_construccion$`Apalancamiento`)[3]) & (!is.na(df_construccion$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_construccion$`Apalancamiento`[i]<=summary(df_construccion$`Apalancamiento`)[2]) & (!is.na(df_construccion$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_construccion$`Apalancamiento`[i]<=0) & (!is.na(df_construccion$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_construccion$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

##  [1] 2 2 4 2 4 4 4 4 4 4 2 2 5 5 2 5 5 5 5 5 5 2 2 5 4 2 4 4 4 4 4 4 2 2 4 3 2 3
## [39] 3 3 3 3 3 3 3 4 3 2 3 3 4 3 2

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Liquidez`[i]<=summary(df_construccion$`Liquidez`)[6]) & (!is.na(df_construccion$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_construccion$`Liquidez`[i]<=summary(df_construccion$`Liquidez`)[5]) & (!is.na(df_construccion$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_construccion$`Liquidez`[i]<=summary(df_construccion$`Liquidez`)[3]) & (!is.na(df_construccion$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_construccion$`Liquidez`[i]<=summary(df_construccion$`Liquidez`)[2]) & (!is.na(df_construccion$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_construccion$`Liquidez`[i]<=0) & (!is.na(df_construccion$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_construccion$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

##  [1] 2 2 5 2 2 2 2 2 2 2 2 2 2 4 5 3 3 3 3 3 3 2 2 5 5 5 3 3 3 3 3 3 4 4 5 5 3 4
## [39] 4 4 4 4 4 5 5 4 5 3 5 5 4 5 3

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Prueba Ácida`[i]<=summary(df_construccion$`Prueba Ácida`)[6]) & (!is.na(df_construccion$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_construccion$`Prueba Ácida`[i]<=summary(df_construccion$`Prueba Ácida`)[5]) & (!is.na(df_construccion$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_construccion$`Prueba Ácida`[i]<=summary(df_construccion$`Prueba Ácida`)[3]) & (!is.na(df_construccion$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_construccion$`Prueba Ácida`[i]<=summary(df_construccion$`Prueba Ácida`)[2]) & (!is.na(df_construccion$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_construccion$`Prueba Ácida`[i]<=0) & (!is.na(df_construccion$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_construccion$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

##  [1] 2 2 3 4 2 2 2 2 2 2 3 3 4 3 5 2 2 2 2 2 2 4 4 5 3 5 3 3 3 3 3 3 5 5 5 5 4 3
## [39] 3 3 3 3 3 5 5 4 5 4 5 5 4 5 4

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Pasivo/Activo`[i]<=summary(df_construccion$`Pasivo/Activo`)[6]) & (!is.na(df_construccion$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_construccion$`Pasivo/Activo`[i]<=summary(df_construccion$`Pasivo/Activo`)[5]) & (!is.na(df_construccion$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_construccion$`Pasivo/Activo`[i]<=summary(df_construccion$`Pasivo/Activo`)[3]) & (!is.na(df_construccion$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_construccion$`Pasivo/Activo`[i]<=summary(df_construccion$`Pasivo/Activo`)[2]) & (!is.na(df_construccion$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_construccion$`Pasivo/Activo`[i]<=0) & (!is.na(df_construccion$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_construccion$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

##  [1] 5 5 3 5 2 2 2 2 2 2 5 5 2 2 5 2 2 2 2 2 2 4 4 2 3 5 3 3 3 3 3 3 5 5 3 4 5 3
## [39] 3 3 3 3 3 4 4 3 4 5 4 4 3 4 5

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_construccion$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_construccion$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_construccion$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_construccion$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_construccion$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_construccion$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_construccion$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_construccion$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_construccion$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_construccion$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_construccion$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_construccion$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_construccion$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_construccion$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

##  [1] 5 5 1 5 4 4 4 4 4 4 5 5 4 1 5 2 2 2 2 2 2 4 4 1 1 5 2 2 2 2 2 2 5 5 1 1 5 3
## [39] 3 3 3 3 3 5 5 3 1 4 4 4 3 5 4

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Utilidad Neta/Ventas`[i]<=summary(df_construccion$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_construccion$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_construccion$`Utilidad Neta/Ventas`[i]<=summary(df_construccion$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_construccion$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_construccion$`Utilidad Neta/Ventas`[i]<=summary(df_construccion$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_construccion$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_construccion$`Utilidad Neta/Ventas`[i]<=summary(df_construccion$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_construccion$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_construccion$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_construccion$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_construccion$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

##  [1] 4 4 2 5 2 2 2 2 2 2 4 4 4 1 5 2 2 2 2 2 2 2 2 4 5 5 3 3 3 3 3 3 5 5 3 1 5 4
## [39] 4 4 4 4 4 5 5 3 1 5 5 5 3 4 4

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`DEUDA/EBITDA`[i]<=summary(df_construccion$`DEUDA/EBITDA`)[6]) & (!is.na(df_construccion$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_construccion$`DEUDA/EBITDA`[i]<=summary(df_construccion$`DEUDA/EBITDA`)[5]) & (!is.na(df_construccion$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_construccion$`DEUDA/EBITDA`[i]<=summary(df_construccion$`DEUDA/EBITDA`)[3]) & (!is.na(df_construccion$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_construccion$`DEUDA/EBITDA`[i]<=summary(df_construccion$`DEUDA/EBITDA`)[2]) & (!is.na(df_construccion$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_construccion$`DEUDA/EBITDA`[i]<=summary(df_construccion$`DEUDA/EBITDA`)[1]) & (!is.na(df_construccion$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_construccion$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`PASIVO/EBITDA`[i]<=summary(df_construccion$`PASIVO/EBITDA`)[6]) & (!is.na(df_construccion$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_construccion$`PASIVO/EBITDA`[i]<=summary(df_construccion$`PASIVO/EBITDA`)[5]) & (!is.na(df_construccion$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_construccion$`PASIVO/EBITDA`[i]<=summary(df_construccion$`PASIVO/EBITDA`)[3]) & (!is.na(df_construccion$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_construccion$`PASIVO/EBITDA`[i]<=summary(df_construccion$`PASIVO/EBITDA`)[2]) & (!is.na(df_construccion$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_construccion$`PASIVO/EBITDA`[i]<=summary(df_construccion$`PASIVO/EBITDA`)[1]) & (!is.na(df_construccion$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_construccion$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Días de Inventario`[i]<=summary(df_construccion$`Días de Inventario`)[6]) & (!is.na(df_construccion$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_construccion$`Días de Inventario`[i]<=summary(df_construccion$`Días de Inventario`)[5]) & (!is.na(df_construccion$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_construccion$`Días de Inventario`[i]<=summary(df_construccion$`Días de Inventario`)[3]) & (!is.na(df_construccion$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_construccion$`Días de Inventario`[i]<=summary(df_construccion$`Días de Inventario`)[2]) & (!is.na(df_construccion$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_construccion$`Días de Inventario`[i]<=summary(df_construccion$`Días de Inventario`)[1]) & (!is.na(df_construccion$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_construccion$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Días de cuentas por Cobrar`[i]<=summary(df_construccion$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_construccion$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_construccion$`Días de cuentas por Cobrar`[i]<=summary(df_construccion$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_construccion$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_construccion$`Días de cuentas por Cobrar`[i]<=summary(df_construccion$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_construccion$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_construccion$`Días de cuentas por Cobrar`[i]<=summary(df_construccion$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_construccion$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_construccion$`Días de cuentas por Cobrar`[i]<=summary(df_construccion$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_construccion$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_construccion$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Días de Cuentas por Pagar`[i]<=summary(df_construccion$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_construccion$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_construccion$`Días de Cuentas por Pagar`[i]<=summary(df_construccion$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_construccion$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_construccion$`Días de Cuentas por Pagar`[i]<=summary(df_construccion$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_construccion$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_construccion$`Días de Cuentas por Pagar`[i]<=summary(df_construccion$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_construccion$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_construccion$`Días de Cuentas por Pagar`[i]<=summary(df_construccion$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_construccion$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_construccion$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_construccion)) {
    
    if((df_construccion$`Ciclo de efectivo`[i]<=summary(df_construccion$`Ciclo de efectivo`)[6]) & (!is.na(df_construccion$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_construccion$`Ciclo de efectivo`[i]<=summary(df_construccion$`Ciclo de efectivo`)[5]) & (!is.na(df_construccion$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_construccion$`Ciclo de efectivo`[i]<=summary(df_construccion$`Ciclo de efectivo`)[3]) & (!is.na(df_construccion$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_construccion$`Ciclo de efectivo`[i]<=summary(df_construccion$`Ciclo de efectivo`)[2]) & (!is.na(df_construccion$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_construccion$`Ciclo de efectivo`[i]<=summary(df_construccion$`Ciclo de efectivo`)[1]) & (!is.na(df_construccion$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_construccion$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_construccion$NOTA_ROA <- ROA

### NOTA ROE
df_construccion$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_construccion$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_construccion$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_construccion$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_construccion$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_construccion$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_construccion$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_construccion$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_construccion$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_construccion$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_construccion$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_construccion$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_construccion$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_construccion$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`



# transporte y almacenamiento ---------------------------------------------

df_transporte_y_almacenamiento <- df %>% filter(Sector == "Transporte y Almacenamiento")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`ROA`[i]<=summary(df_transporte_y_almacenamiento$`ROA`)[6]) & (!is.na(df_transporte_y_almacenamiento$`ROA`[i]))) ROA[i] =  5
    if((df_transporte_y_almacenamiento$`ROA`[i]<=summary(df_transporte_y_almacenamiento$`ROA`)[5]) & (!is.na(df_transporte_y_almacenamiento$`ROA`[i]))) ROA[i] =  4
    if((df_transporte_y_almacenamiento$`ROA`[i]<=summary(df_transporte_y_almacenamiento$`ROA`)[3]) & (!is.na(df_transporte_y_almacenamiento$`ROA`[i]))) ROA[i] =  3
    if((df_transporte_y_almacenamiento$`ROA`[i]<=summary(df_transporte_y_almacenamiento$`ROA`)[2]) & (!is.na(df_transporte_y_almacenamiento$`ROA`[i]))) ROA[i] =  2
    if((df_transporte_y_almacenamiento$`ROA`[i]<=summary(df_transporte_y_almacenamiento$`ROA`)[1]) & (!is.na(df_transporte_y_almacenamiento$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`ROE`[i]<=summary(df_transporte_y_almacenamiento$`ROE`)[6]) & (!is.na(df_transporte_y_almacenamiento$`ROE`[i]))) ROE[i] =  5
    if((df_transporte_y_almacenamiento$`ROE`[i]<=summary(df_transporte_y_almacenamiento$`ROE`)[5]) & (!is.na(df_transporte_y_almacenamiento$`ROE`[i]))) ROE[i] =  4
    if((df_transporte_y_almacenamiento$`ROE`[i]<=summary(df_transporte_y_almacenamiento$`ROE`)[3]) & (!is.na(df_transporte_y_almacenamiento$`ROE`[i]))) ROE[i] =  3
    if((df_transporte_y_almacenamiento$`ROE`[i]<=summary(df_transporte_y_almacenamiento$`ROE`)[2]) & (!is.na(df_transporte_y_almacenamiento$`ROE`[i]))) ROE[i] =  2
    if((df_transporte_y_almacenamiento$`ROE`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

##  [1] 3 3 3 3 2 2 2 4 4 2 2 2 4 4 2 3 3 5 5 4 4 5 5 5 5 5

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Apalancamiento`[i]<=summary(df_transporte_y_almacenamiento$`Apalancamiento`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_transporte_y_almacenamiento$`Apalancamiento`[i]<=summary(df_transporte_y_almacenamiento$`Apalancamiento`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_transporte_y_almacenamiento$`Apalancamiento`[i]<=summary(df_transporte_y_almacenamiento$`Apalancamiento`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_transporte_y_almacenamiento$`Apalancamiento`[i]<=summary(df_transporte_y_almacenamiento$`Apalancamiento`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_transporte_y_almacenamiento$`Apalancamiento`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

##  [1] 3 3 3 3 2 2 2 4 4 2 2 2 4 4 2 3 3 5 5 4 4 5 5 5 5 5

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Liquidez`[i]<=summary(df_transporte_y_almacenamiento$`Liquidez`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_transporte_y_almacenamiento$`Liquidez`[i]<=summary(df_transporte_y_almacenamiento$`Liquidez`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_transporte_y_almacenamiento$`Liquidez`[i]<=summary(df_transporte_y_almacenamiento$`Liquidez`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_transporte_y_almacenamiento$`Liquidez`[i]<=summary(df_transporte_y_almacenamiento$`Liquidez`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_transporte_y_almacenamiento$`Liquidez`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

##  [1] 4 4 3 3 2 5 5 3 3 2 5 5 3 3 4 5 5 2 2 4 4 2 2 5 2 2

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Prueba Ácida`[i]<=summary(df_transporte_y_almacenamiento$`Prueba Ácida`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_transporte_y_almacenamiento$`Prueba Ácida`[i]<=summary(df_transporte_y_almacenamiento$`Prueba Ácida`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_transporte_y_almacenamiento$`Prueba Ácida`[i]<=summary(df_transporte_y_almacenamiento$`Prueba Ácida`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_transporte_y_almacenamiento$`Prueba Ácida`[i]<=summary(df_transporte_y_almacenamiento$`Prueba Ácida`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_transporte_y_almacenamiento$`Prueba Ácida`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

##  [1] 2 2 3 3 2 4 4 4 4 2 5 5 4 4 2 5 5 2 2 5 5 3 3 5 3 3

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Pasivo/Activo`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/Activo`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_transporte_y_almacenamiento$`Pasivo/Activo`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/Activo`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_transporte_y_almacenamiento$`Pasivo/Activo`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/Activo`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_transporte_y_almacenamiento$`Pasivo/Activo`[i]<=summary(df_transporte_y_almacenamiento$`Pasivo/Activo`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_transporte_y_almacenamiento$`Pasivo/Activo`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

##  [1] 4 4 4 4 5 5 5 3 3 5 5 5 3 3 5 4 4 2 2 3 3 2 2 2 2 2

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

##  [1] 4 4 5 5 2 3 3 4 4 2 3 3 5 5 2 4 4 3 3 5 5 2 2 5 2 2

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i]<=summary(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i]<=summary(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i]<=summary(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i]<=summary(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_transporte_y_almacenamiento$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

##  [1] 4 4 5 5 1 3 3 4 4 1 1 1 5 5 1 3 3 5 5 4 4 3 3 1 2 2

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`DEUDA/EBITDA`)[6]) & (!is.na(df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`DEUDA/EBITDA`)[5]) & (!is.na(df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`DEUDA/EBITDA`)[3]) & (!is.na(df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`DEUDA/EBITDA`)[2]) & (!is.na(df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`DEUDA/EBITDA`)[1]) & (!is.na(df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`PASIVO/EBITDA`)[6]) & (!is.na(df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`PASIVO/EBITDA`)[5]) & (!is.na(df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`PASIVO/EBITDA`)[3]) & (!is.na(df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`PASIVO/EBITDA`)[2]) & (!is.na(df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]<=summary(df_transporte_y_almacenamiento$`PASIVO/EBITDA`)[1]) & (!is.na(df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Días de Inventario`[i]<=summary(df_transporte_y_almacenamiento$`Días de Inventario`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_transporte_y_almacenamiento$`Días de Inventario`[i]<=summary(df_transporte_y_almacenamiento$`Días de Inventario`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_transporte_y_almacenamiento$`Días de Inventario`[i]<=summary(df_transporte_y_almacenamiento$`Días de Inventario`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_transporte_y_almacenamiento$`Días de Inventario`[i]<=summary(df_transporte_y_almacenamiento$`Días de Inventario`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_transporte_y_almacenamiento$`Días de Inventario`[i]<=summary(df_transporte_y_almacenamiento$`Días de Inventario`)[1]) & (!is.na(df_transporte_y_almacenamiento$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]<=summary(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]<=summary(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]<=summary(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]<=summary(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]<=summary(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]<=summary(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]<=summary(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]<=summary(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]<=summary(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]<=summary(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_transporte_y_almacenamiento)) {
    
    if((df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]<=summary(df_transporte_y_almacenamiento$`Ciclo de efectivo`)[6]) & (!is.na(df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]<=summary(df_transporte_y_almacenamiento$`Ciclo de efectivo`)[5]) & (!is.na(df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]<=summary(df_transporte_y_almacenamiento$`Ciclo de efectivo`)[3]) & (!is.na(df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]<=summary(df_transporte_y_almacenamiento$`Ciclo de efectivo`)[2]) & (!is.na(df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]<=summary(df_transporte_y_almacenamiento$`Ciclo de efectivo`)[1]) & (!is.na(df_transporte_y_almacenamiento$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_transporte_y_almacenamiento$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_transporte_y_almacenamiento$NOTA_ROA <- ROA

### NOTA ROE
df_transporte_y_almacenamiento$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_transporte_y_almacenamiento$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_transporte_y_almacenamiento$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_transporte_y_almacenamiento$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_transporte_y_almacenamiento$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_transporte_y_almacenamiento$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_transporte_y_almacenamiento$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_transporte_y_almacenamiento$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_transporte_y_almacenamiento$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_transporte_y_almacenamiento$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_transporte_y_almacenamiento$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_transporte_y_almacenamiento$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_transporte_y_almacenamiento$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_transporte_y_almacenamiento$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`

# TURISMO -----------------------------------------------------------------

df_turismo <- df %>% filter(Sector == "Turismo")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`ROA`[i]<=summary(df_turismo$`ROA`)[6]) & (!is.na(df_turismo$`ROA`[i]))) ROA[i] =  5
    if((df_turismo$`ROA`[i]<=summary(df_turismo$`ROA`)[5]) & (!is.na(df_turismo$`ROA`[i]))) ROA[i] =  4
    if((df_turismo$`ROA`[i]<=summary(df_turismo$`ROA`)[3]) & (!is.na(df_turismo$`ROA`[i]))) ROA[i] =  3
    if((df_turismo$`ROA`[i]<=summary(df_turismo$`ROA`)[2]) & (!is.na(df_turismo$`ROA`[i]))) ROA[i] =  2
    if((df_turismo$`ROA`[i]<=summary(df_turismo$`ROA`)[1]) & (!is.na(df_turismo$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_turismo$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`ROE`[i]<=summary(df_turismo$`ROE`)[6]) & (!is.na(df_turismo$`ROE`[i]))) ROE[i] =  5
    if((df_turismo$`ROE`[i]<=summary(df_turismo$`ROE`)[5]) & (!is.na(df_turismo$`ROE`[i]))) ROE[i] =  4
    if((df_turismo$`ROE`[i]<=summary(df_turismo$`ROE`)[3]) & (!is.na(df_turismo$`ROE`[i]))) ROE[i] =  3
    if((df_turismo$`ROE`[i]<=summary(df_turismo$`ROE`)[2]) & (!is.na(df_turismo$`ROE`[i]))) ROE[i] =  2
    if((df_turismo$`ROE`[i]<=0) & (!is.na(df_turismo$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_turismo$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Pasivo/ Patimonio`[i]<=summary(df_turismo$`Pasivo/ Patimonio`)[6]) & (!is.na(df_turismo$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_turismo$`Pasivo/ Patimonio`[i]<=summary(df_turismo$`Pasivo/ Patimonio`)[5]) & (!is.na(df_turismo$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_turismo$`Pasivo/ Patimonio`[i]<=summary(df_turismo$`Pasivo/ Patimonio`)[3]) & (!is.na(df_turismo$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_turismo$`Pasivo/ Patimonio`[i]<=summary(df_turismo$`Pasivo/ Patimonio`)[2]) & (!is.na(df_turismo$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_turismo$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_turismo$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_turismo$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

##  [1] 2 2 2 2 3 3 3 3 5 5 5

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Apalancamiento`[i]<=summary(df_turismo$`Apalancamiento`)[6]) & (!is.na(df_turismo$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_turismo$`Apalancamiento`[i]<=summary(df_turismo$`Apalancamiento`)[5]) & (!is.na(df_turismo$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_turismo$`Apalancamiento`[i]<=summary(df_turismo$`Apalancamiento`)[3]) & (!is.na(df_turismo$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_turismo$`Apalancamiento`[i]<=summary(df_turismo$`Apalancamiento`)[2]) & (!is.na(df_turismo$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_turismo$`Apalancamiento`[i]<=0) & (!is.na(df_turismo$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_turismo$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

##  [1] 2 2 2 2 3 3 3 3 5 5 5

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Liquidez`[i]<=summary(df_turismo$`Liquidez`)[6]) & (!is.na(df_turismo$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_turismo$`Liquidez`[i]<=summary(df_turismo$`Liquidez`)[5]) & (!is.na(df_turismo$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_turismo$`Liquidez`[i]<=summary(df_turismo$`Liquidez`)[3]) & (!is.na(df_turismo$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_turismo$`Liquidez`[i]<=summary(df_turismo$`Liquidez`)[2]) & (!is.na(df_turismo$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_turismo$`Liquidez`[i]<=0) & (!is.na(df_turismo$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_turismo$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

##  [1] 3 3 3 3 2 2 2 2 5 5 5

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Prueba Ácida`[i]<=summary(df_turismo$`Prueba Ácida`)[6]) & (!is.na(df_turismo$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_turismo$`Prueba Ácida`[i]<=summary(df_turismo$`Prueba Ácida`)[5]) & (!is.na(df_turismo$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_turismo$`Prueba Ácida`[i]<=summary(df_turismo$`Prueba Ácida`)[3]) & (!is.na(df_turismo$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_turismo$`Prueba Ácida`[i]<=summary(df_turismo$`Prueba Ácida`)[2]) & (!is.na(df_turismo$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_turismo$`Prueba Ácida`[i]<=0) & (!is.na(df_turismo$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_turismo$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

##  [1] 3 3 3 3 2 2 2 2 5 5 2

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Pasivo/Activo`[i]<=summary(df_turismo$`Pasivo/Activo`)[6]) & (!is.na(df_turismo$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_turismo$`Pasivo/Activo`[i]<=summary(df_turismo$`Pasivo/Activo`)[5]) & (!is.na(df_turismo$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_turismo$`Pasivo/Activo`[i]<=summary(df_turismo$`Pasivo/Activo`)[3]) & (!is.na(df_turismo$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_turismo$`Pasivo/Activo`[i]<=summary(df_turismo$`Pasivo/Activo`)[2]) & (!is.na(df_turismo$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_turismo$`Pasivo/Activo`[i]<=0) & (!is.na(df_turismo$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_turismo$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

##  [1] 4 4 4 4 3 3 3 3 2 2 2

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_turismo$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_turismo$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_turismo$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_turismo$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_turismo$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_turismo$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_turismo$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_turismo$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_turismo$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_turismo$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_turismo$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_turismo$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_turismo$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_turismo$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

##  [1] 2 2 2 2 3 3 3 3 5 5 2

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Utilidad Neta/Ventas`[i]<=summary(df_turismo$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_turismo$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_turismo$`Utilidad Neta/Ventas`[i]<=summary(df_turismo$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_turismo$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_turismo$`Utilidad Neta/Ventas`[i]<=summary(df_turismo$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_turismo$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_turismo$`Utilidad Neta/Ventas`[i]<=summary(df_turismo$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_turismo$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_turismo$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_turismo$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_turismo$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

##  [1] 1 1 1 1 1 1 1 1 5 5 5

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`DEUDA/EBITDA`[i]<=summary(df_turismo$`DEUDA/EBITDA`)[6]) & (!is.na(df_turismo$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_turismo$`DEUDA/EBITDA`[i]<=summary(df_turismo$`DEUDA/EBITDA`)[5]) & (!is.na(df_turismo$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_turismo$`DEUDA/EBITDA`[i]<=summary(df_turismo$`DEUDA/EBITDA`)[3]) & (!is.na(df_turismo$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_turismo$`DEUDA/EBITDA`[i]<=summary(df_turismo$`DEUDA/EBITDA`)[2]) & (!is.na(df_turismo$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_turismo$`DEUDA/EBITDA`[i]<=summary(df_turismo$`DEUDA/EBITDA`)[1]) & (!is.na(df_turismo$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_turismo$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`PASIVO/EBITDA`[i]<=summary(df_turismo$`PASIVO/EBITDA`)[6]) & (!is.na(df_turismo$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_turismo$`PASIVO/EBITDA`[i]<=summary(df_turismo$`PASIVO/EBITDA`)[5]) & (!is.na(df_turismo$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_turismo$`PASIVO/EBITDA`[i]<=summary(df_turismo$`PASIVO/EBITDA`)[3]) & (!is.na(df_turismo$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_turismo$`PASIVO/EBITDA`[i]<=summary(df_turismo$`PASIVO/EBITDA`)[2]) & (!is.na(df_turismo$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_turismo$`PASIVO/EBITDA`[i]<=summary(df_turismo$`PASIVO/EBITDA`)[1]) & (!is.na(df_turismo$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_turismo$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Días de Inventario`[i]<=summary(df_turismo$`Días de Inventario`)[6]) & (!is.na(df_turismo$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_turismo$`Días de Inventario`[i]<=summary(df_turismo$`Días de Inventario`)[5]) & (!is.na(df_turismo$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_turismo$`Días de Inventario`[i]<=summary(df_turismo$`Días de Inventario`)[3]) & (!is.na(df_turismo$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_turismo$`Días de Inventario`[i]<=summary(df_turismo$`Días de Inventario`)[2]) & (!is.na(df_turismo$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_turismo$`Días de Inventario`[i]<=summary(df_turismo$`Días de Inventario`)[1]) & (!is.na(df_turismo$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_turismo$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Días de cuentas por Cobrar`[i]<=summary(df_turismo$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_turismo$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_turismo$`Días de cuentas por Cobrar`[i]<=summary(df_turismo$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_turismo$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_turismo$`Días de cuentas por Cobrar`[i]<=summary(df_turismo$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_turismo$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_turismo$`Días de cuentas por Cobrar`[i]<=summary(df_turismo$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_turismo$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_turismo$`Días de cuentas por Cobrar`[i]<=summary(df_turismo$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_turismo$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_turismo$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Días de Cuentas por Pagar`[i]<=summary(df_turismo$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_turismo$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_turismo$`Días de Cuentas por Pagar`[i]<=summary(df_turismo$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_turismo$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_turismo$`Días de Cuentas por Pagar`[i]<=summary(df_turismo$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_turismo$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_turismo$`Días de Cuentas por Pagar`[i]<=summary(df_turismo$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_turismo$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_turismo$`Días de Cuentas por Pagar`[i]<=summary(df_turismo$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_turismo$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_turismo$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_turismo)) {
    
    if((df_turismo$`Ciclo de efectivo`[i]<=summary(df_turismo$`Ciclo de efectivo`)[6]) & (!is.na(df_turismo$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_turismo$`Ciclo de efectivo`[i]<=summary(df_turismo$`Ciclo de efectivo`)[5]) & (!is.na(df_turismo$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_turismo$`Ciclo de efectivo`[i]<=summary(df_turismo$`Ciclo de efectivo`)[3]) & (!is.na(df_turismo$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_turismo$`Ciclo de efectivo`[i]<=summary(df_turismo$`Ciclo de efectivo`)[2]) & (!is.na(df_turismo$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_turismo$`Ciclo de efectivo`[i]<=summary(df_turismo$`Ciclo de efectivo`)[1]) & (!is.na(df_turismo$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_turismo$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_turismo$NOTA_ROA <- ROA

### NOTA ROE
df_turismo$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_turismo$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_turismo$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_turismo$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_turismo$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_turismo$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_turismo$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_turismo$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_turismo$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_turismo$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_turismo$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_turismo$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_turismo$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_turismo$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`


# SERVICIOS ---------------------------------------------------------------

df_servicio <- df %>% filter(Sector == "Servicios")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_servicio)) {
    if((df_servicio$ROA[i]<=summary(df_servicio$ROA)[6]) & (!is.na(df_servicio$ROA[i]))) ROA[i] =  5
    if((df_servicio$ROA[i]<=summary(df_servicio$ROA)[5]) & (!is.na(df_servicio$ROA[i]))) ROA[i] =  4
    if((df_servicio$ROA[i]<=summary(df_servicio$ROA)[3]) & (!is.na(df_servicio$ROA[i]))) ROA[i] =  3
    if((df_servicio$ROA[i]<=summary(df_servicio$ROA)[2]) & (!is.na(df_servicio$ROA[i]))) ROA[i] =  2
    if((df_servicio$ROA[i]<=summary(df_servicio$ROA)[1]) & (!is.na(df_servicio$ROA[i]))) ROA[i] =  1
    if(is.na(df_servicio$ROA[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$ROE[i]<=summary(df_servicio$ROE)[6]) & (!is.na(df_servicio$ROE[i]))) ROE[i] =  5
    if((df_servicio$ROE[i]<=summary(df_servicio$ROE)[5]) & (!is.na(df_servicio$ROE[i]))) ROE[i] =  4
    if((df_servicio$ROE[i]<=summary(df_servicio$ROE)[3]) & (!is.na(df_servicio$ROE[i]))) ROE[i] =  3
    if((df_servicio$ROE[i]<=summary(df_servicio$ROE)[2]) & (!is.na(df_servicio$ROE[i]))) ROE[i] =  2
    if((df_servicio$ROE[i]<=0) & (!is.na(df_servicio$ROE[i]))) ROE[i] =  1
    if(is.na(df_servicio$ROE[i])) ROE[i] =NA
}
hist(ROE)

ROE

## [1] 5 1 4 1 5 1

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio`<- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Pasivo/ Patimonio`[i]<=summary(df_servicio$`Pasivo/ Patimonio`)[6]) & (!is.na(df_servicio$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_servicio$`Pasivo/ Patimonio`[i]<=summary(df_servicio$`Pasivo/ Patimonio`)[5]) & (!is.na(df_servicio$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_servicio$`Pasivo/ Patimonio`[i]<=summary(df_servicio$`Pasivo/ Patimonio`)[3]) & (!is.na(df_servicio$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_servicio$`Pasivo/ Patimonio`[i]<=summary(df_servicio$`Pasivo/ Patimonio`)[2]) & (!is.na(df_servicio$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_servicio$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_servicio$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_servicio$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}

`Pasivo/ Patimonio`

## [1] 3 5 4 2 5 2

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Apalancamiento`[i]<=summary(df_servicio$`Apalancamiento`)[6]) & (!is.na(df_servicio$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_servicio$`Apalancamiento`[i]<=summary(df_servicio$`Apalancamiento`)[5]) & (!is.na(df_servicio$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_servicio$`Apalancamiento`[i]<=summary(df_servicio$`Apalancamiento`)[3]) & (!is.na(df_servicio$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_servicio$`Apalancamiento`[i]<=summary(df_servicio$`Apalancamiento`)[2]) & (!is.na(df_servicio$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_servicio$`Apalancamiento`[i]<=0) & (!is.na(df_servicio$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_servicio$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

## [1] 3 5 4 2 5 2

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Liquidez`[i]<=summary(df_servicio$`Liquidez`)[6]) & (!is.na(df_servicio$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_servicio$`Liquidez`[i]<=summary(df_servicio$`Liquidez`)[5]) & (!is.na(df_servicio$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_servicio$`Liquidez`[i]<=summary(df_servicio$`Liquidez`)[3]) & (!is.na(df_servicio$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_servicio$`Liquidez`[i]<=summary(df_servicio$`Liquidez`)[2]) & (!is.na(df_servicio$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_servicio$`Liquidez`[i]<=0) & (!is.na(df_servicio$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_servicio$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

## [1] 4 2 5 3 5 2

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Prueba Ácida`[i]<=summary(df_servicio$`Prueba Ácida`)[6]) & (!is.na(df_servicio$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_servicio$`Prueba Ácida`[i]<=summary(df_servicio$`Prueba Ácida`)[5]) & (!is.na(df_servicio$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_servicio$`Prueba Ácida`[i]<=summary(df_servicio$`Prueba Ácida`)[3]) & (!is.na(df_servicio$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_servicio$`Prueba Ácida`[i]<=summary(df_servicio$`Prueba Ácida`)[2]) & (!is.na(df_servicio$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_servicio$`Prueba Ácida`[i]<=0) & (!is.na(df_servicio$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_servicio$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

## [1] 2 4 2 5 3 5

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Pasivo/Activo`[i]<=summary(df_servicio$`Pasivo/Activo`)[6]) & (!is.na(df_servicio$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_servicio$`Pasivo/Activo`[i]<=summary(df_servicio$`Pasivo/Activo`)[5]) & (!is.na(df_servicio$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_servicio$`Pasivo/Activo`[i]<=summary(df_servicio$`Pasivo/Activo`)[3]) & (!is.na(df_servicio$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_servicio$`Pasivo/Activo`[i]<=summary(df_servicio$`Pasivo/Activo`)[2]) & (!is.na(df_servicio$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_servicio$`Pasivo/Activo`[i]<=0) & (!is.na(df_servicio$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_servicio$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

## [1] 4 2 3 5 2 5

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_servicio$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_servicio$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_servicio$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_servicio$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_servicio$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_servicio$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_servicio$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_servicio$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_servicio$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_servicio$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_servicio$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_servicio$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_servicio$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_servicio$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

## [1] 5 3 4 2 5 2

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Utilidad Neta/Ventas`[i]<=summary(df_servicio$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_servicio$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_servicio$`Utilidad Neta/Ventas`[i]<=summary(df_servicio$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_servicio$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_servicio$`Utilidad Neta/Ventas`[i]<=summary(df_servicio$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_servicio$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_servicio$`Utilidad Neta/Ventas`[i]<=summary(df_servicio$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_servicio$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_servicio$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_servicio$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_servicio$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

## [1] 5 1 4 1 5 1

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`DEUDA/EBITDA`[i]<=summary(df_servicio$`DEUDA/EBITDA`)[6]) & (!is.na(df_servicio$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_servicio$`DEUDA/EBITDA`[i]<=summary(df_servicio$`DEUDA/EBITDA`)[5]) & (!is.na(df_servicio$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_servicio$`DEUDA/EBITDA`[i]<=summary(df_servicio$`DEUDA/EBITDA`)[3]) & (!is.na(df_servicio$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_servicio$`DEUDA/EBITDA`[i]<=summary(df_servicio$`DEUDA/EBITDA`)[2]) & (!is.na(df_servicio$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_servicio$`DEUDA/EBITDA`[i]<=summary(df_servicio$`DEUDA/EBITDA`)[1]) & (!is.na(df_servicio$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_servicio$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`PASIVO/EBITDA`[i]<=summary(df_servicio$`PASIVO/EBITDA`)[6]) & (!is.na(df_servicio$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_servicio$`PASIVO/EBITDA`[i]<=summary(df_servicio$`PASIVO/EBITDA`)[5]) & (!is.na(df_servicio$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_servicio$`PASIVO/EBITDA`[i]<=summary(df_servicio$`PASIVO/EBITDA`)[3]) & (!is.na(df_servicio$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_servicio$`PASIVO/EBITDA`[i]<=summary(df_servicio$`PASIVO/EBITDA`)[2]) & (!is.na(df_servicio$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_servicio$`PASIVO/EBITDA`[i]<=summary(df_servicio$`PASIVO/EBITDA`)[1]) & (!is.na(df_servicio$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_servicio$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Días de Inventario`[i]<=summary(df_servicio$`Días de Inventario`)[6]) & (!is.na(df_servicio$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_servicio$`Días de Inventario`[i]<=summary(df_servicio$`Días de Inventario`)[5]) & (!is.na(df_servicio$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_servicio$`Días de Inventario`[i]<=summary(df_servicio$`Días de Inventario`)[3]) & (!is.na(df_servicio$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_servicio$`Días de Inventario`[i]<=summary(df_servicio$`Días de Inventario`)[2]) & (!is.na(df_servicio$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_servicio$`Días de Inventario`[i]<=summary(df_servicio$`Días de Inventario`)[1]) & (!is.na(df_servicio$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_servicio$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Días de cuentas por Cobrar`[i]<=summary(df_servicio$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_servicio$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_servicio$`Días de cuentas por Cobrar`[i]<=summary(df_servicio$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_servicio$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_servicio$`Días de cuentas por Cobrar`[i]<=summary(df_servicio$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_servicio$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_servicio$`Días de cuentas por Cobrar`[i]<=summary(df_servicio$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_servicio$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_servicio$`Días de cuentas por Cobrar`[i]<=summary(df_servicio$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_servicio$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_servicio$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Días de Cuentas por Pagar`[i]<=summary(df_servicio$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_servicio$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_servicio$`Días de Cuentas por Pagar`[i]<=summary(df_servicio$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_servicio$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_servicio$`Días de Cuentas por Pagar`[i]<=summary(df_servicio$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_servicio$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_servicio$`Días de Cuentas por Pagar`[i]<=summary(df_servicio$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_servicio$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_servicio$`Días de Cuentas por Pagar`[i]<=summary(df_servicio$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_servicio$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_servicio$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_servicio)) {
    
    if((df_servicio$`Ciclo de efectivo`[i]<=summary(df_servicio$`Ciclo de efectivo`)[6]) & (!is.na(df_servicio$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_servicio$`Ciclo de efectivo`[i]<=summary(df_servicio$`Ciclo de efectivo`)[5]) & (!is.na(df_servicio$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_servicio$`Ciclo de efectivo`[i]<=summary(df_servicio$`Ciclo de efectivo`)[3]) & (!is.na(df_servicio$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_servicio$`Ciclo de efectivo`[i]<=summary(df_servicio$`Ciclo de efectivo`)[2]) & (!is.na(df_servicio$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_servicio$`Ciclo de efectivo`[i]<=summary(df_servicio$`Ciclo de efectivo`)[1]) & (!is.na(df_servicio$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_servicio$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_servicio$NOTA_ROA <- ROA

### NOTA ROE
df_servicio$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_servicio$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_servicio$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_servicio$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_servicio$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_servicio$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_servicio$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_servicio$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_servicio$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_servicio$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_servicio$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_servicio$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_servicio$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_servicio$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`


# DISTRIBUCION DE AGUA Y OTROS --------------------------------------------

df_agua_y_otros <- df %>% filter(Sector == "Distribución de agua, alcantarrillado, gestión de desechos y actividades de saneamiento")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`ROA`[i]<=summary(df_agua_y_otros$`ROA`)[6]) & (!is.na(df_agua_y_otros$`ROA`[i]))) ROA[i] =  5
    if((df_agua_y_otros$`ROA`[i]<=summary(df_agua_y_otros$`ROA`)[5]) & (!is.na(df_agua_y_otros$`ROA`[i]))) ROA[i] =  4
    if((df_agua_y_otros$`ROA`[i]<=summary(df_agua_y_otros$`ROA`)[3]) & (!is.na(df_agua_y_otros$`ROA`[i]))) ROA[i] =  3
    if((df_agua_y_otros$`ROA`[i]<=summary(df_agua_y_otros$`ROA`)[2]) & (!is.na(df_agua_y_otros$`ROA`[i]))) ROA[i] =  2
    if((df_agua_y_otros$`ROA`[i]<=summary(df_agua_y_otros$`ROA`)[1]) & (!is.na(df_agua_y_otros$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_agua_y_otros$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`ROE`[i]<=summary(df_agua_y_otros$`ROE`)[6]) & (!is.na(df_agua_y_otros$`ROE`[i]))) ROE[i] =  5
    if((df_agua_y_otros$`ROE`[i]<=summary(df_agua_y_otros$`ROE`)[5]) & (!is.na(df_agua_y_otros$`ROE`[i]))) ROE[i] =  4
    if((df_agua_y_otros$`ROE`[i]<=summary(df_agua_y_otros$`ROE`)[3]) & (!is.na(df_agua_y_otros$`ROE`[i]))) ROE[i] =  3
    if((df_agua_y_otros$`ROE`[i]<=summary(df_agua_y_otros$`ROE`)[2]) & (!is.na(df_agua_y_otros$`ROE`[i]))) ROE[i] =  2
    if((df_agua_y_otros$`ROE`[i]<=0) & (!is.na(df_agua_y_otros$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_agua_y_otros$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agua_y_otros$`Pasivo/ Patimonio`)[6]) & (!is.na(df_agua_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_agua_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agua_y_otros$`Pasivo/ Patimonio`)[5]) & (!is.na(df_agua_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_agua_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agua_y_otros$`Pasivo/ Patimonio`)[3]) & (!is.na(df_agua_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_agua_y_otros$`Pasivo/ Patimonio`[i]<=summary(df_agua_y_otros$`Pasivo/ Patimonio`)[2]) & (!is.na(df_agua_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_agua_y_otros$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_agua_y_otros$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_agua_y_otros$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

## [1] 3 2 5 2 4

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Apalancamiento`[i]<=summary(df_agua_y_otros$`Apalancamiento`)[6]) & (!is.na(df_agua_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_agua_y_otros$`Apalancamiento`[i]<=summary(df_agua_y_otros$`Apalancamiento`)[5]) & (!is.na(df_agua_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_agua_y_otros$`Apalancamiento`[i]<=summary(df_agua_y_otros$`Apalancamiento`)[3]) & (!is.na(df_agua_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_agua_y_otros$`Apalancamiento`[i]<=summary(df_agua_y_otros$`Apalancamiento`)[2]) & (!is.na(df_agua_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_agua_y_otros$`Apalancamiento`[i]<=0) & (!is.na(df_agua_y_otros$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_agua_y_otros$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

## [1] 3 2 5 2 4

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Liquidez`[i]<=summary(df_agua_y_otros$`Liquidez`)[6]) & (!is.na(df_agua_y_otros$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_agua_y_otros$`Liquidez`[i]<=summary(df_agua_y_otros$`Liquidez`)[5]) & (!is.na(df_agua_y_otros$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_agua_y_otros$`Liquidez`[i]<=summary(df_agua_y_otros$`Liquidez`)[3]) & (!is.na(df_agua_y_otros$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_agua_y_otros$`Liquidez`[i]<=summary(df_agua_y_otros$`Liquidez`)[2]) & (!is.na(df_agua_y_otros$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_agua_y_otros$`Liquidez`[i]<=0) & (!is.na(df_agua_y_otros$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_agua_y_otros$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

## [1] 2 5 3 4 2

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Prueba Ácida`[i]<=summary(df_agua_y_otros$`Prueba Ácida`)[6]) & (!is.na(df_agua_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_agua_y_otros$`Prueba Ácida`[i]<=summary(df_agua_y_otros$`Prueba Ácida`)[5]) & (!is.na(df_agua_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_agua_y_otros$`Prueba Ácida`[i]<=summary(df_agua_y_otros$`Prueba Ácida`)[3]) & (!is.na(df_agua_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_agua_y_otros$`Prueba Ácida`[i]<=summary(df_agua_y_otros$`Prueba Ácida`)[2]) & (!is.na(df_agua_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_agua_y_otros$`Prueba Ácida`[i]<=0) & (!is.na(df_agua_y_otros$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_agua_y_otros$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

## [1] 3 5 4 2 2

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Pasivo/Activo`[i]<=summary(df_agua_y_otros$`Pasivo/Activo`)[6]) & (!is.na(df_agua_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_agua_y_otros$`Pasivo/Activo`[i]<=summary(df_agua_y_otros$`Pasivo/Activo`)[5]) & (!is.na(df_agua_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_agua_y_otros$`Pasivo/Activo`[i]<=summary(df_agua_y_otros$`Pasivo/Activo`)[3]) & (!is.na(df_agua_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_agua_y_otros$`Pasivo/Activo`[i]<=summary(df_agua_y_otros$`Pasivo/Activo`)[2]) & (!is.na(df_agua_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_agua_y_otros$`Pasivo/Activo`[i]<=0) & (!is.na(df_agua_y_otros$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_agua_y_otros$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

## [1] 3 5 2 4 2

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_agua_y_otros$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

## [1] 2 5 3 4 2

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agua_y_otros$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_agua_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_agua_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agua_y_otros$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_agua_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_agua_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agua_y_otros$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_agua_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_agua_y_otros$`Utilidad Neta/Ventas`[i]<=summary(df_agua_y_otros$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_agua_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_agua_y_otros$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_agua_y_otros$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_agua_y_otros$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

## [1] 2 3 5 4 1

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agua_y_otros$`DEUDA/EBITDA`)[6]) & (!is.na(df_agua_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_agua_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agua_y_otros$`DEUDA/EBITDA`)[5]) & (!is.na(df_agua_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_agua_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agua_y_otros$`DEUDA/EBITDA`)[3]) & (!is.na(df_agua_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_agua_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agua_y_otros$`DEUDA/EBITDA`)[2]) & (!is.na(df_agua_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_agua_y_otros$`DEUDA/EBITDA`[i]<=summary(df_agua_y_otros$`DEUDA/EBITDA`)[1]) & (!is.na(df_agua_y_otros$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_agua_y_otros$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agua_y_otros$`PASIVO/EBITDA`)[6]) & (!is.na(df_agua_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_agua_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agua_y_otros$`PASIVO/EBITDA`)[5]) & (!is.na(df_agua_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_agua_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agua_y_otros$`PASIVO/EBITDA`)[3]) & (!is.na(df_agua_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_agua_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agua_y_otros$`PASIVO/EBITDA`)[2]) & (!is.na(df_agua_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_agua_y_otros$`PASIVO/EBITDA`[i]<=summary(df_agua_y_otros$`PASIVO/EBITDA`)[1]) & (!is.na(df_agua_y_otros$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_agua_y_otros$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Días de Inventario`[i]<=summary(df_agua_y_otros$`Días de Inventario`)[6]) & (!is.na(df_agua_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_agua_y_otros$`Días de Inventario`[i]<=summary(df_agua_y_otros$`Días de Inventario`)[5]) & (!is.na(df_agua_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_agua_y_otros$`Días de Inventario`[i]<=summary(df_agua_y_otros$`Días de Inventario`)[3]) & (!is.na(df_agua_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_agua_y_otros$`Días de Inventario`[i]<=summary(df_agua_y_otros$`Días de Inventario`)[2]) & (!is.na(df_agua_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_agua_y_otros$`Días de Inventario`[i]<=summary(df_agua_y_otros$`Días de Inventario`)[1]) & (!is.na(df_agua_y_otros$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_agua_y_otros$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agua_y_otros$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_agua_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_agua_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agua_y_otros$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_agua_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_agua_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agua_y_otros$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_agua_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_agua_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agua_y_otros$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_agua_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_agua_y_otros$`Días de cuentas por Cobrar`[i]<=summary(df_agua_y_otros$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_agua_y_otros$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_agua_y_otros$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agua_y_otros$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_agua_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_agua_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agua_y_otros$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_agua_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_agua_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agua_y_otros$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_agua_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_agua_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agua_y_otros$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_agua_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_agua_y_otros$`Días de Cuentas por Pagar`[i]<=summary(df_agua_y_otros$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_agua_y_otros$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_agua_y_otros$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_agua_y_otros)) {
    
    if((df_agua_y_otros$`Ciclo de efectivo`[i]<=summary(df_agua_y_otros$`Ciclo de efectivo`)[6]) & (!is.na(df_agua_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_agua_y_otros$`Ciclo de efectivo`[i]<=summary(df_agua_y_otros$`Ciclo de efectivo`)[5]) & (!is.na(df_agua_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_agua_y_otros$`Ciclo de efectivo`[i]<=summary(df_agua_y_otros$`Ciclo de efectivo`)[3]) & (!is.na(df_agua_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_agua_y_otros$`Ciclo de efectivo`[i]<=summary(df_agua_y_otros$`Ciclo de efectivo`)[2]) & (!is.na(df_agua_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_agua_y_otros$`Ciclo de efectivo`[i]<=summary(df_agua_y_otros$`Ciclo de efectivo`)[1]) & (!is.na(df_agua_y_otros$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_agua_y_otros$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_agua_y_otros$NOTA_ROA <- ROA

### NOTA ROE
df_agua_y_otros$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_agua_y_otros$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_agua_y_otros$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_agua_y_otros$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_agua_y_otros$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_agua_y_otros$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_agua_y_otros$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_agua_y_otros$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_agua_y_otros$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_agua_y_otros$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_agua_y_otros$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_agua_y_otros$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_agua_y_otros$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_agua_y_otros$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`



# PETROLERO ----------------------------------------------------------------

df_petrolero <- df %>% filter(Sector == "Petrolero")

##### calificacion ROA 
ROA <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`ROA`[i]<=summary(df_petrolero$`ROA`)[6]) & (!is.na(df_petrolero$`ROA`[i]))) ROA[i] =  5
    if((df_petrolero$`ROA`[i]<=summary(df_petrolero$`ROA`)[5]) & (!is.na(df_petrolero$`ROA`[i]))) ROA[i] =  4
    if((df_petrolero$`ROA`[i]<=summary(df_petrolero$`ROA`)[3]) & (!is.na(df_petrolero$`ROA`[i]))) ROA[i] =  3
    if((df_petrolero$`ROA`[i]<=summary(df_petrolero$`ROA`)[2]) & (!is.na(df_petrolero$`ROA`[i]))) ROA[i] =  2
    if((df_petrolero$`ROA`[i]<=summary(df_petrolero$`ROA`)[1]) & (!is.na(df_petrolero$`ROA`[i]))) ROA[i] =  1
    if(is.na(df_petrolero$`ROA`[i])) ROA[i] =NA
}
hist(ROA)

ROE <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`ROE`[i]<=summary(df_petrolero$`ROE`)[6]) & (!is.na(df_petrolero$`ROE`[i]))) ROE[i] =  5
    if((df_petrolero$`ROE`[i]<=summary(df_petrolero$`ROE`)[5]) & (!is.na(df_petrolero$`ROE`[i]))) ROE[i] =  4
    if((df_petrolero$`ROE`[i]<=summary(df_petrolero$`ROE`)[3]) & (!is.na(df_petrolero$`ROE`[i]))) ROE[i] =  3
    if((df_petrolero$`ROE`[i]<=summary(df_petrolero$`ROE`)[2]) & (!is.na(df_petrolero$`ROE`[i]))) ROE[i] =  2
    if((df_petrolero$`ROE`[i]<=0) & (!is.na(df_petrolero$`ROE`[i]))) ROE[i] =  1
    if(is.na(df_petrolero$`ROE`[i])) ROE[i] =NA
}
hist(ROE)

##### calificacion Pasivo/ Patimonio 
`Pasivo/ Patimonio` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Pasivo/ Patimonio`[i]<=summary(df_petrolero$`Pasivo/ Patimonio`)[6]) & (!is.na(df_petrolero$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  5
    if((df_petrolero$`Pasivo/ Patimonio`[i]<=summary(df_petrolero$`Pasivo/ Patimonio`)[5]) & (!is.na(df_petrolero$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  4
    if((df_petrolero$`Pasivo/ Patimonio`[i]<=summary(df_petrolero$`Pasivo/ Patimonio`)[3]) & (!is.na(df_petrolero$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  3
    if((df_petrolero$`Pasivo/ Patimonio`[i]<=summary(df_petrolero$`Pasivo/ Patimonio`)[2]) & (!is.na(df_petrolero$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] =  2
    if((df_petrolero$`Pasivo/ Patimonio`[i]<=0) & (!is.na(df_petrolero$`Pasivo/ Patimonio`[i])))`Pasivo/ Patimonio`[i] = 1
    if(is.na(df_petrolero$`Pasivo/ Patimonio`[i]))`Pasivo/ Patimonio`[i] =NA
}
`Pasivo/ Patimonio`

## [1] 5 4 3 2 2

hist(`Pasivo/ Patimonio`)

##### calificacion Apalancamiento 
`Apalancamiento` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Apalancamiento`[i]<=summary(df_petrolero$`Apalancamiento`)[6]) & (!is.na(df_petrolero$`Apalancamiento`[i])))`Apalancamiento`[i] =  5
    if((df_petrolero$`Apalancamiento`[i]<=summary(df_petrolero$`Apalancamiento`)[5]) & (!is.na(df_petrolero$`Apalancamiento`[i])))`Apalancamiento`[i] =  4
    if((df_petrolero$`Apalancamiento`[i]<=summary(df_petrolero$`Apalancamiento`)[3]) & (!is.na(df_petrolero$`Apalancamiento`[i])))`Apalancamiento`[i] =  3
    if((df_petrolero$`Apalancamiento`[i]<=summary(df_petrolero$`Apalancamiento`)[2]) & (!is.na(df_petrolero$`Apalancamiento`[i])))`Apalancamiento`[i] =  2
    if((df_petrolero$`Apalancamiento`[i]<=0) & (!is.na(df_petrolero$`Apalancamiento`[i])))`Apalancamiento`[i] = 1
    if(is.na(df_petrolero$`Apalancamiento`[i]))`Apalancamiento`[i] = NA
}
`Apalancamiento`

## [1] 5 4 3 2 2

hist(`Apalancamiento`)

##### calificacion Liquidez 
`Liquidez` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Liquidez`[i]<=summary(df_petrolero$`Liquidez`)[6]) & (!is.na(df_petrolero$`Liquidez`[i])))`Liquidez`[i] =  5
    if((df_petrolero$`Liquidez`[i]<=summary(df_petrolero$`Liquidez`)[5]) & (!is.na(df_petrolero$`Liquidez`[i])))`Liquidez`[i] =  4
    if((df_petrolero$`Liquidez`[i]<=summary(df_petrolero$`Liquidez`)[3]) & (!is.na(df_petrolero$`Liquidez`[i])))`Liquidez`[i] =  3
    if((df_petrolero$`Liquidez`[i]<=summary(df_petrolero$`Liquidez`)[2]) & (!is.na(df_petrolero$`Liquidez`[i])))`Liquidez`[i] =  2
    if((df_petrolero$`Liquidez`[i]<=0) & (!is.na(df_petrolero$`Liquidez`[i])))`Liquidez`[i] = 1
    if(is.na(df_petrolero$`Liquidez`[i]))`Liquidez`[i] = NA
}
`Liquidez`

## [1] 2 4 3 2 5

hist(`Liquidez`)

##### calificacion Prueba Ácida 
`Prueba Ácida` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Prueba Ácida`[i]<=summary(df_petrolero$`Prueba Ácida`)[6]) & (!is.na(df_petrolero$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  5
    if((df_petrolero$`Prueba Ácida`[i]<=summary(df_petrolero$`Prueba Ácida`)[5]) & (!is.na(df_petrolero$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  4
    if((df_petrolero$`Prueba Ácida`[i]<=summary(df_petrolero$`Prueba Ácida`)[3]) & (!is.na(df_petrolero$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  3
    if((df_petrolero$`Prueba Ácida`[i]<=summary(df_petrolero$`Prueba Ácida`)[2]) & (!is.na(df_petrolero$`Prueba Ácida`[i])))`Prueba Ácida`[i] =  2
    if((df_petrolero$`Prueba Ácida`[i]<=0) & (!is.na(df_petrolero$`Prueba Ácida`[i])))`Prueba Ácida`[i] = 1
    if(is.na(df_petrolero$`Prueba Ácida`[i]))`Prueba Ácida`[i] = NA
}
`Prueba Ácida`

## [1] 2 5 3 2 4

hist(`Prueba Ácida`)

##### calificacion Pasivo/Activo 
`Pasivo/Activo` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Pasivo/Activo`[i]<=summary(df_petrolero$`Pasivo/Activo`)[6]) & (!is.na(df_petrolero$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  5
    if((df_petrolero$`Pasivo/Activo`[i]<=summary(df_petrolero$`Pasivo/Activo`)[5]) & (!is.na(df_petrolero$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  4
    if((df_petrolero$`Pasivo/Activo`[i]<=summary(df_petrolero$`Pasivo/Activo`)[3]) & (!is.na(df_petrolero$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  3
    if((df_petrolero$`Pasivo/Activo`[i]<=summary(df_petrolero$`Pasivo/Activo`)[2]) & (!is.na(df_petrolero$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] =  2
    if((df_petrolero$`Pasivo/Activo`[i]<=0) & (!is.na(df_petrolero$`Pasivo/Activo`[i])))`Pasivo/Activo`[i] = 1
    if(is.na(df_petrolero$`Pasivo/Activo`[i]))`Pasivo/Activo`[i] = NA
}
`Pasivo/Activo`

## [1] 2 2 3 4 5

hist(`Pasivo/Activo`)

##### calificacion EBITDA/GASTOS FINANCIEROS 
`EBITDA/GASTOS FINANCIEROS` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_petrolero$`EBITDA/GASTOS FINANCIEROS`)[6]) & (!is.na(df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  5
    if((df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_petrolero$`EBITDA/GASTOS FINANCIEROS`)[5]) & (!is.na(df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  4
    if((df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_petrolero$`EBITDA/GASTOS FINANCIEROS`)[3]) & (!is.na(df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  3
    if((df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i]<=summary(df_petrolero$`EBITDA/GASTOS FINANCIEROS`)[2]) & (!is.na(df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] =  2
    if((df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i]<=0) & (!is.na(df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i])))`EBITDA/GASTOS FINANCIEROS`[i] = 1
    if(is.na(df_petrolero$`EBITDA/GASTOS FINANCIEROS`[i]))`EBITDA/GASTOS FINANCIEROS`[i] = NA
}
`EBITDA/GASTOS FINANCIEROS`

## [1] 2 3 2 4 5

hist(`EBITDA/GASTOS FINANCIEROS`)

##### calificacion Utilidad Neta/Ventas 
`Utilidad Neta/Ventas` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Utilidad Neta/Ventas`[i]<=summary(df_petrolero$`Utilidad Neta/Ventas`)[6]) & (!is.na(df_petrolero$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  5
    if((df_petrolero$`Utilidad Neta/Ventas`[i]<=summary(df_petrolero$`Utilidad Neta/Ventas`)[5]) & (!is.na(df_petrolero$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  4
    if((df_petrolero$`Utilidad Neta/Ventas`[i]<=summary(df_petrolero$`Utilidad Neta/Ventas`)[3]) & (!is.na(df_petrolero$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  3
    if((df_petrolero$`Utilidad Neta/Ventas`[i]<=summary(df_petrolero$`Utilidad Neta/Ventas`)[2]) & (!is.na(df_petrolero$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] =  2
    if((df_petrolero$`Utilidad Neta/Ventas`[i]<=0) & (!is.na(df_petrolero$`Utilidad Neta/Ventas`[i])))`Utilidad Neta/Ventas`[i] = 1
    if(is.na(df_petrolero$`Utilidad Neta/Ventas`[i]))`Utilidad Neta/Ventas`[i] = NA
}
`Utilidad Neta/Ventas`

## [1] 3 5 2 4 2

hist(`Utilidad Neta/Ventas`)

##### calificacion DEUDA/EBITDA 

`DEUDA/EBITDA` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`DEUDA/EBITDA`[i]<=summary(df_petrolero$`DEUDA/EBITDA`)[6]) & (!is.na(df_petrolero$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  5
    if((df_petrolero$`DEUDA/EBITDA`[i]<=summary(df_petrolero$`DEUDA/EBITDA`)[5]) & (!is.na(df_petrolero$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  4
    if((df_petrolero$`DEUDA/EBITDA`[i]<=summary(df_petrolero$`DEUDA/EBITDA`)[3]) & (!is.na(df_petrolero$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  3
    if((df_petrolero$`DEUDA/EBITDA`[i]<=summary(df_petrolero$`DEUDA/EBITDA`)[2]) & (!is.na(df_petrolero$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  2
    if((df_petrolero$`DEUDA/EBITDA`[i]<=summary(df_petrolero$`DEUDA/EBITDA`)[1]) & (!is.na(df_petrolero$`DEUDA/EBITDA`[i]))) `DEUDA/EBITDA`[i] =  1
    if(is.na(df_petrolero$`DEUDA/EBITDA`[i])) `DEUDA/EBITDA`[i] =NA
}
hist(`DEUDA/EBITDA`)

##### calificacion PASIVO/EBITDA
`PASIVO/EBITDA` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`PASIVO/EBITDA`[i]<=summary(df_petrolero$`PASIVO/EBITDA`)[6]) & (!is.na(df_petrolero$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  5
    if((df_petrolero$`PASIVO/EBITDA`[i]<=summary(df_petrolero$`PASIVO/EBITDA`)[5]) & (!is.na(df_petrolero$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  4
    if((df_petrolero$`PASIVO/EBITDA`[i]<=summary(df_petrolero$`PASIVO/EBITDA`)[3]) & (!is.na(df_petrolero$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  3
    if((df_petrolero$`PASIVO/EBITDA`[i]<=summary(df_petrolero$`PASIVO/EBITDA`)[2]) & (!is.na(df_petrolero$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  2
    if((df_petrolero$`PASIVO/EBITDA`[i]<=summary(df_petrolero$`PASIVO/EBITDA`)[1]) & (!is.na(df_petrolero$`PASIVO/EBITDA`[i]))) `PASIVO/EBITDA`[i] =  1
    if(is.na(df_petrolero$`PASIVO/EBITDA`[i])) `PASIVO/EBITDA`[i] =NA
}
hist(`PASIVO/EBITDA`)

##### calificacion Días de Inventario
`Días de Inventario` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Días de Inventario`[i]<=summary(df_petrolero$`Días de Inventario`)[6]) & (!is.na(df_petrolero$`Días de Inventario`[i]))) `Días de Inventario`[i] =  5
    if((df_petrolero$`Días de Inventario`[i]<=summary(df_petrolero$`Días de Inventario`)[5]) & (!is.na(df_petrolero$`Días de Inventario`[i]))) `Días de Inventario`[i] =  4
    if((df_petrolero$`Días de Inventario`[i]<=summary(df_petrolero$`Días de Inventario`)[3]) & (!is.na(df_petrolero$`Días de Inventario`[i]))) `Días de Inventario`[i] =  3
    if((df_petrolero$`Días de Inventario`[i]<=summary(df_petrolero$`Días de Inventario`)[2]) & (!is.na(df_petrolero$`Días de Inventario`[i]))) `Días de Inventario`[i] =  2
    if((df_petrolero$`Días de Inventario`[i]<=summary(df_petrolero$`Días de Inventario`)[1]) & (!is.na(df_petrolero$`Días de Inventario`[i]))) `Días de Inventario`[i] =  1
    if(is.na(df_petrolero$`Días de Inventario`[i])) `Días de Inventario`[i] =NA
}
hist(`Días de Inventario`)

##### calificacion Días de cuentas por Cobrar
`Días de cuentas por Cobrar` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Días de cuentas por Cobrar`[i]<=summary(df_petrolero$`Días de cuentas por Cobrar`)[6]) & (!is.na(df_petrolero$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  5
    if((df_petrolero$`Días de cuentas por Cobrar`[i]<=summary(df_petrolero$`Días de cuentas por Cobrar`)[5]) & (!is.na(df_petrolero$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  4
    if((df_petrolero$`Días de cuentas por Cobrar`[i]<=summary(df_petrolero$`Días de cuentas por Cobrar`)[3]) & (!is.na(df_petrolero$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  3
    if((df_petrolero$`Días de cuentas por Cobrar`[i]<=summary(df_petrolero$`Días de cuentas por Cobrar`)[2]) & (!is.na(df_petrolero$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  2
    if((df_petrolero$`Días de cuentas por Cobrar`[i]<=summary(df_petrolero$`Días de cuentas por Cobrar`)[1]) & (!is.na(df_petrolero$`Días de cuentas por Cobrar`[i]))) `Días de cuentas por Cobrar`[i] =  1
    if(is.na(df_petrolero$`Días de cuentas por Cobrar`[i])) `Días de cuentas por Cobrar`[i] =NA
}
hist(`Días de cuentas por Cobrar`)

##### calificacion Días de Cuentas por Pagar

`Días de Cuentas por Pagar` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Días de Cuentas por Pagar`[i]<=summary(df_petrolero$`Días de Cuentas por Pagar`)[6]) & (!is.na(df_petrolero$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  5
    if((df_petrolero$`Días de Cuentas por Pagar`[i]<=summary(df_petrolero$`Días de Cuentas por Pagar`)[5]) & (!is.na(df_petrolero$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  4
    if((df_petrolero$`Días de Cuentas por Pagar`[i]<=summary(df_petrolero$`Días de Cuentas por Pagar`)[3]) & (!is.na(df_petrolero$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  3
    if((df_petrolero$`Días de Cuentas por Pagar`[i]<=summary(df_petrolero$`Días de Cuentas por Pagar`)[2]) & (!is.na(df_petrolero$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  2
    if((df_petrolero$`Días de Cuentas por Pagar`[i]<=summary(df_petrolero$`Días de Cuentas por Pagar`)[1]) & (!is.na(df_petrolero$`Días de Cuentas por Pagar`[i]))) `Días de Cuentas por Pagar`[i] =  1
    if(is.na(df_petrolero$`Días de Cuentas por Pagar`[i])) `Días de Cuentas por Pagar`[i] =NA
}
hist(`Días de Cuentas por Pagar`)

##### calificacion Días de Ciclo de efectivo

`Ciclo de efectivo` <- c()
for (i in 1:nrow(df_petrolero)) {
    
    if((df_petrolero$`Ciclo de efectivo`[i]<=summary(df_petrolero$`Ciclo de efectivo`)[6]) & (!is.na(df_petrolero$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  5
    if((df_petrolero$`Ciclo de efectivo`[i]<=summary(df_petrolero$`Ciclo de efectivo`)[5]) & (!is.na(df_petrolero$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  4
    if((df_petrolero$`Ciclo de efectivo`[i]<=summary(df_petrolero$`Ciclo de efectivo`)[3]) & (!is.na(df_petrolero$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  3
    if((df_petrolero$`Ciclo de efectivo`[i]<=summary(df_petrolero$`Ciclo de efectivo`)[2]) & (!is.na(df_petrolero$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  2
    if((df_petrolero$`Ciclo de efectivo`[i]<=summary(df_petrolero$`Ciclo de efectivo`)[1]) & (!is.na(df_petrolero$`Ciclo de efectivo`[i]))) `Ciclo de efectivo`[i] =  1
    if(is.na(df_petrolero$`Ciclo de efectivo`[i])) `Ciclo de efectivo`[i] =NA
}
hist(`Ciclo de efectivo`)

# Creacion de Variables ---------------------------------------------------

###  NOTA ROA
df_petrolero$NOTA_ROA <- ROA

### NOTA ROE
df_petrolero$NOTA_ROE <- ROE

### NOTA PASIVO/PATRIMONIO
df_petrolero$`NOTA_PASIVO/PATRIMONIO` <-`Pasivo/ Patimonio`

### NOTA APALANCAMIENTO 2019
df_petrolero$`NOTA APALANCAMIENTO_` <-`Apalancamiento`

###  NOTA LIQUIDEZ 
df_petrolero$`NOTA LIQUIDEZ_` <-`Liquidez`

### NOTA PRUEBA ACIDA

df_petrolero$`NOTA Prueba Ácida_` <-`Prueba Ácida`

### NOTA Pasivo/Activo
df_petrolero$`NOTA Pasivo/Activo_` <-`Pasivo/Activo`

### NOTA EBITDA/GASTOS FINANCIEROS
df_petrolero$`NOTA EBITDA/GASTOS FINANCIEROS_` <-`EBITDA/GASTOS FINANCIEROS`

### NOTA Utilidad Neta/Ventas 
df_petrolero$`NOTA Utilidad Neta/Ventas_` <-`Utilidad Neta/Ventas`

### NOTA DEUDA/EBITDA 
df_petrolero$`NOTA DEUDA/EBITDA` <-`DEUDA/EBITDA`

### NOTA PASIVO/EBITDA 
df_petrolero$`NOTA PASIVO/EBITDA` <-`PASIVO/EBITDA`

### NOTA Días de Inventario 
df_petrolero$`NOTA Días de Inventario` <-`Días de Inventario`

### NOTA Días de cuentas por Cobrar 
df_petrolero$`NOTA Días de cuentas por Cobrar` <-`Días de cuentas por Cobrar`

### NOTA Días de Cuentas por Pagar 
df_petrolero$`NOTA Días de Cuentas por Pagar` <-`Días de Cuentas por Pagar`

### NOTA Ciclo de efectivo 
df_petrolero$`NOTA Ciclo de efectivo` <-`Ciclo de efectivo`



# Base TOTAL --------------------------------------------------------------



df_total <- rbind(df_manufactura,df_comercial,df_agricultura_y_otros,df_construccion,df_transporte_y_almacenamiento,
                  df_turismo,df_servicio,df_agua_y_otros,df_petrolero)

df_total$`Nota garantia especifica` <- ifelse(df_total$`Garantía Específica`=="Sí",5,1)


vector <- rowMeans(df_total[,c("NOTA_ROA","NOTA_ROE","NOTA_PASIVO/PATRIMONIO","NOTA APALANCAMIENTO_",
                               "NOTA LIQUIDEZ_","NOTA Prueba Ácida_","NOTA Pasivo/Activo_"
                     ,"NOTA EBITDA/GASTOS FINANCIEROS_","NOTA Utilidad Neta/Ventas_","Nota garantia especifica",
                     "NOTA DEUDA/EBITDA","NOTA PASIVO/EBITDA","NOTA Días de Inventario","NOTA Días de cuentas por Cobrar",
                     "NOTA Días de Cuentas por Pagar","NOTA Ciclo de efectivo")])
df_total$CALIFICACION <- vector