[R/calculate_weight.R:34:24:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/calculate_weight.R#L34) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    select_(~Stratum, ~ExternalCode, ~Weight) %>%
                       ^~~~~~~~~~~~
```
[R/get_linear_lincomb.R:23:38:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_linear_lincomb.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      fPeriod = ~sort(unique(dataset$fPeriod))[1]
                                     ^~~~~~~
```
[R/get_linear_lincomb.R:36:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_linear_lincomb.R#L36) *style:* **Only use double-quotes.**
```r
<U+200B>    '*'(available.weight$Weight) %>%
    ^~~
```
[R/get_linear_lincomb.R:36:8:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_linear_lincomb.R#L36) *style:* **Place a space before left parenthesis, except in a function call.**
```r
<U+200B>    '*'(available.weight$Weight) %>%
       ^
```
[R/get_linear_lincomb.R:46:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_linear_lincomb.R#L46) *style:* **Only use double-quotes.**
```r
<U+200B>    '*'(trend.weight$Weight)
    ^~~
```
[R/get_linear_lincomb.R:46:8:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_linear_lincomb.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
<U+200B>    '*'(trend.weight$Weight)
       ^
```
[R/get_nonlinear_lincomb.R:31:26:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_nonlinear_lincomb.R#L31) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      Weight = ~Weight / TotalWeight,
                         ^~~~~~~~~~~
```
[R/get_nonlinear_lincomb.R:32:38:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_nonlinear_lincomb.R#L32) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      fPeriod = ~sort(unique(dataset$fPeriod))[1]
                                     ^~~~~~~
```
[R/get_nonlinear_lincomb.R:34:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_nonlinear_lincomb.R#L34) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    select_(~-TotalWeight)
              ^~~~~~~~~~~
```
[R/get_nonlinear_lincomb.R:38:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_nonlinear_lincomb.R#L38) *style:* **Only use double-quotes.**
```r
<U+200B>    '*'(available.weight$Weight) %>%
    ^~~
```
[R/get_nonlinear_lincomb.R:38:8:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/get_nonlinear_lincomb.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
<U+200B>    '*'(available.weight$Weight) %>%
       ^
```
[R/prepare_analysis.R:75:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    select_(~FileFingerprint, ~Status) %>%
             ^~~~~~~~~~~~~~~
```
[R/prepare_analysis.R:81:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L81) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    group_by_(~LocationGroupID, ~SpeciesGroupID) %>%
               ^~~~~~~~~~~~~~~
```
[R/prepare_analysis.R:81:34:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L81) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    group_by_(~LocationGroupID, ~SpeciesGroupID) %>%
                                 ^~~~~~~~~~~~~~
```
[R/prepare_analysis.R:113:18:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L113) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~SpeciesGroupID, ~SpeciesID),
                 ^~~~~~~~~~~~~~
```
[R/prepare_analysis.R:113:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L113) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~SpeciesGroupID, ~SpeciesID),
                                  ^~~~~~~~~
```
[R/prepare_analysis.R:116:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L116) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    select_(~-SpeciesGroupID) %>%
              ^~~~~~~~~~~~~~
```
[R/prepare_analysis.R:121:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L121) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    group_by_(~LocationGroupID, ~SpeciesGroupID, ~Covariate) %>%
               ^~~~~~~~~~~~~~~
```
[R/prepare_analysis.R:121:34:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis.R#L121) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    group_by_(~LocationGroupID, ~SpeciesGroupID, ~Covariate) %>%
                                 ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:14:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L14) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    variable = c("LocationGroupID", "SpeciesGroupID", "Covariate", "FileFingerprint", "StatusFingerprint", "Seed"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:27:25:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L27) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      ParentAnalysis = ~FileFingerprint,
                        ^~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:28:34:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L28) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      ParentStatusFingerprint = ~StatusFingerprint,
                                 ^~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:31:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L31) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    arrange_(~ParentAnalysis)
              ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:33:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L33) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.id <- dataset$SpeciesGroupID[1]
  ^~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:33:31:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L33) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  species.group.id <- dataset$SpeciesGroupID[1]
                              ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:34:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L34) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  location.group.id <- dataset$LocationGroupID[1]
  ^~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:34:32:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L34) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  location.group.id <- dataset$LocationGroupID[1]
                               ^~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:35:28:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L35) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  analysis.date <- dataset$AnalysisDate[1]
                           ^~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:41:29:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L41) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      parent = dataset.year$ParentAnalysis,
                            ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:43:18:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L43) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                 ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:43:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L43) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                                  ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:43:61:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L43) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                                                            ^~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:47:26:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L47) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>      species.group.id = species.group.id,
                         ^~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:48:27:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L48) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>      location.group.id = location.group.id,
                          ^~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:65:29:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L65) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      parent = this.dataset$ParentAnalysis,
                            ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:67:18:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L67) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                 ^~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:67:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L67) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                                  ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:67:61:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L67) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                                                            ^~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:71:26:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L71) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>      species.group.id = species.group.id,
                         ^~~~~~~~~~~~~~~~
