reorganise refresher

Author: edarin

tutorials/refresher/01_poisson_model.R …ls/refresher/section1/01_poisson_model.Rtutorials/refresher/01_poisson_model.R renamed to tutorials/refresher/section1/01_poisson_model.R tutorials/refresher/01_poisson_model.R renamed to tutorials/refresher/section1/01_poisson_model.R

@@ -38,7 +38,7 @@ input_data <- list(
 pars_poisson <- c('alpha_national', 'pop_post_pred')
 
 fit_poisson <- stan(
-  file= here('tutorials', 'refresher','poisson.stan'),
+  file= here('tutorials', 'refresher', 'section1', 'poisson.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,

tutorials/refresher/poisson.stan tutorials/refresher/section1/poisson.stantutorials/refresher/poisson.stan renamed to tutorials/refresher/section1/poisson.stan

@@ -38,7 +38,7 @@ input_data <- list(
 pars_poisson <- c('alpha_national', 'pop_post_pred')
 
 fit_poisson <- stan(
-  file= here('tutorials', 'refresher','poisson.stan'),
+  file= here('tutorials', 'refresher', 'section1', 'poisson.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -102,7 +102,7 @@ ggplot(comp_pop, aes(x=value, fill=model))+
 pars_lognormal <- c('alpha_national', 'sigma', 'pop_post_pred')
 
 fit_poisson_lognormal <- stan(
-  file= here('tutorials', 'refresher','poisson_lognormal.stan'),
+  file= here('tutorials', 'refresher','section2' ,'poisson_lognormal.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -179,7 +179,7 @@ pars_lognormal_independent <- c('pop_post_pred', 'alpha_settlement',  'sigma')
 
 
 fit_poisson_lognormal_independent <- stan(
-  file= here('tutorials', 'refresher','poisson_independent.stan'),
+  file= here('tutorials', 'refresher','section2','poisson_independent.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -234,7 +234,7 @@ ggplotly(ggplot(pop_posterior_lognormal_independent, aes(x=value, fill=source, a
 pars_lognormal_hierarchical_cp <- c('alpha_national','alpha_settlement', 'u_alpha_settlement', 'sigma', 'pop_post_pred')
 
 fit_poisson_lognormal_hierarchical_cp <- stan(
-  file= here('tutorials', 'refresher','poisson_hierarchical_cp.stan'),
+  file= here('tutorials', 'refresher','section2','poisson_hierarchical_cp.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,

…ls/refresher/02_poissonLognormal_model.R …her/section2/02_poissonLognormal_model.Rtutorials/refresher/02_poissonLognormal_model.R renamed to tutorials/refresher/section2/02_poissonLognormal_model.R tutorials/refresher/02_poissonLognormal_model.R renamed to tutorials/refresher/section2/02_poissonLognormal_model.R

@@ -39,7 +39,7 @@ input_data <- list(
 pars_poisson <- c('alpha_national', 'pop_post_pred')
 
 fit_poisson <- stan(
-  file= here('tutorials', 'refresher','poisson.stan'),
+  file= here('tutorials', 'refresher', 'section1', 'poisson.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -103,7 +103,7 @@ ggplot(comp_pop, aes(x=value, fill=model))+
 pars_lognormal <- c('alpha_national', 'sigma', 'pop_post_pred')
 
 fit_poisson_lognormal <- stan(
-  file= here('tutorials', 'refresher','poisson_lognormal.stan'),
+  file= here('tutorials', 'refresher','section2' ,'poisson_lognormal.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -180,7 +180,7 @@ pars_lognormal_independent <- c('pop_post_pred', 'alpha_settlement',  'sigma')
 
 
 fit_poisson_lognormal_independent <- stan(
-  file= here('tutorials', 'refresher','poisson_independent.stan'),
+  file= here('tutorials', 'refresher','section2','poisson_independent.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -237,7 +237,7 @@ ggplotly(ggplot(pop_posterior_lognormal_independent, aes(x=value, fill=source, a
 pars_lognormal_hierarchical_cp <- c('alpha_national','alpha_settlement', 'u_alpha_settlement', 'sigma', 'pop_post_pred')
 
 fit_poisson_lognormal_hierarchical_cp <- stan(
-  file= here('tutorials', 'refresher','poisson_hierarchical_cp.stan'),
+  file= here('tutorials', 'refresher','section2','poisson_hierarchical_cp.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -350,7 +350,7 @@ pars_lognormal_hierarchical_var <- c('alpha_national','alpha_settlement',
                                      'sigma_settlement', 'pop_post_pred')
 
 fit_poisson_lognormal_hierarchical_var<- stan(
-  file= here('tutorials', 'refresher','poisson_hierarchical_variance.stan'),
+  file= here('tutorials', 'refresher','section3' ,'poisson_hierarchical_variance.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -456,7 +456,7 @@ pars_lognormal_hierarchical_nclp <- c('alpha_national','delta_settlement', 'u_de
                                       'sigma', 'pop_post_pred')
 
 fit_poisson_lognormal_hierarchical_nclp <- stan(
-  file= here('tutorials', 'refresher','poisson_hierarchical_nclp.stan'),
+  file= here('tutorials', 'refresher','section3','poisson_hierarchical_nclp.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,
@@ -540,7 +540,7 @@ pars_lognormal_hierarchical_nclsp <- c('alpha_national','u_delta_settlement',
                                        'sigma', 'pop_post_pred')
 
 fit_poisson_lognormal_hierarchical_nclsp <- stan(
-  file= here('tutorials', 'refresher','poisson_hierarchical_nclsp.stan'),
+  file= here('tutorials', 'refresher','section3','poisson_hierarchical_nclsp.stan'),
   data= input_data,
   iter = iter + warmup,
   warmup = warmup,