data(deer)
d1 <- make_track(deer, x_, y_)
d2 <- deer %>%  make_track(x_, y_, t_)

expect_true(is(d1 %>% steps(), "steps_xy"))
expect_true(is(d1 %>% steps(), "data.frame"))
expect_true(is(d2 %>% steps(), "steps_xyt"))
expect_true(is(d2 %>% steps(), "steps_xy"))
expect_true(is(d2 %>% steps(), "data.frame"))
expect_true(is(d1 %>% steps() %>% random_steps(), "random_steps"))
expect_true(is(d2 %>% steps() %>% random_steps(), "random_steps"))

# Distributions

sl <- fit_distr(d2 %>% steps() %>% pull(sl_), "gamma")
expect_equal(d2 %>% steps() %>% pull(sl_) %>% fit_distr(dist_name = "gamma") %>% getElement("name"), "gamma")
expect_equal(d2 %>% steps() %>% pull(sl_) %>% fit_distr(dist_name = "unif") %>% getElement("name"), "unif")
expect_equal(d2 %>% steps() %>% pull(sl_) %>% fit_distr(dist_name = "exp") %>% getElement("name"), "exp")


