Tasacion/R/LeerArchivos.R

In FMunyoz/Stima: Genera una tasacion

LeerArchivos <- function(Directorio) {
  #Caso a estimar
  Estimacion <- read.csv2(paste(Directorio, "CasoEstimacion.csv", sep = "/"))
  
  #Leyendo Muestra
  Muestra <- read.csv2(paste(Directorio, "DatosMuestra.csv", sep = "/"))
  #Leyendo Parametros de Calculo
  Parametros <- read.csv2(paste(Directorio, "ParametrosCalculo.csv", sep = "/"))
  list("Estimacion" = Estimacion, "Muestra" = Muestra, "Parametros" = Parametros)
}