Skip to content

Commit 4beb5ee

Browse files
ecoisilvaecoisilva
committed
✨ update raw data
1 parent 75c91b2 commit 4beb5ee

File tree

4 files changed

+164
-0
lines changed

4 files changed

+164
-0
lines changed

‎data-raw/fixrates.R

Lines changed: 95 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,95 @@
1+
## code to prepare `fixrates` dataset goes here
2+
3+
library(ctmm)
4+
library(dplyr)
5+
6+
fixrates <- data.frame(dti_notes = character(0),
7+
dti = numeric(0),
8+
common = character(0),
9+
dti_scale = character(0),
10+
dti_yn = character(0))
11+
12+
fixrates <- fixrates %>%
13+
dplyr::add_row(dti_notes = "1 fix every month",
14+
dti = 1 %#% "month",
15+
common = "N", dti_scale = NA, dti_yn = "N") %>%
16+
dplyr::add_row(dti_notes = "1 fix every two weeks",
17+
dti = 2 %#% "week",
18+
common = "N", dti_scale = NA, dti_yn = "N") %>%
19+
dplyr::add_row(dti_notes = "1 fix every week",
20+
dti = 1 %#% "week",
21+
common = "N", dti_scale = NA, dti_yn = "N") %>%
22+
dplyr::add_row(dti_notes = "1 fix every 4 days",
23+
dti = 4 %#% "days",
24+
common = "N", dti_scale = NA, dti_yn = "N") %>%
25+
dplyr::add_row(dti_notes = "1 fix every 2 days",
26+
dti = 2 %#% "days",
27+
common = "N", dti_scale = NA, dti_yn = "N") %>%
28+
dplyr::add_row(dti_notes = "1 fix every day",
29+
dti = 1 %#% "days",
30+
common = "Y", dti_scale = "1 day", dti_yn = "Y") %>%
31+
dplyr::add_row(dti_notes = "1 fix every 12 hours",
32+
dti = 12 %#% "hours",
33+
common = "Y", dti_scale = "12 hrs", dti_yn = "Y") %>%
34+
dplyr::add_row(dti_notes = "1 fix every 8 hours",
35+
dti = 8 %#% "hours",
36+
common = "Y", dti_scale = "8 hrs", dti_yn = "N") %>%
37+
dplyr::add_row(dti_notes = "1 fix every 6 hours",
38+
dti = 6 %#% "hours",
39+
common = "Y", dti_scale = "6 hrs", dti_yn = "Y") %>%
40+
dplyr::add_row(dti_notes = "1 fix every 4 hours",
41+
dti = 4 %#% "hours",
42+
common = "Y", dti_scale = "4 hrs", dti_yn = "N") %>%
43+
dplyr::add_row(dti_notes = "1 fix every 3 hours",
44+
dti = 3 %#% "hours",
45+
common = "N", dti_scale = NA, dti_yn = "N") %>%
46+
dplyr::add_row(dti_notes = "1 fix every 2 hours",
47+
dti = 2 %#% "hours",
48+
common = "N", dti_scale = "2 hrs", dti_yn = "Y") %>%
49+
dplyr::add_row(dti_notes = "1 fix every hour",
50+
dti = 1 %#% "hours",
51+
common = "N", dti_scale = "1 hr", dti_yn = "Y") %>%
52+
dplyr::add_row(dti_notes = "1 fix every 30 minutes",
53+
dti = 30 %#% "minutes",
54+
common = "N", dti_scale = "30 mins", dti_yn = "Y") %>%
55+
dplyr::add_row(dti_notes = "1 fix every 20 minutes",
56+
dti = 20 %#% "minutes",
57+
common = "N", dti_scale = NA, dti_yn = "N") %>%
58+
dplyr::add_row(dti_notes = "1 fix every 15 minutes",
59+
dti = 15 %#% "minutes",
60+
common = "N", dti_scale = "15 mins", dti_yn = "Y") %>%
61+
dplyr::add_row(dti_notes = "1 fix every 10 minutes",
62+
dti = 10 %#% "minutes",
63+
common = "N", dti_scale = NA, dti_yn = "N") %>%
64+
dplyr::add_row(dti_notes = "1 fix every 5 minutes",
65+
dti = 5 %#% "minutes",
66+
common = "N", dti_scale = "5 mins", dti_yn = "Y") %>%
67+
dplyr::add_row(dti_notes = "1 fix every 2 minutes",
68+
dti = 2 %#% "minutes",
69+
common = "N", dti_scale = NA, dti_yn = "N") %>%
70+
dplyr::add_row(dti_notes = "1 fix every minute",
71+
dti = 1 %#% "minutes",
72+
common = "N", dti_scale = "1 min", dti_yn = "Y") %>%
73+
dplyr::add_row(dti_notes = "1 fix every 30 seconds",
74+
dti = 30 %#% "seconds",
75+
common = "N", dti_scale = NA, dti_yn = "N") %>%
76+
dplyr::add_row(dti_notes = "1 fix every 20 seconds",
77+
dti = 20 %#% "seconds",
78+
common = "N", dti_scale = NA, dti_yn = "N") %>%
79+
dplyr::add_row(dti_notes = "1 fix every 15 seconds",
80+
dti = 15 %#% "seconds",
81+
common = "N", dti_scale = NA, dti_yn = "N") %>%
82+
dplyr::add_row(dti_notes = "1 fix every 10 seconds",
83+
dti = 10 %#% "seconds",
84+
common = "N", dti_scale = NA, dti_yn = "N") %>%
85+
dplyr::add_row(dti_notes = "1 fix every 5 seconds",
86+
dti = 5 %#% "seconds",
87+
common = "N", dti_scale = NA, dti_yn = "N") %>%
88+
dplyr::add_row(dti_notes = "1 fix every second",
89+
dti = 1 %#% "seconds",
90+
common = "N", dti_scale = "1 sec", dti_yn = "Y")
91+
92+
fixrates$frq <- 1 / fixrates$dti # sampling frequency
93+
fixrates$frq_hrs <- 1 / ("hour" %#% fixrates$dti)
94+
95+
usethis::use_data(fixrates, overwrite = TRUE)

‎data-raw/movmods.R

Lines changed: 69 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,69 @@
1+
## code to prepare `movmods` dataset goes here
2+
3+
library(dplyr)
4+
5+
movmods <- data.frame(name = character(0),
6+
name_short = character(0),
7+
tau_p = character(0),
8+
tau_v = character(0),
9+
hrange = character(0),
10+
pars = character(0))
11+
12+
movmods <- movmods %>%
13+
dplyr::add_row(
14+
name = "Ind. Ident. Distr. (IID)",
15+
name_short = "IID",
16+
tau_p = "No",
17+
tau_v = "No",
18+
hrange = "Yes",
19+
pars = paste("\u03C4", "=", "NULL")
20+
)
21+
22+
movmods <- movmods %>%
23+
dplyr::add_row(
24+
name = "Brownian Motion (BM)",
25+
name_short = "BM",
26+
tau_p = "Yes",
27+
tau_v = "No",
28+
hrange = "No",
29+
pars = paste("\u03C4", "=", "\u221E")
30+
)
31+
32+
movmods <- movmods %>%
33+
dplyr::add_row(
34+
name = "Ornstein–Uhlenbeck (OU)",
35+
name_short = "OU",
36+
tau_p = "Yes",
37+
tau_v = "No",
38+
hrange = "Yes",
39+
pars = paste("\u03C4", "=", paste0("\u03C4", "\u209A"))
40+
)
41+
42+
movmods <- movmods %>%
43+
dplyr::add_row(
44+
name = "Integrated Ornstein–Uhlenbeck (IOU)",
45+
name_short = "OU",
46+
tau_p = "Yes",
47+
tau_v = "Yes",
48+
hrange = "No",
49+
pars = paste0("\u03C4", " = ",
50+
"{",
51+
"\u221E, ", "\u03C4", "\u1D65",
52+
"}")
53+
)
54+
55+
movmods <- movmods %>%
56+
dplyr::add_row(
57+
name = "Ornstein-Uhlenbeck with foraging (OUF)",
58+
name_short = "OUF",
59+
tau_p = "Yes",
60+
tau_v = "Yes",
61+
hrange = "Yes",
62+
pars = paste0("\u03C4", " = ",
63+
"{",
64+
"\u03C4", "\u209A", ", ",
65+
"\u03C4", "\u1D65",
66+
"}")
67+
)
68+
69+
usethis::use_data(movmods, overwrite = TRUE)

‎data/fixrates.rda

-7 Bytes
Binary file not shown.

‎data/movmods.rda

14 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)