# Fitting Step-Selection Functions with `amt`

#### Johannes Signer

#### 2020-06-14

## About

This vignette briefly introduces how one can fit a Step-Selection Function (SSF) with the `amt` package. We will be using the example data of one red deer from northern Germany and one covariate: a forest cover map.

## Getting the data ready

First we load the required libraries and the relocation data (called `deer`)

    library(lubridate)
    library(raster)
    library(amt)
    data("deer")
    deer

    ## # A tibble: 826 x 4
    ##          x_       y_ t_                  burst_
    ##  *    <dbl>    <dbl> <dttm>               <dbl>
    ##  1 4314068. 3445807. 2008-03-30 00:01:47      1
    ##  2 4314053. 3445768. 2008-03-30 06:00:54      1
    ##  3 4314105. 3445859. 2008-03-30 12:01:47      1
    ##  4 4314044. 3445785. 2008-03-30 18:01:24      1
    ##  5 4313015. 3445858. 2008-03-31 00:01:23      1
    ##  6 4312860. 3445857. 2008-03-31 06:01:45      1
    ##  7 4312854. 3445856. 2008-03-31 12:01:11      1
    ##  8 4312858. 3445858. 2008-03-31 18:01:55      1
    ##  9 4312745. 3445862. 2008-04-01 00:01:24      1
    ## 10 4312651. 3446024. 2008-04-01 06:00:54      1
    ## # … with 816 more rows

In order to continue, we need a regular sampling rate. To check the current sampling rate, we use `summarize_sampling_rate`:

    summarize_sampling_rate(deer)

    ## # A tibble: 1 x 9
    ##     min    q1 median  mean    q3   max    sd     n unit
    ##   <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl> <int> <chr>
    ## 1  5.96  6.00   6.01  11.5  6.02 3924.  137.   825 hour

The median sampling rate is 6h, which is what we aimed for.

Next, we have to get the environmental covariates. A forest layer is included in the package. Note, that this a regular `RasterLayer`.

    data("sh_forest")
    sh_forest

    ## class      : RasterLayer
    ## dimensions : 720, 751, 540720  (nrow, ncol, ncell)
    ## resolution : 25, 25  (x, y)
    ## extent     : 4304725, 4323500, 3437725, 3455725  (xmin, xmax, ymin, ymax)
    ## crs        : +proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs
    ## source     : memory
    ## names      : sh.forest
    ## values     : 1, 2  (min, max)

## Prepare Data for SSF

### Steps

Before fitting a SSF we have to do some data preparation. First, we change from a point representation to a step representation, using the function `steps_by_burst`, which in contrast to the `steps` function accounts for bursts.

    ssf1 <- deer %>% steps_by_burst()

### Control/random steps

The generic function `random_steps` provides a methods for a `track_xy*`, where each observed step is paired with `n_control` control steps (i.e., steps that share the same starting location but have different turn angles and step lengths). The distributions for drawing step lengths and turning angles are usually obtained by fitting known parametric distribution to the observed step length and turn angles.

The function `random_steps` has seven arguments. For most use cases the defaults are just fine, but there might situation where the user wants to adjust some of the arguments. The arguments are:

1. `x`: This is the `track_xy*` for which the random steps are created. That is, for each step in `x` `n_control` random steps are created.
2. `n_control`: The number of random steps that should be created for each observed step.
3. `sl_distr`: This is the distribution of the step lengths. By default a gamma distribution is fit to the observed step lengths of the `x`. But any `amt_distr` is suitable here. 1
4. `ta_distr`: This is the turn angle distribution, with the default being a von Mises distribution.
5. `rand_sl`: These are the random step lengths, by default 1e5 random numbers from the distribution fitted in 32.
6. `rand_ta`: These are the random turn angles, by default 1e4 random numbers from the distribution fitted in 4.
7. `include_observed`: This argument is by default `TRUE` and indicates if the observed steps should be included or not.

#### The default situation

In most situations the following code snippet should work3.

    ssf1 <- ssf1 %>% random_steps(n_control = 15)

#### A exponential distribution for step lengths

todo

### Extract covariates

As a last step, we have to extract the covariates at the end point of each step. We can do this with `extract_covariates`.

    ssf1 <- ssf1 %>% extract_covariates(sh_forest)

