projects/brazilv2/main.R

In ibarraespinosa/vein: Vehicular Emissions Inventories

system("git clone https://gitlab.com/ibarraespinosa/brazil_roads")

source("config/01_fleet_brazil.R")
rm(list = ls())
gc()


source("config/02_fuel.R")
rm(list = ls())
gc()
source("config/03_mileage.R")
rm(list = ls())
gc()
source("config/04_met.R")
rm(list = ls())
gc()
source("config/05_pre_main.R")
rm(list = ls())
gc()
# 
# x <- list.files(path="estimation",
#                 pattern = "main.R", 
#                 recursive = T, 
#                 full.names = T)
# 
# xx <- paste0(getwd(),"/",  
#              x[!grepl(pattern = ".Rproj", x)])
# 
# xx <- gsub("main.R", "", xx)
# 
# saveRDS(xx, paste0(getwd(), "/mains.rds"))
# 
# for (i in seq_along(xx)) {
#   
#   di <- readRDS(paste0(getwd(), "/mains.rds"))
#   setwd(di[i])
#   print(di[i])
# 
#   sink(paste0(di[i], "/log.txt"))
#   print(paste0(di[i], "/log.txt"))
#   
#   source(file = "main.R", echo = T)
#   gc()
#   sink()
# 
# }
# 
#