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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.