Since the forest layers is coded as `1 = forest` and `2 != forest`, we create a factor with appropriate levels. We also calculate the log of the step length and the cosine of the turn angle, which we may use later for a integrated step selection function.

    ssf1 <- ssf1 %>%
      mutate(forest = factor(sh.forest, levels = 1:2, labels = c("forest", "non-forest")),
             cos_ta = cos(ta_),
             log_sl = log(sl_))

## Fitting SSF

Now all pieces are there to fit a SSF. We will use `fit_clogit`, which is a wrapper around `survival::clogit`.

    m0 <- ssf1 %>% fit_clogit(case_ ~ forest + strata(step_id_))
    m1 <- ssf1 %>% fit_clogit(case_ ~ forest + forest:cos_ta + forest:log_sl + log_sl * cos_ta + strata(step_id_))
    m2 <- ssf1 %>% fit_clogit(case_ ~ forest + forest:cos_ta + forest:log_sl + log_sl + cos_ta + strata(step_id_))
    summary(m0)

    ## Call:
    ## coxph(formula = Surv(rep(1, 12144L), case_) ~ forest + strata(step_id_),
    ##     data = data, method = "exact")
    ##
    ##   n= 12144, number of events= 759
    ##
    ##                     coef exp(coef) se(coef)      z Pr(>|z|)
    ## forestnon-forest -0.5845    0.5574   0.1094 -5.342 9.17e-08 ***
    ## ---
    ## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    ##
    ##                  exp(coef) exp(-coef) lower .95 upper .95
    ## forestnon-forest    0.5574      1.794    0.4498    0.6907
    ##
    ## Concordance= 0.532  (se = 0.007 )
    ## Likelihood ratio test= 27.55  on 1 df,   p=2e-07
    ## Wald test            = 28.54  on 1 df,   p=9e-08
    ## Score (logrank) test = 28.7  on 1 df,   p=8e-08

    summary(m1)

    ## Call:
    ## coxph(formula = Surv(rep(1, 12144L), case_) ~ forest + forest:cos_ta +
    ##     forest:log_sl + log_sl * cos_ta + strata(step_id_), data = data,
    ##     method = "exact")
    ##
    ##   n= 12144, number of events= 759
    ##
    ##                             coef exp(coef) se(coef)      z Pr(>|z|)
    ## forestnon-forest         0.67207   1.95829  0.32407  2.074 0.038096 *
    ## log_sl                   0.17538   1.19170  0.04901  3.579 0.000345 ***
    ## cos_ta                  -0.33628   0.71443  0.20214 -1.664 0.096196 .
    ## forestnon-forest:cos_ta -0.22593   0.79777  0.11781 -1.918 0.055149 .
    ## forestnon-forest:log_sl -0.23847   0.78784  0.05686 -4.194 2.75e-05 ***
    ## log_sl:cos_ta            0.02688   1.02724  0.03361  0.800 0.423932
    ## ---
    ## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    ##
    ##                         exp(coef) exp(-coef) lower .95 upper .95
    ## forestnon-forest           1.9583     0.5106    1.0376    3.6960
    ## log_sl                     1.1917     0.8391    1.0826    1.3118
    ## cos_ta                     0.7144     1.3997    0.4807    1.0617
    ## forestnon-forest:cos_ta    0.7978     1.2535    0.6333    1.0050
    ## forestnon-forest:log_sl    0.7878     1.2693    0.7047    0.8807
    ## log_sl:cos_ta              1.0272     0.9735    0.9618    1.0972
    ##
    ## Concordance= 0.609  (se = 0.012 )
    ## Likelihood ratio test= 96.72  on 6 df,   p=<2e-16
    ## Wald test            = 95.4  on 6 df,   p=<2e-16
    ## Score (logrank) test = 97.82  on 6 df,   p=<2e-16

    summary(m2)

    ## Call:
    ## coxph(formula = Surv(rep(1, 12144L), case_) ~ forest + forest:cos_ta +
    ##     forest:log_sl + log_sl + cos_ta + strata(step_id_), data = data,
    ##     method = "exact")
    ##
    ##   n= 12144, number of events= 759
    ##
    ##                             coef exp(coef) se(coef)      z Pr(>|z|)
    ## forestnon-forest         0.68673   1.98722  0.32335  2.124 0.033687 *
    ## log_sl                   0.17428   1.19039  0.04899  3.557 0.000374 ***
    ## cos_ta                  -0.19475   0.82304  0.09764 -1.994 0.046101 *
    ## forestnon-forest:cos_ta -0.23139   0.79343  0.11763 -1.967 0.049171 *
    ## forestnon-forest:log_sl -0.24079   0.78600  0.05678 -4.241 2.23e-05 ***
    ## ---
    ## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    ##
    ##                         exp(coef) exp(-coef) lower .95 upper .95
    ## forestnon-forest           1.9872     0.5032    1.0544    3.7453
    ## log_sl                     1.1904     0.8401    1.0814    1.3104
    ## cos_ta                     0.8230     1.2150    0.6797    0.9966
    ## forestnon-forest:cos_ta    0.7934     1.2603    0.6301    0.9992
    ## forestnon-forest:log_sl    0.7860     1.2723    0.7032    0.8785
    ##
    ## Concordance= 0.609  (se = 0.012 )
    ## Likelihood ratio test= 96.08  on 5 df,   p=<2e-16
    ## Wald test            = 94.15  on 5 df,   p=<2e-16
    ## Score (logrank) test = 96.58  on 5 df,   p=<2e-16

    #AIC(m0$model)
    #AIC(m1$model)
    #AIC(m2$model)

