-
Notifications
You must be signed in to change notification settings - Fork 0
/
variables.R
57 lines (34 loc) · 1.41 KB
/
variables.R
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
52
53
54
55
56
57
# === Variables -----------------------------------------------------------
# Paths -------------------------------------------------------------------
fogo_path <- 'input/FogoCaribou.csv'
lc_path <- '../nl-landcover/output/fogo_lc.tif'
legend_path <- '../nl-landcover/input/FINAL_PRODUCT/FINAL_RC_legend.csv'
body_path <- 'input/body.csv'
# Bounds ------------------------------------------------------------------
lowEastFogo <- 690000; highEastFogo <- 800000
lowNorthFogo <- 5450000; highNorthFogo <- 6000000
# Datetimes ---------------------------------------------------------------
# Time zone
tz <- 'America/St_Johns'
# Movement ----------------------------------------------------------------
# Max moverate
maxMoveRate <- 30000
# Projection --------------------------------------------------------------
# TODO: fix this proj4string
crs <- '+init=epsg:32621'
# Column names ------------------------------------------------------------
coords <- c('EASTING', 'NORTHING')
id <- 'ANIMAL_ID'
# Drop rows ---------------------------------------------------------------
# Animals with malfunctioning collars or dead animals
dropIDYr <- c(
'FO2016006_2017', # not enough fixes
'FO2016006_2018', # not enough fixes
'FO2017006_2019', # not enough fixes
'FO2017013_2018', # Dead animal
'FO2017004_2019', # not enough fixes
'FO2017007_2019' # not enough fixes
)
dropID <- c(
'FO2016001' # Dead animal
)