```
[R/prepare_analysis_comparison.R:72:27:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_comparison.R#L72) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>      location.group.id = location.group.id,
                          ^~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:29:11:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  dataset$ParentStatusFingerprint <- dataset$StatusFingerprint
          ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:29:46:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  dataset$ParentStatusFingerprint <- dataset$StatusFingerprint
                                             ^~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:30:11:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L30) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  dataset$ParentStatus <- dataset$Status
          ^~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:64:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L64) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
               ^~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:64:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L64) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                                ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:64:59:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L64) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      select_(~ParentAnalysis, ~ParentStatusFingerprint, ~ParentStatus) %>%
                                                          ^~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:68:32:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L68) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    species.group.id = dataset$SpeciesGroupID[1],
                               ^~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:69:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L69) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    location.group.id = dataset$LocationGroupID[1],
                                ^~~~~~~~~~~~~~~
```
[R/prepare_analysis_composite.R:75:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_composite.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    analysis.date = max(dataset$AnalysisDate)
                                ^~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:73:38:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L73) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  seed <- species.id$Seed[species.id$SpeciesGroupID == speciesgroup.id]
                                     ^~~~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:74:39:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L74) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  parent <- parent$Fingerprint[parent$SpeciesGroupID == speciesgroup.id]
                                      ^~~~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:78:37:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L78) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    mutate_(Nobserved = ~n_distinct(LocationID)) %>%
                                    ^~~~~~~~~~
```
[R/prepare_analysis_dataset.R:81:31:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L81) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      Nrelevant = ~n_distinct(LocationID)
                              ^~~~~~~~~~
```
[R/prepare_analysis_dataset.R:91:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L91) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      locationgroup.id <- dataset$LocationGroupID[1]
                                  ^~~~~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:138:31:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L138) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          fLocation = ~factor(LocationID),
                              ^~~~~~~~~~
