Working with Models • ramp.uganda

RAMP-Uganda

library(ramp.xds)
library(dplyr)

## 
## 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(ramp.uganda)
attach(yaml::read_yaml("../my_paths.yaml"))

This sets locations for Box/RAMP and ramp.uganda

directory <- paste(box_dir, "Models", sep = "") 
eir_files <- list.files(path = directory, pattern = "*_eir_sis.rds", full.names = TRUE)
head(eir_files, 2)

## [1] "/Users/smitdave/Library/CloudStorage/Box-Box/RAMP/Models/abim_district_eir_sis.rds"    
## [2] "/Users/smitdave/Library/CloudStorage/Box-Box/RAMP/Models/adjumani_district_eir_sis.rds"

fitted_mod <- list()
for (i in 1:146) {
  fitted_mod[[i]] <- readRDS(eir_files[i])
}

data_list = list()
for(i in 1:146)
  data_list[[i]] <- get_one_district(i)

get_irs_jdates("Tororo District", 2015)

##  [1]  158  305  528  -24 1257 1537  928 1887 2251 2615 2972 3357

profile_plot_i(1, fitted_mod, data_list)