-
Notifications
You must be signed in to change notification settings - Fork 0
/
idp_regressions.Rmd
51 lines (47 loc) · 1.45 KB
/
idp_regressions.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
---
title: "idp_regression"
output: html_document
---
```{r setup, include=FALSE, cache=TRUE}
knitr::opts_chunk$set(echo = FALSE)
library(readr)
library(readxl)
library(tidyverse)
idp <- read_csv("raw-data_2/idp.csv", skip = 1, col_types = cols(
.default = col_character(),
Date_of_Assessment = col_logical(),
Encoding_Date = col_logical(),
`Total_#_of_HH` = col_double(),
Displacement_Date = col_date(format = ""),
In_School_Buildings = col_double(),
In_Health_Facilities = col_double(),
In_Religious_Buildings = col_double(),
In_Other_Private_Building = col_double(),
In_Other_Public_Building = col_double(),
In_Settlements = col_double(),
`In_Isolated/dispersed_settlements` = col_double(),
In_Rented_Accommodation = col_double(),
With_Host_Families_Relatives = col_double(),
With_Host_Families_not_Relatives = col_double(),
In_Second_Home = col_double(),
In_Original_Home = col_logical()
))
conflict <- read_csv("raw-data_2/1900-01-01-2019-10-17-Yemen.csv", col_types = cols(
.default = col_character(),
data_id = col_double(),
iso = col_double(),
event_id_no_cnty = col_double(),
event_date = col_date(format = ""),
year = col_double(),
time_precision = col_double(),
inter1 = col_double(),
inter2 = col_double(),
interaction = col_double(),
admin3 = col_logical(),
latitude = col_double(),
longitude = col_double(),
geo_precision = col_double(),
fatalities = col_double(),
timestamp = col_double()
))
```