```
[R/prepare_analysis_dataset.R:139:34:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L139) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          fSubLocation = ~factor(SubLocationID),
                                 ^~~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:144:46:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      multi.stratum <- length(levels(dataset$fStratum)) > 1
                                             ^~~~~~~~
```
[R/prepare_analysis_dataset.R:148:23:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L148) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      if (min(dataset$cYear) == 0) {
                      ^~~~~
```
[R/prepare_analysis_dataset.R:153:18:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L153) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        select_(~fStratum, ~Weight) %>%
                 ^~~~~~~~
```
[R/prepare_analysis_dataset.R:155:19:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L155) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        arrange_(~fStratum)
                  ^~~~~~~~
```
[R/prepare_analysis_dataset.R:156:31:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L156) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      lc.index <- min(dataset$cYear):max(dataset$cYear) %>%
                              ^~~~~
```
[R/prepare_analysis_dataset.R:156:50:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L156) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      lc.index <- min(dataset$cYear):max(dataset$cYear) %>%
                                                 ^~~~~
```
[R/prepare_analysis_dataset.R:165:23:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L165) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          min(dataset$cYear):max(dataset$cYear) %>%
                      ^~~~~
```
[R/prepare_analysis_dataset.R:165:42:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L165) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          min(dataset$cYear):max(dataset$cYear) %>%
                                         ^~~~~
```
[R/prepare_analysis_dataset.R:167:19:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L167) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          weights$fStratum %>%
                  ^~~~~~~~
```
[R/prepare_analysis_dataset.R:179:27:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L179) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          formula = ~ 0 + fStratum + cYear:fStratum
                          ^~~~~~~~
```
[R/prepare_analysis_dataset.R:179:38:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L179) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          formula = ~ 0 + fStratum + cYear:fStratum
                                     ^~~~~
```
[R/prepare_analysis_dataset.R:179:44:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L179) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          formula = ~ 0 + fStratum + cYear:fStratum
                                           ^~~~~~~~
```
[R/prepare_analysis_dataset.R:185:31:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L185) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          cYear = min(dataset$cYear):max(dataset$cYear)
                              ^~~~~
```
[R/prepare_analysis_dataset.R:185:50:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L185) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>          cYear = min(dataset$cYear):max(dataset$cYear)
                                                 ^~~~~
```
[R/prepare_analysis_dataset.R:236:41:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L236) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            list(cYear = levels(dataset$fStratum)),
                                        ^~~~~~~~
```
[R/prepare_analysis_dataset.R:237:41:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L237) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            list(cYear = levels(dataset$fStratum)),
                                        ^~~~~~~~
```
[R/prepare_analysis_dataset.R:246:17:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L246) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        dataset$fCycle <- factor(
                ^~~~~~
```
[R/prepare_analysis_dataset.R:262:21:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            weights$fStratum %>%
                    ^~~~~~~~
```
[R/prepare_analysis_dataset.R:273:29:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L273) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            formula = ~ 0 + fStratum + Cycle:fStratum
                            ^~~~~~~~
```
[R/prepare_analysis_dataset.R:273:46:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L273) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            formula = ~ 0 + fStratum + Cycle:fStratum
                                             ^~~~~~~~
```
[R/prepare_analysis_dataset.R:277:41:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L277) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            list(cYear = levels(dataset$fStratum)),
                                        ^~~~~~~~
```
[R/prepare_analysis_dataset.R:278:41:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L278) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            list(cYear = levels(dataset$fStratum)),
                                        ^~~~~~~~
```
[R/prepare_analysis_dataset.R:280:41:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L280) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            list(Cycle = levels(dataset$fStratum)),
                                        ^~~~~~~~
```
[R/prepare_analysis_dataset.R:281:41:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L281) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>            list(Cycle = levels(dataset$fStratum)),
                                        ^~~~~~~~
```
[R/prepare_analysis_dataset.R:293:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L293) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>        lc <- list(lc.index, lc.index, lc.trend, lc.cycle, lc.cycle, lc.cycletrend)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:351:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L351) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      if (length(levels(dataset$fLocation)) > 1) {
                                ^~~~~~~~~
```
[R/prepare_analysis_dataset.R:362:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L362) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      if (length(levels(dataset$fSubLocation)) > 1) {
                                ^~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:373:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L373) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      if (length(levels(dataset$fPeriod)) > 1) {
                                ^~~~~~~
```
[R/prepare_analysis_dataset.R:387:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L387) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>              ~ObservationID, ~DatasourceID, ~Count, ~Weight,
               ^~~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:387:32:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L387) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>              ~ObservationID, ~DatasourceID, ~Count, ~Weight,
                               ^~~~~~~~~~~~
```
[R/prepare_analysis_dataset.R:436:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_analysis_dataset.R#L436) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    analysis$SpeciesGroupID <- speciesgroup.id
             ^~~~~~~~~~~~~~
```
[R/prepare_dataset.R:24:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  assert_that(noNA(verbose))
              ^~~~
```
[R/prepare_dataset.R:58:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset.R#L58) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>#   this.species <- subset(species, SpeciesGroupID == sample(species$SpeciesGroupID, 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset.R:58:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset.R#L58) *style:* **Commented code should be removed.**
```r
<U+200B>#   this.species <- subset(species, SpeciesGroupID == sample(species$SpeciesGroupID, 1))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset.R:80:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset.R#L80) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    Value = c(scheme.id, range(observation$Year), diff(range(observation$Year)) + 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:9:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L9) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  source.channel, result.channel, raw.connection, attribute.connection, scheme.id
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:18:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L18) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field.type <- odbc_get_multi_id(
  ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:28:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L28) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  data.field$TableName <- "tblWaarnemingPunt"
             ^~~~~~~~~
```
[R/prepare_dataset_observation.R:29:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  data.field$PrimaryKey <- "WRPT_ID"
             ^~~~~~~~~~
```
[R/prepare_dataset_observation.R:30:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L30) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  data.field$TypeID <- data.field.type$ID
             ^~~~~~
```
[R/prepare_dataset_observation.R:30:24:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L30) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field$TypeID <- data.field.type$ID
                       ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:53:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L53) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field.type <- odbc_get_multi_id(
  ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:65:26:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L65) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      unique(observation$DatasourceID)
                         ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:69:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L69) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    TypeID = data.field.type$ID
             ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:80:39:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L80) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  data.field <- data.field[data.field$DatasourceID != result.datasource, ]
                                      ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:84:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L84) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  main.location <- merge(main.location, data.field[, c("DatasourceID", "DatafieldID")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:85:46:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L85) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  main.location$Description <- main.location$ExternalCode
                                             ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:96:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L96) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  database.id <- merge(database.id, data.field[, c("DatasourceID", "DatafieldID")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:102:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L102) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  observation$DatafieldID <- NULL
              ^~~~~~~~~~~
```
[R/prepare_dataset_observation.R:108:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L108) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  location.group.id <- odbc_get_multi_id(
  ^~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:117:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L117) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  location.group.location <- data.frame(
  ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:118:23:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L118) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    LocationGroupID = location.group.id,
                      ^~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:121:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L121) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  location.group.location <- location.group.location[
  ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:121:30:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L121) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  location.group.location <- location.group.location[
                             ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:122:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L122) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    order(location.group.location$LocationGroupID, location.group.location$LocationID),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:122:11:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L122) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    order(location.group.location$LocationGroupID, location.group.location$LocationID),
          ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:122:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L122) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    order(location.group.location$LocationGroupID, location.group.location$LocationID),
                                  ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:122:52:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L122) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    order(location.group.location$LocationGroupID, location.group.location$LocationID),
                                                   ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:122:76:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L122) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    order(location.group.location$LocationGroupID, location.group.location$LocationID),
                                                                           ^~~~~~~~~~
```
[R/prepare_dataset_observation.R:125:12:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L125) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    data = location.group.location,
           ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:134:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L134) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field.type <- odbc_get_multi_id(
  ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:147:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L147) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    TypeID = data.field.type$ID
             ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:158:39:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L158) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  data.field <- data.field[data.field$DatasourceID != result.datasource, ]
                                      ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:161:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L161) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    observation[, c("LocationID", "ExternalCode", "SubExternalCode", "DatasourceID")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:163:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L163) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  observation$ExternalCode <- NULL
              ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:165:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L165) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  sub.location$DatasourceID <- NULL
               ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:166:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L166) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  sub.location$TypeID <- NULL
               ^~~~~~
