## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(contentiousR)

panel <- build_states_panel(
  start_year = 2000,
  end_year = 2002,
  coding_system = "cow"
)

analysis_data <- panel |>
  add_gdp() |>
  add_conflict("ucdp_prio") |>
  add_leader_data("archigos")

analysis_data[1:4, c(
  "country", "year", "gdp_pcap", "ucdp_prio_incidence", "leader"
)]

## -----------------------------------------------------------------------------
conflicts <- conflict_data(
  start_year = 2000,
  end_year = 2002,
  dataset = "ucdp_prio",
  coding_system = "gw"
)

head(conflicts)

## -----------------------------------------------------------------------------
spell_data <- build_states_panel(1990, 2005, coding_system = "gw") |>
  add_conflict("ucdp_prio") |>
  tidyr::drop_na(ucdp_prio_onset) |>
  add_spell_duration(event = "ucdp_prio_onset")

spell_data[spell_data$gw == 2, c("gw", "year", "ucdp_prio_onset", "ucdp_prio_spell")]

## -----------------------------------------------------------------------------
build_states_panel(1990, 1995, coding_system = "cow") |>
  add_gdp() |>
  add_lag(vars = c("gdp_pcap", "gdp_growth"), n = 1) |>
  dplyr::filter(cow == 2) |>
  dplyr::select(cow, year, gdp_pcap, gdp_pcap_l, gdp_growth_l)

## ----fig.width = 7, fig.height = 6--------------------------------------------
if (requireNamespace("ggplot2", quietly = TRUE)) {
  build_states_panel(1990, 2015, coding_system = "cow") |>
    add_conflict("ucdp_prio") |>
    plot_coverage("ucdp_prio_onset")
}

## ----eval = FALSE-------------------------------------------------------------
# remotes::install_github("vdeminstitute/vdemdata")
# 
# panel |>
#   add_vdem(c("v2x_polyarchy", "v2x_libdem"))

## ----eval = FALSE-------------------------------------------------------------
# panel <- build_states_panel(
#   start_year        = 1946,
#   end_year          = 2019,
#   coding_system     = "cow",   # or "gw"
#   exclude_microstates = TRUE,
#   exclude_non_un    = TRUE,
#   exclude_islands   = FALSE
# )

## ----eval = FALSE-------------------------------------------------------------
# # Standalone
# gdp <- load_gdp_data(start_year = 1990, end_year = 2015, coding_system = "cow")
# fariss_gdp <- load_gdp_data(1700, 2015, dataset = "fariss", coding_system = "cow")
# 
# # Pipeline
# panel |> add_gdp()
# panel |> add_gdp(dataset = "fariss")

## ----eval = FALSE-------------------------------------------------------------
# # Standalone
# pop_wpp <- load_population_data(1990, 2015, dataset = "wpp", coding_system = "cow")
# pop_nmc <- load_population_data(1900, 2015, dataset = "nmc", coding_system = "cow")
# 
# # Pipeline
# panel |> add_population()
# panel |> add_population(dataset = "nmc")

## ----eval = FALSE-------------------------------------------------------------
# # Standalone
# milex_sipri <- load_military_expenditure_data(1990, 2015, dataset = "sipri", coding_system = "cow")
# milex_barnum <- load_military_expenditure_data(1900, 2015, dataset = "barnum", coding_system = "cow")
# 
# # Pipeline
# panel |> add_military_expenditure()
# panel |> add_military_expenditure(dataset = "barnum")

## ----eval = FALSE-------------------------------------------------------------
# # Standalone
# vdem <- load_vdem_data(
#   vars          = c("v2x_polyarchy", "v2x_libdem"),
#   start_year    = 1990,
#   end_year      = 2015,
#   coding_system = "cow"
# )
# 
# # Pipeline
# panel |> add_vdem(vars = c("v2x_polyarchy", "v2x_libdem"))

## ----eval = FALSE-------------------------------------------------------------
# # Standalone
# arch  <- load_leader_data(1990, 2015, dataset = "archigos", coding_system = "cow")
# reign <- load_leader_data(1990, 2015, dataset = "reign",    coding_system = "gw")
# 
# # Pipeline
# panel |> add_leader_data(dataset = "archigos")
# panel |> add_leader_data(dataset = "reign")

## ----eval = FALSE-------------------------------------------------------------
# library(peacesciencer)
# 
# analysis_data |>
#   add_from_peacesciencer(peacesciencer::add_archigos)