### Interpretation of coefficients

To be done.

## A note on piping

All steps described above, could easily be wrapped into one piped workflow:

    m1 <- deer %>%
      steps_by_burst() %>% random_steps(n = 15) %>%
      extract_covariates(sh_forest) %>%
      mutate(forest = factor(sh.forest, levels = 1:2, labels = c("forest", "non-forest")),
             cos_ta = cos(ta_),
             log_sl = log(sl_)) %>%
      fit_clogit(case_ ~ forest + forest:cos_ta + forest:sl_ + sl_ * cos_ta + strata(step_id_))

    summary(m1)

    ## Call:
    ## coxph(formula = Surv(rep(1, 12144L), case_) ~ forest + forest:cos_ta +
    ##     forest:sl_ + sl_ * cos_ta + strata(step_id_), data = data,
    ##     method = "exact")
    ##
    ##   n= 12144, number of events= 759
    ##
    ##                               coef  exp(coef)   se(coef)      z Pr(>|z|)
    ## forestnon-forest        -0.1867651  0.8296386  0.1429021 -1.307  0.19123
    ## sl_                      0.0006812  1.0006814  0.0001546  4.407 1.05e-05 ***
    ## cos_ta                  -0.3380379  0.7131683  0.1118693 -3.022  0.00251 **
    ## forestnon-forest:cos_ta -0.2601935  0.7709024  0.1192876 -2.181  0.02917 *
    ## forestnon-forest:sl_    -0.0009851  0.9990154  0.0002001 -4.922 8.56e-07 ***
    ## sl_:cos_ta               0.0003975  1.0003976  0.0001348  2.950  0.00318 **
    ## ---
    ## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    ##
    ##                         exp(coef) exp(-coef) lower .95 upper .95
    ## forestnon-forest           0.8296     1.2053    0.6270    1.0978
    ## sl_                        1.0007     0.9993    1.0004    1.0010
    ## cos_ta                     0.7132     1.4022    0.5728    0.8880
    ## forestnon-forest:cos_ta    0.7709     1.2972    0.6102    0.9740
    ## forestnon-forest:sl_       0.9990     1.0010    0.9986    0.9994
    ## sl_:cos_ta                 1.0004     0.9996    1.0001    1.0007
    ##
    ## Concordance= 0.613  (se = 0.012 )
    ## Likelihood ratio test= 120.3  on 6 df,   p=<2e-16
    ## Wald test            = 123  on 6 df,   p=<2e-16
    ## Score (logrank) test = 130  on 6 df,   p=<2e-16