```
[R/prepare_dataset_observation.R:167:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L167) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  colnames(sub.location) <- gsub("^LocationID$", "ParentLocationID", colnames(sub.location))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:168:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L168) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  sub.location$Description <- paste(sub.location$ExternalCode, sub.location$SubExternalCode)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:168:50:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L168) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  sub.location$Description <- paste(sub.location$ExternalCode, sub.location$SubExternalCode)
                                                 ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:168:77:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L168) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  sub.location$Description <- paste(sub.location$ExternalCode, sub.location$SubExternalCode)
                                                                            ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:169:16:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L169) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  sub.location$ExternalCode <- NULL
               ^~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:185:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L185) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  database.id$DatafieldID <- NULL
              ^~~~~~~~~~~
```
[R/prepare_dataset_observation.R:186:15:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L186) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  database.id$TypeID <- NULL
              ^~~~~~
```
[R/prepare_dataset_observation.R:198:19:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L198) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      observation$LocationID,
                  ^~~~~~~~~~
```
[R/prepare_dataset_observation.R:199:19:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L199) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      observation$SubLocationID,
                  ^~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:203:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L203) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    c("DatasourceID", "ObservationID", "Stratum", "LocationID", "SubLocationID", "Year", "Period", "Weight", "Stratum")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:206:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L206) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  location.group.location.sha <- write_delim_git(
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:207:9:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L207) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    x = location.group.location,
        ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:212:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L212) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    x = observation[, c("DatasourceID", "ObservationID", "LocationID", "SubLocationID", "Year", "Period", "Weight", "Stratum")],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation.R:220:38:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation.R#L220) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    Fingerprint = c(observation.sha, location.group.location.sha),
                                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:15:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L15) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  this.species, observation, result.channel, source.channel, raw.connection, scheme.id, first.year, last.year
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:22:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L22) *style:* **Place a space before left parenthesis, except in a function call.**
```r
<U+200B>  if(nrow(this.species) != 1){
    ^
```
[R/prepare_dataset_observation_species.R:34:31:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L34) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    species.id = this.species$ExternalCode,
                              ^~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:43:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L43) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  filename <- paste0(this.species$SpeciesGroupID, ".txt")
                                  ^~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:46:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L46) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    observation.species.sha <- NA
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:58:33:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L58) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>      order(observation.species$ObservationID),
                                ^~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:61:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L61) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    observation.species.sha <- write_delim_git(
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:93:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L93) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  model.set.id <- odbc_get_multi_id(
  ^~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:117:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L117) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  analysis.package <- merge(version@AnalysisVersionRPackage, r.package)[, c("AnalysisVersion", "RPackageID")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:128:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L128) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  colnames(analysis.version)[colnames(analysis.version) == "ID"] <- "AnalysisVersionID"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:129:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L129) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  colnames(analysis.version)[colnames(analysis.version) == "Description"] <- "AnalysisVersion"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:130:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L130) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  analysis.package <- merge(analysis.version, analysis.package)[, c("AnalysisVersionID", "RPackageID")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:141:34:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L141) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  version.id <- analysis.version$AnalysisVersionID
                                 ^~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:150:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L150) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>      Filename IN ('observation.txt', 'species.txt', 'speciesgroup.txt', 'locationgrouplocation.txt') AND
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:153:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L153) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  location.ds <- sqlQuery(channel = result.channel, query = sql, stringsAsFactors = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:153:18:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L153) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  location.ds <- sqlQuery(channel = result.channel, query = sql, stringsAsFactors = FALSE)
                 ^~~~~~~~
