# *********************************************************** #
#               TEMA 4 - GESTIÓN DE BASES DE DATOS            #
# *********************************************************** #

# Docente: Christian Silvera
# Fecha: 12/03/2026


# 1. TIPOS DE DATOS --------------------------------------------

    # 1.1. Tipo Numeric
    a=c(5,10,15)
    class(a)
    a=as.character(a)
    
    
    # 1.2. Tipo Character
    b=c("A","B","C")
    class(b)
    b=as.numeric(b) # Error
    b=paste("Ciudad", b, sep = "-")
    substr(b,1,4)
    
    
    # 1.3. Tipo Factor
    sexo <- factor(c("M","F","M","M","F"))
    levels(sexo)
    table(sexo)
    factor(sexo)
    
    # 1.4. Tipo Logical
    aprobado <- TRUE
    desaprobado <-  FALSE

     
 # 2. TIPOS DE OBJETOS -------------------------------------------
    
    # 2.1. Vectores
    ID<-c(1:5)
    print(ID)
    rm(ID)
    
    edad <- c(25, 32, 41, 29, 36)
    sexo <- c("M", "F", "F", "M", "M")
    empleado <- c(TRUE, TRUE, FALSE, TRUE, FALSE)
    sexo
    
    # 2.2. Matrices
    matriz1 <- matrix(c(1:6), nrow = 3, ncol = 2)
    print(matriz1)
    
    matriz2 <- matrix(
      c(10, 20, 30, 40),
      nrow = 2,
      byrow = TRUE,
      dimnames = list(
        c("Empresa1", "Empresa2"),
        c("Produccion", "Ventas")
      )
    )
    
    # 2.3. Listas
    y <- list(
      Titulacion = c("Economía", "Sociología", "Derecho"),
      Edad = c(25, 26, 27)
    )
    
    # 2.4. Data frame
    data <- data.frame(edad,sexo,empleado)
    data2 <- data.frame(
      Titulacion = c("Economía", "Sociología", "Derecho"),
      Edad = c(25, 26, 27)
    )
    
# 3. IMPORTAR DATOS ------------------------------------------    
    

    # 3.1. DESDE TXT
    install.packages("readr")
    library(readr)
    base_regiones <- read_delim("1. Inputs/base_regiones.txt", 
                                delim = "\t")
    base_regiones$gastos <- c(210,450,540,290,640,735,490,605)
    rm(base_regiones$sexo)
    
    # 3.2. DESDE SAV
    install.packages("haven")   
    library(haven)                     
    enaho_sav <- read_spss("Enaho01-2024-100.sav")
    
    # 3.3. DESDE EXCEL
    install.packages("readxl")
    library(readxl)
    base_empresas <- read_excel("1. Inputs/base_empresas.xlsx")
    
    # 3.4. DESDE CSV
    install.packages("readr")
    library(readr)
    base_personas <- read_csv("1. Inputs/base_personas.csv")
    
    # 3.5. DESDE DTA  
    library(haven)
    base_exportaciones <- read_dta("1. Inputs/base_exportaciones.dta")

    
      
# 4. EXPORTAR DATOS ------------------------------------------  
    
    # 3.1. A TXT
    write_delim(base_regiones,"2. Outputs/base_regiones_exp.txt", 
                                delim = "\t")
    
    # 3.2. A SAV
    write_sav(base_empresas,"2. Outputs/base_empresas_exp.sav")
    
    # 3.3. A EXCEL
    library(writexl)
    write_xlsx(base_exportaciones,"2. Outputs/base_exportaciones_exp.xlsx")
    
    # 3.4. A CSV
    write_csv(base_regiones,"2. Outputs/base_regiones_exp.csv")
    
    # 3.5. A DTA  
    write_dta(base_personas,"2. Outputs/base_personas_exp.dta")