## Session

    devtools::session_info()

    ## ─ Session info ───────────────────────────────────────────────────────────────
    ##  setting  value
    ##  version  R version 4.0.0 (2020-04-24)
    ##  os       Ubuntu 19.10
    ##  system   x86_64, linux-gnu
    ##  ui       X11
    ##  language en_US:en
    ##  collate  C
    ##  ctype    en_US.UTF-8
    ##  tz       Europe/Berlin
    ##  date     2020-06-14
    ##
    ## ─ Packages ───────────────────────────────────────────────────────────────────
    ##  package      * version  date       lib source
    ##  amt          * 0.1.2    2020-06-14 [1] local
    ##  assertthat     0.2.1    2019-03-21 [3] CRAN (R 4.0.0)
    ##  backports      1.1.7    2020-05-13 [3] CRAN (R 4.0.0)
    ##  boot           1.3-25   2020-04-26 [6] CRAN (R 4.0.0)
    ##  callr          3.4.3    2020-03-28 [3] CRAN (R 4.0.0)
    ##  checkmate      2.0.0    2020-02-06 [3] CRAN (R 4.0.0)
    ##  circular       0.4-93   2017-06-29 [3] CRAN (R 4.0.0)
    ##  class          7.3-17   2020-04-26 [6] CRAN (R 4.0.0)
    ##  classInt       0.4-3    2020-04-07 [3] CRAN (R 4.0.0)
    ##  cli            2.0.2    2020-02-28 [3] CRAN (R 4.0.0)
    ##  codetools      0.2-16   2018-12-24 [6] CRAN (R 4.0.0)
    ##  colorspace     1.4-1    2019-03-18 [3] CRAN (R 4.0.0)
    ##  crayon         1.3.4    2017-09-16 [3] CRAN (R 4.0.0)
    ##  DBI            1.1.0    2019-12-15 [3] CRAN (R 4.0.0)
    ##  desc           1.2.0    2018-05-01 [3] CRAN (R 4.0.0)
    ##  devtools       2.3.0    2020-04-10 [3] CRAN (R 4.0.0)
    ##  digest         0.6.25   2020-02-23 [3] CRAN (R 4.0.0)
    ##  dplyr        * 1.0.0    2020-05-29 [3] CRAN (R 4.0.0)
    ##  e1071          1.7-3    2019-11-26 [3] CRAN (R 4.0.0)
    ##  ellipsis       0.3.1    2020-05-15 [3] CRAN (R 4.0.0)
    ##  evaluate       0.14     2019-05-28 [3] CRAN (R 4.0.0)
    ##  fansi          0.4.1    2020-01-08 [3] CRAN (R 4.0.0)
    ##  farver         2.0.3    2020-01-16 [3] CRAN (R 4.0.0)
    ##  fitdistrplus   1.1-1    2020-05-19 [3] CRAN (R 4.0.0)
    ##  fs             1.4.1    2020-04-04 [3] CRAN (R 4.0.0)
    ##  generics       0.0.2    2018-11-29 [3] CRAN (R 4.0.0)
    ##  ggplot2      * 3.3.1    2020-05-28 [3] CRAN (R 4.0.0)
    ##  glue           1.4.1    2020-05-13 [3] CRAN (R 4.0.0)
    ##  gtable         0.3.0    2019-03-25 [3] CRAN (R 4.0.0)
    ##  htmltools      0.4.0    2019-10-04 [3] CRAN (R 4.0.0)
    ##  KernSmooth     2.23-17  2020-04-26 [6] CRAN (R 4.0.0)
    ##  knitr        * 1.28     2020-02-06 [3] CRAN (R 4.0.0)
    ##  labeling       0.3      2014-08-23 [3] CRAN (R 4.0.0)
    ##  lattice        0.20-41  2020-04-02 [6] CRAN (R 4.0.0)
    ##  lifecycle      0.2.0    2020-03-06 [3] CRAN (R 4.0.0)
    ##  lubridate    * 1.7.9    2020-06-08 [3] CRAN (R 4.0.0)
    ##  magrittr       1.5      2014-11-22 [3] CRAN (R 4.0.0)
    ##  MASS           7.3-51.6 2020-04-26 [6] CRAN (R 4.0.0)
    ##  Matrix         1.2-18   2019-11-27 [6] CRAN (R 4.0.0)
    ##  memoise        1.1.0    2017-04-21 [3] CRAN (R 4.0.0)
    ##  munsell        0.5.0    2018-06-12 [3] CRAN (R 4.0.0)
    ##  mvtnorm        1.1-1    2020-06-09 [3] CRAN (R 4.0.0)
    ##  pillar         1.4.4    2020-05-05 [3] CRAN (R 4.0.0)
    ##  pkgbuild       1.0.8    2020-05-07 [3] CRAN (R 4.0.0)
    ##  pkgconfig      2.0.3    2019-09-22 [3] CRAN (R 4.0.0)
    ##  pkgload        1.1.0    2020-05-29 [3] CRAN (R 4.0.0)
    ##  prettyunits    1.1.1    2020-01-24 [3] CRAN (R 4.0.0)
    ##  processx       3.4.2    2020-02-09 [3] CRAN (R 4.0.0)
    ##  ps             1.3.3    2020-05-08 [3] CRAN (R 4.0.0)
    ##  purrr          0.3.4    2020-04-17 [3] CRAN (R 4.0.0)
    ##  R6             2.4.1    2019-11-12 [3] CRAN (R 4.0.0)
    ##  raster       * 3.1-5    2020-04-19 [3] CRAN (R 4.0.0)
    ##  Rcpp           1.0.4.6  2020-04-09 [3] CRAN (R 4.0.0)
    ##  remotes        2.1.1    2020-02-15 [3] CRAN (R 4.0.0)
    ##  rgdal          1.5-10   2020-06-09 [3] CRAN (R 4.0.0)
    ##  rlang          0.4.6    2020-05-02 [3] CRAN (R 4.0.0)
    ##  rmarkdown      2.2      2020-05-31 [3] CRAN (R 4.0.0)
    ##  rprojroot      1.3-2    2018-01-03 [3] CRAN (R 4.0.0)
    ##  scales         1.1.1    2020-05-11 [3] CRAN (R 4.0.0)
    ##  sessioninfo    1.1.1    2018-11-05 [3] CRAN (R 4.0.0)
    ##  sf             0.9-3    2020-05-04 [3] CRAN (R 4.0.0)
    ##  sp           * 1.4-2    2020-05-20 [3] CRAN (R 4.0.0)
    ##  stringi        1.4.6    2020-02-17 [3] CRAN (R 4.0.0)
    ##  stringr        1.4.0    2019-02-10 [3] CRAN (R 4.0.0)
    ##  survival       3.2-3    2020-06-13 [3] CRAN (R 4.0.0)
    ##  testthat       2.3.2    2020-03-02 [3] CRAN (R 4.0.0)
    ##  tibble         3.0.1    2020-04-20 [3] CRAN (R 4.0.0)
    ##  tidyr          1.1.0    2020-05-20 [3] CRAN (R 4.0.0)
    ##  tidyselect     1.1.0    2020-05-11 [3] CRAN (R 4.0.0)
    ##  units          0.6-6    2020-03-16 [3] CRAN (R 4.0.0)
    ##  usethis        1.6.1    2020-04-29 [3] CRAN (R 4.0.0)
    ##  utf8           1.1.4    2018-05-24 [3] CRAN (R 4.0.0)
    ##  vctrs          0.3.1    2020-06-05 [3] CRAN (R 4.0.0)
    ##  withr          2.2.0    2020-04-20 [3] CRAN (R 4.0.0)
    ##  xfun           0.14     2020-05-20 [3] CRAN (R 4.0.0)
    ##  yaml           2.2.1    2020-02-01 [3] CRAN (R 4.0.0)
    ##
    ## [1] /tmp/RtmpDWvEdW/Rinst2870bad8323
    ## [2] /tmp/Rtmp7akg2M/temp_libpath170578c93874
    ## [3] /home/jsigner/R/x86_64-pc-linux-gnu-library/4.0
    ## [4] /usr/local/lib/R/site-library
    ## [5] /usr/lib/R/site-library
    ## [6] /usr/lib/R/library

1. See also `?fit_distr`.↩

2. Note, this possible because of the Glivenko-Cantelli theorem and works as long as the sample from the original distribution (the sample you provide here) is large enough.↩

3. And how it was implemented in `amt` up to version 0.0.6. This should be backward compatible and not break existing code.↩