```
[R/prepare_dataset_observation_species.R:154:55:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L154) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  fingerprint <- sha1(sort(c(location.ds$Fingerprint, observation.species.sha)))
                                                      ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:157:18:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L157) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    ModelSetID = model.set.id,
                 ^~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:164:35:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L164) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    SpeciesGroupID = this.species$SpeciesGroupID,
                                  ^~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:173:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L173) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    merge.field = c("ModelSetID", "LocationGroupID", "SpeciesGroupID", "AnalysisVersionID", "Fingerprint"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:180:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L180) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  if (!is.na(observation.species.sha)) {
             ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_observation_species.R:184:21:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_observation_species.R#L184) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>      Fingerprint = observation.species.sha,
                    ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:19:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L19) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  species <- get_nbn_key_multi(species.list$Species, orders = c("la", "nl", "en"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:20:34:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L20) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  species$Description <- species$DutchName
                                 ^~~~~~~~~
```
[R/prepare_dataset_species.R:22:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L22) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field.type <- data.frame(Description = "SourceSpecies")
  ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:23:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L23) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field.type <- odbc_get_multi_id(
  ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:24:12:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L24) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    data = data.field.type,
           ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:33:14:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L33) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  data.field$TypeID <- data.field.type$ID
             ^~~~~~
```
[R/prepare_dataset_species.R:33:24:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L33) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  data.field$TypeID <- data.field.type$ID
                       ^~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:92:42:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  nbn.species$Description <- nbn.species$DutchName
                                         ^~~~~~~~~
```
[R/prepare_dataset_species.R:98:21:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>        nbn.species$ScientificName[is.na(nbn.species$Description)],
                    ^~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:102:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L102) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    nbn.species$Description[is.na(nbn.species$Description)] <- nbn.species$ScientificName[is.na(nbn.species$Description)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:102:76:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L102) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>    nbn.species$Description[is.na(nbn.species$Description)] <- nbn.species$ScientificName[is.na(nbn.species$Description)]
                                                                           ^~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:105:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L105) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    stop("At least one species with neither DutchName and ScienticName. NA is not acceptable as Speciesgroup Description")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:121:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L121) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  colnames(species.group) <- gsub("^ID", "SpeciesGroupID", colnames(species.group))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:123:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L123) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species <- merge(
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:127:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L127) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species$Description <- NULL
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:129:12:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L129) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    data = species.group.species,
           ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:139:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L139) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    species.group.species,
    ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:158:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L158) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>  colnames(species.group) <- gsub("^ID", "SpeciesGroupID", colnames(species.group))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:160:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L160) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species <- merge(
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:164:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L164) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species$Description <- NULL
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:165:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L165) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species <- merge(
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:166:5:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L166) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    species.group.species,
    ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:169:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L169) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species$ExternalCode <- NULL
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:169:25:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L169) *style:* **Variable and function names should be all lowercase.**
```r
<U+200B>  species.group.species$ExternalCode <- NULL
                        ^~~~~~~~~~~~
```
[R/prepare_dataset_species.R:171:12:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L171) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>    data = species.group.species,
           ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:180:3:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L180) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species <- species.group.species[
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:180:28:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L180) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
<U+200B>  species.group.species <- species.group.species[
                           ^~~~~~~~~~~~~~~~~~~~~
```
[R/prepare_dataset_species.R:181:1:](https://github.com/inbo/abvanalysis/blob/05f86393b4c1353deff7a9c84aaa04f6ce39b86b/R/prepare_dataset_species.R#L181) *style:* **lines should not be more than 80 characters.**
```r
<U+200B>    order(species.group.species$SpeciesGroupID, species.group.species$SpeciesID),