[R/helper_funs.R:332:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/helper_funs.R#L332) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( (do_gc >= 1) & (do_gc < 2)) {
      ^
```
[R/sperrorest_error.R:92:18:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_error.R#L92) *warning:* **no visible global function definition for ‘prediction’**
```r
      predobj <- prediction(pred, obs)
                 ^~~~~~~~~~
```
[R/sperrorest_error.R:93:16:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_error.R#L93) *warning:* **no visible global function definition for ‘performance’**
```r
      auroc <- performance(predobj, measure = "auc")@y.values[[1]]
               ^~~~~~~~~~~
```
[R/sperrorest_error.R:142:28:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_error.R#L142) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                mse = mean((obs - pred)^2), mad = mad(obs - pred),
                           ^
```
[R/sperrorest_error.R:142:40:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_error.R#L142) *style:* **Put spaces around all infix operators.**
```r
                mse = mean((obs - pred)^2), mad = mad(obs - pred),
                                      ~^~
```
[R/sperrorest_misc.R:40:38:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L40) *style:* **Variable or function name should be snake_case.**
```r
dataset_distance <- function(d1, d2, x.name = "x", y.name = "y", fun = mean,
                                     ^~~~~~
```
[R/sperrorest_misc.R:40:52:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L40) *style:* **Variable or function name should be snake_case.**
```r
dataset_distance <- function(d1, d2, x.name = "x", y.name = "y", fun = mean,
                                                   ^~~~~~
```
[R/sperrorest_misc.R:54:23:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L54) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    di[i] <- min(sqrt((d2[, x.name] - d1[i, x.name])^2 +
                      ^
```
[R/sperrorest_misc.R:54:53:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L54) *style:* **Put spaces around all infix operators.**
```r
    di[i] <- min(sqrt((d2[, x.name] - d1[i, x.name])^2 +
                                                   ~^~
```
[R/sperrorest_misc.R:55:55:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L55) *style:* **Put spaces around all infix operators.**
```r
                        (d2[, y.name] - d1[i, y.name])^2))
                                                     ~^~
```
[R/sperrorest_misc.R:103:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L103) *style:* **Variable or function name should be snake_case.**
```r
add.distance <- function(object, ...) UseMethod("add.distance")
^~~~~~~~~~~~
```
[R/sperrorest_misc.R:110:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L110) *style:* **Variable or function name should be snake_case.**
```r
add.distance.resampling <- function(object, data, coords = c("x", "y"), ...) {
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:112:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L112) *style:* **Variable or function name should be snake_case.**
```r
    test.dist <- dataset_distance(data[object[[j]]$test, coords],
    ^~~~~~~~~
```
[R/sperrorest_misc.R:124:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L124) *style:* **Variable or function name should be snake_case.**
```r
add.distance.represampling <- function(object, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:125:28:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L125) *warning:* **no visible binding for global variable ‘add.distance.resampling’**
```r
  object <- lapply(object, add.distance.resampling, ...)
                           ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:176:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L176) *warning:* **local variable ‘y’ assigned but may not be used**
```r
  y <- as.numeric.tilename(x)  # just testing
  ^
```
[R/sperrorest_misc.R:176:8:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L176) *warning:* **no visible global function definition for ‘as.numeric.tilename’**
```r
  y <- as.numeric.tilename(x)  # just testing
       ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:202:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L202) *warning:* **local variable ‘y’ assigned but may not be used**
```r
  y <- as.numeric.tilename(x)  # just testing
  ^
```
[R/sperrorest_misc.R:202:8:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L202) *warning:* **no visible global function definition for ‘as.numeric.tilename’**
```r
  y <- as.numeric.tilename(x)  # just testing
       ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:267:49:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L267) *style:* **Put spaces around all infix operators.**
```r
    small_tile <- small_tile | (n_tile * n_tiles/length(tile) < min_frac)
                                               ~^~
```
[R/sperrorest_misc.R:275:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L275) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((length(small_tile) > 0) & (length(ignore) > 0)) {
      ^
```
[R/sperrorest_misc.R:313:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L313) *warning:* **no visible global function definition for ‘as.numeric.tilename’**
```r
  wh <- as.numeric.tilename(as.tilename(nm))
        ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:313:29:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L313) *warning:* **no visible global function definition for ‘as.tilename’**
```r
  wh <- as.numeric.tilename(as.tilename(nm))
                            ^~~~~~~~~~~
```
[R/sperrorest_misc.R:327:38:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L327) *warning:* **no visible global function definition for ‘as.tilename’**
```r
          nbr <- c(nbr, as.character(as.tilename(wh + c(i, j))))
                                     ^~~~~~~~~~~
```
[R/sperrorest_misc.R:448:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L448) *warning:* **no visible global function definition for ‘as.resampling.factor’**
```r
  as.resampling.factor(factor(object))
  ^~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:472:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L472) *warning:* **no visible global function definition for ‘validate_resampling’**
```r
  stopifnot(validate_resampling(object))
            ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:577:27:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L577) *warning:* **no visible binding for global variable ‘validate_resampling’**
```r
  valid <- sapply(object, validate_resampling)
                          ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:584:28:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_misc.R#L584) *warning:* **no visible binding for global variable ‘as.resampling’**
```r
  object <- lapply(object, as.resampling)
                           ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:57:40:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L57) *style:* **Variable or function name should be snake_case.**
```r
                         seed1 = NULL, return.factor = FALSE) {
                                       ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:61:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L61) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/sperrorest_resampling.R:118:32:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L118) *style:* **Variable or function name should be snake_case.**
```r
                               return.factor = FALSE, repetition = 1,
                               ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:122:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L122) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  stopifnot((length(strat) == 1) | (length(strat) == nrow(data)))
            ^
```
[R/sperrorest_resampling.R:142:14:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L142) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      fac <- as.resampling(fac)
             ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:147:15:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L147) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    repres <- as.represampling(repres)
              ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:188:30:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L188) *style:* **Variable or function name should be snake_case.**
```r
                             return.factor = FALSE,
                             ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:195:12:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L195) *warning:* **no visible global function definition for ‘as.resampling’**
```r
    fac <- as.resampling(fac)
           ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:202:17:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L202) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    represmp <- as.represampling(represmp)
                ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:239:33:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L239) *style:* **Variable or function name should be snake_case.**
```r
                                return.factor = FALSE) {
                                ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:253:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L253) *style:* **Variable or function name should be snake_case.**
```r
    fac.resampler <- sample(rep(sample(nfold), length = nlevels(fac)),
    ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:258:20:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L258) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      resampler <- as.resampling(resampler)
                   ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:263:19:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L263) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:367:29:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L367) *style:* **Variable or function name should be snake_case.**
```r
                            user.rotation, offset = c("none", "random", "user"),
                            ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:368:29:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L368) *style:* **Variable or function name should be snake_case.**
```r
                            user.offset, reassign = TRUE, min_frac = 0.025,
                            ^~~~~~~~~~~
```
[R/sperrorest_resampling.R:370:29:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L370) *style:* **Variable or function name should be snake_case.**
```r
                            return.factor = FALSE, repetition = 1,
                            ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:392:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L392) *style:* **Variable or function name should be snake_case.**
```r
      user.rotation <- rep(user.rotation, length(repetition))
      ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:407:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L407) *style:* **Variable or function name should be snake_case.**
```r
    x.shift <- y.shift <- rep(0, length(repetition))
    ^~~~~~~
```
[R/sperrorest_resampling.R:407:16:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L407) *style:* **Variable or function name should be snake_case.**
```r
    x.shift <- y.shift <- rep(0, length(repetition))
               ^~~~~~~
```
[R/sperrorest_resampling.R:409:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L409) *style:* **Variable or function name should be snake_case.**
```r
    x.shift <- runif(0, 1, n = length(repetition))
    ^~~~~~~
```
[R/sperrorest_resampling.R:410:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L410) *style:* **Variable or function name should be snake_case.**
```r
    y.shift <- runif(0, 1, n = length(repetition))
    ^~~~~~~
```
[R/sperrorest_resampling.R:413:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L413) *style:* **Variable or function name should be snake_case.**
```r
      user.offset <- list(user.offset[1], user.offset[2])
      ^~~~~~~~~~~
```
[R/sperrorest_resampling.R:429:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L429) *style:* **Variable or function name should be snake_case.**
```r
    x.shift <- user.offset[[1]]
    ^~~~~~~
```
[R/sperrorest_resampling.R:430:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L430) *style:* **Variable or function name should be snake_case.**
```r
    y.shift <- user.offset[[2]]
    ^~~~~~~
```
[R/sperrorest_resampling.R:456:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L456) *style:* **Variable or function name should be snake_case.**
```r
      R <- phi[as.character(cnt)] * 180/pi
      ^
```
[R/sperrorest_resampling.R:456:40:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L456) *style:* **Put spaces around all infix operators.**
```r
      R <- phi[as.character(cnt)] * 180/pi
                                      ~^~
```
[R/sperrorest_resampling.R:457:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L457) *style:* **Variable or function name should be snake_case.**
```r
      R <- matrix(c(cos(R), -sin(R), sin(R), cos(R)), ncol = 2)
      ^
```
[R/sperrorest_resampling.R:465:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L465) *style:* **Variable or function name should be snake_case.**
```r
    x.range <- range(x)
    ^~~~~~~
```
[R/sperrorest_resampling.R:466:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L466) *style:* **Variable or function name should be snake_case.**
```r
    y.range <- range(y)
    ^~~~~~~
```
[R/sperrorest_resampling.R:469:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L469) *style:* **Variable or function name should be snake_case.**
```r
      x.delta <- diff(x.range)/nsplit[1]
      ^~~~~~~
```
[R/sperrorest_resampling.R:469:31:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L469) *style:* **Put spaces around all infix operators.**
```r
      x.delta <- diff(x.range)/nsplit[1]
                             ~^~
```
[R/sperrorest_resampling.R:470:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L470) *style:* **Variable or function name should be snake_case.**
```r
      y.delta <- diff(y.range)/nsplit[2]
      ^~~~~~~
```
[R/sperrorest_resampling.R:470:31:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L470) *style:* **Put spaces around all infix operators.**
```r
      y.delta <- diff(y.range)/nsplit[2]
                             ~^~
```
[R/sperrorest_resampling.R:471:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L471) *style:* **Variable or function name should be snake_case.**
```r
      my.nsplit <- nsplit
      ^~~~~~~~~
```
[R/sperrorest_resampling.R:474:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L474) *style:* **Variable or function name should be snake_case.**
```r
      x.delta <- dsplit[1]
      ^~~~~~~
```
[R/sperrorest_resampling.R:475:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L475) *style:* **Variable or function name should be snake_case.**
```r
      y.delta <- dsplit[2]
      ^~~~~~~
```
[R/sperrorest_resampling.R:482:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L482) *style:* **Variable or function name should be snake_case.**
```r
      x.range <- x.range - x.delta * (x.shift[as.character(cnt)])
      ^~~~~~~
```
[R/sperrorest_resampling.R:483:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L483) *style:* **Variable or function name should be snake_case.**
```r
      y.range <- y.range - y.delta * (y.shift[as.character(cnt)])
      ^~~~~~~
```
[R/sperrorest_resampling.R:485:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L485) *style:* **Variable or function name should be snake_case.**
```r
        my.nsplit <- my.nsplit + 1
        ^~~~~~~~~
```
[R/sperrorest_resampling.R:491:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L491) *style:* **Variable or function name should be snake_case.**
```r
      x.split <- seq(x.range[1], x.range[2], length = my.nsplit[1] + 1)
      ^~~~~~~
```
[R/sperrorest_resampling.R:492:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L492) *style:* **Variable or function name should be snake_case.**
```r
      y.split <- seq(y.range[1], y.range[2], length = my.nsplit[2] + 1)
      ^~~~~~~
```
[R/sperrorest_resampling.R:494:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L494) *style:* **Variable or function name should be snake_case.**
```r
      x.split <- seq(x.range[1], x.range[2] + x.delta, by = x.delta)
      ^~~~~~~
```
[R/sperrorest_resampling.R:495:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L495) *style:* **Variable or function name should be snake_case.**
```r
      y.split <- seq(y.range[1], y.range[2] + y.delta, by = y.delta)
      ^~~~~~~
```
[R/sperrorest_resampling.R:496:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L496) *style:* **Variable or function name should be snake_case.**
```r
      my.nsplit <- c(length(x.split) - 1, length(y.split) - 1)
      ^~~~~~~~~
```
[R/sperrorest_resampling.R:505:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L505) *style:* **Variable or function name should be snake_case.**
```r
        sel.x <- (x >= x.split[ix]) & (x <= x.split[ix + 1])
        ^~~~~
```
[R/sperrorest_resampling.R:507:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L507) *style:* **Variable or function name should be snake_case.**
```r
        sel.x <- (x > x.split[ix]) & (x <= x.split[ix + 1])
        ^~~~~
```
[R/sperrorest_resampling.R:511:11:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L511) *style:* **Variable or function name should be snake_case.**
```r
          sel.y <- (y >= y.split[iy]) & (y <= y.split[iy + 1])
          ^~~~~
```
[R/sperrorest_resampling.R:513:11:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L513) *style:* **Variable or function name should be snake_case.**
```r
          sel.y <- (y > y.split[iy]) & (y <= y.split[iy + 1])
          ^~~~~
```
[R/sperrorest_resampling.R:517:47:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L517) *warning:* **no visible global function definition for ‘as.tilename’**
```r
          tile[sel.x & sel.y] <- as.character(as.tilename(c(ix, iy)))
                                              ^~~~~~~~~~~
```
[R/sperrorest_resampling.R:524:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L524) *style:* **Variable or function name should be snake_case.**
```r
    s.tiles <- get_small_tiles(tile, min_n = min_n, min_frac = min_frac)
    ^~~~~~~
```
[R/sperrorest_resampling.R:524:16:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L524) *warning:* **no visible global function definition for ‘get_small_tiles’**
```r
    s.tiles <- get_small_tiles(tile, min_n = min_n, min_frac = min_frac)
               ^~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:531:16:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L531) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        while ((length(s.tiles) > 0) & (length(levels(tile)) > 1)) {
               ^
```
[R/sperrorest_resampling.R:539:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L539) *style:* **Variable or function name should be snake_case.**
```r
            n.tile <- tapply(tile, tile, length)
            ^~~~~~
```
[R/sperrorest_resampling.R:540:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L540) *style:* **Variable or function name should be snake_case.**
```r
            s.nbr <- nbrs[which.min(n.tile[nbrs])]
            ^~~~~
```
[R/sperrorest_resampling.R:545:11:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L545) *style:* **Variable or function name should be snake_case.**
```r
          s.tiles <- get_small_tiles(tile, min_n = min_n, min_frac = min_frac,
          ^~~~~~~
```
[R/sperrorest_resampling.R:556:15:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L556) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:562:19:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L562) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:630:30:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L630) *style:* **Variable or function name should be snake_case.**
```r
                             return.factor = FALSE, balancing.steps = 1,
                             ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:630:53:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L630) *style:* **Variable or function name should be snake_case.**
```r
                             return.factor = FALSE, balancing.steps = 1,
                                                    ^~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:631:30:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L631) *style:* **Variable or function name should be snake_case.**
```r
                             order.clusters = TRUE, ...) {
                             ^~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:637:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L637) *style:* **Variable or function name should be snake_case.**
```r
  balancing.steps <- max(1, balancing.steps)
  ^~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:649:18:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L649) *style:* **Put spaces around all infix operators.**
```r
      p <- x$size/sum(x$size)
                ~^~
```
[R/sperrorest_resampling.R:650:23:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L650) *style:* **Put spaces around all infix operators.**
```r
      return(1 - sum(p^2))
                     ~^~
```
[R/sperrorest_resampling.R:663:15:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L663) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:668:19:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L668) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:748:28:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L748) *style:* **Variable or function name should be snake_case.**
```r
                           return.train = TRUE, prob = NULL, replace = FALSE,
                           ^~~~~~~~~~~~
```
[R/sperrorest_resampling.R:752:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L752) *warning:* **local variable ‘pospuf’ assigned but may not be used**
```r
    pospuf <- 0
    ^~~~~~
```
[R/sperrorest_resampling.R:778:20:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L778) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        di <- sqrt((data[, coords[1]] - data[i, coords[1]])^2 +
                   ^
```
[R/sperrorest_resampling.R:778:60:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L778) *style:* **Put spaces around all infix operators.**
```r
        di <- sqrt((data[, coords[1]] - data[i, coords[1]])^2 +
                                                          ~^~
```
[R/sperrorest_resampling.R:779:62:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L779) *style:* **Put spaces around all infix operators.**
```r
                     (data[, coords[2]] - data[i, coords[2]])^2)
                                                            ~^~
```
[R/sperrorest_resampling.R:781:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L781) *style:* **Variable or function name should be snake_case.**
```r
      train.sel <- numeric()
      ^~~~~~~~~
```
[R/sperrorest_resampling.R:784:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L784) *style:* **Variable or function name should be snake_case.**
```r
        test.sel <- which(di <= radius)
        ^~~~~~~~
```
[R/sperrorest_resampling.R:786:11:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L786) *style:* **Variable or function name should be snake_case.**
```r
          train.sel <- which(di > (radius + posbuf))
          ^~~~~~~~~
```
[R/sperrorest_resampling.R:790:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L790) *style:* **Variable or function name should be snake_case.**
```r
        test.sel <- i
        ^~~~~~~~
```
[R/sperrorest_resampling.R:793:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L793) *style:* **Variable or function name should be snake_case.**
```r
            train.sel <- c(1:nrow(data))[-i]
            ^~~~~~~~~
```
[R/sperrorest_resampling.R:795:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L795) *style:* **Variable or function name should be snake_case.**
```r
            train.sel <- which(di > posbuf)
            ^~~~~~~~~
```
[R/sperrorest_resampling.R:807:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L807) *warning:* **no visible global function definition for ‘as.represampling’**
```r
  repres <- as.represampling(resample)
            ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:872:10:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L872) *warning:* **no visible global function definition for ‘as.represampling’**
```r
  return(as.represampling(resample))
         ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:965:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L965) *style:* **Variable or function name should be snake_case.**
```r
      the.fac <- factor(fac[[as.character(cnt)]])
      ^~~~~~~
```
[R/sperrorest_resampling.R:967:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L967) *style:* **Variable or function name should be snake_case.**
```r
      the.fac <- fac
      ^~~~~~~
```
[R/sperrorest_resampling.R:970:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L970) *style:* **Variable or function name should be snake_case.**
```r
    the.nboot <- nboot
    ^~~~~~~~~
```
[R/sperrorest_resampling.R:998:15:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L998) *warning:* **no visible global function definition for ‘as.represampling’**
```r
  resample <- as.represampling(resample)
              ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:1154:15:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L1154) *warning:* **no visible global function definition for ‘as.represampling’**
```r
  resample <- as.represampling(resample)
              ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:1198:32:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L1198) *style:* **Variable or function name should be snake_case.**
```r
                               wiggle.sd = 0, ...) {
                               ^~~~~~~~~
```
[R/sperrorest_resampling.R:1229:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L1229) *warning:* **local variable ‘wytest’ assigned but may not be used**
```r
      wytest <- rnorm(length(seltest), sd = wiggle.sd)
      ^~~~~~
```
[R/sperrorest_resampling.R:1243:8:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L1243) *warning:* **no visible global function definition for ‘as.represampling’**
```r
  x <- as.represampling(list(`1` = x))
       ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:1244:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest_resampling.R#L1244) *warning:* **no visible global function definition for ‘plot.represampling’**
```r
  plot.represampling(x)
  ^~~~~~~~~~~~~~~~~~
```
[R/sperrorest-package.R:20:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest-package.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
#' 28 June - 2 July 2010.  Lecture Notes in Computer Science, 6178 LNAI: 350-359.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:229:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L229) *style:* **Lines should not be more than 80 characters.**
```r
#'     nonspat.training = unlist(summary(par.nsp.res$error_rep, level = 1)$train.auroc),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:230:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L230) *style:* **Lines should not be more than 80 characters.**
```r
#'     nonspat.test     = unlist(summary(par.nsp.res$error_rep, level = 1)$test.auroc),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:231:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L231) *style:* **Lines should not be more than 80 characters.**
```r
#'     spatial.training = unlist(summary(par.sp.res$error_rep, level = 1)$train.auroc),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:232:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L232) *style:* **Lines should not be more than 80 characters.**
```r
#'     spatial.test     = unlist(summary(par.sp.res$error_rep, level = 1)$test.auroc))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:385:29:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L385) *warning:* **no visible global function definition for ‘availableCores’**
```r
      par_args$par_units <- availableCores()
                            ^~~~~~~~~~~~~~
```
[R/sperrorest.R:419:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L419) *warning:* **no visible global function definition for ‘pboptions’, Did you mean 'ps.options'?**
```r
      pboptions(type = "none")
      ^~~~~~~~~
```
[R/sperrorest.R:421:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L421) *warning:* **no visible global function definition for ‘pboptions’, Did you mean 'ps.options'?**
```r
      pboptions(style = 1, type = "timer")
      ^~~~~~~~~
```
[R/sperrorest.R:433:62:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L433) *style:* **Variable or function name should be snake_case.**
```r
        my_res <- try(pblapply(cl = par_cl, resamp, function(X)
                                                             ^
```
[R/sperrorest.R:455:70:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L455) *style:* **Variable or function name should be snake_case.**
```r
          my_res <- try(mclapply(mc.cores = par_cl, resamp, function(X)
                                                                     ^
```
[R/sperrorest.R:480:72:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L480) *style:* **Variable or function name should be snake_case.**
```r
          my_res <- try(pbmclapply(mc.cores = par_cl, resamp, function(X)
                                                                       ^
```
[R/sperrorest.R:511:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L511) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
        plan(par_args$par.option, workers = par_args$par_units)
        ^~~~
```
[R/sperrorest.R:513:18:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L513) *style:* **Variable or function name should be snake_case.**
```r
        par_args$par.option <- "multiprocess"
                 ^~~~~~~~~~
```
[R/sperrorest.R:514:9:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L514) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
        plan(par_args$par.option, workers = par_args$par_units)
        ^~~~
```
[R/sperrorest.R:519:52:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L519) *style:* **Variable or function name should be snake_case.**
```r
      my_res <- try(future_lapply(resamp, function(X)
                                                   ^
```
[R/sperrorest.R:544:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L544) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    {
    ^
```
[R/sperrorest.R:560:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L560) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
    registerDoFuture()
    ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:562:14:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L562) *style:* **Variable or function name should be snake_case.**
```r
    par_args$par.option <- "cluster"
             ^~~~~~~~~~
```
[R/sperrorest.R:569:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L569) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(availableCores(), outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:569:25:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L569) *warning:* **no visible global function definition for ‘availableCores’**
```r
      cl <- makeCluster(availableCores(), outfile = out_progress, ...)
                        ^~~~~~~~~~~~~~
```
[R/sperrorest.R:570:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L570) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:570:12:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L570) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:573:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L573) *style:* **Lines should not be more than 80 characters.**
```r
                             " '%s' option."), availableCores(), par_args$par.option))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:578:13:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L578) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(par_args$par_units, outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:579:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L579) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:579:12:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L579) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:586:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L586) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
      registerDoFuture()
      ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:587:7:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L587) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(sequential)
      ^~~~
```
[R/sperrorest.R:587:12:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L587) *warning:* **no visible binding for global variable ‘sequential’**
```r
      plan(sequential)
           ^~~~~~~~~~
```
[R/sperrorest.R:598:47:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L598) *warning:* **local variable ‘pooled_pred_train’ assigned but may not be used**
```r
                          pooled_obs_train <- pooled_pred_train <- c()
                                              ^~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:599:46:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L599) *warning:* **local variable ‘pooled_pred_test’ assigned but may not be used**
```r
                          pooled_obs_test <- pooled_pred_test <- c()
                                             ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:603:25:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L603) *style:* **Variable or function name should be snake_case.**
```r
                        currentImpo <- resamp[[i]]
                        ^~~~~~~~~~~
```
[R/sperrorest.R:603:25:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L603) *warning:* **local variable ‘currentImpo’ assigned but may not be used**
```r
                        currentImpo <- resamp[[i]]
                        ^~~~~~~~~~~
```
[R/sperrorest.R:608:42:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L608) *warning:* **no visible global function definition for ‘map’, Did you mean 'mad'?**
```r
                          current_res <- map(resamp[[i]], unclass)
                                         ^~~
```
[R/sperrorest.R:644:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L644) *style:* **Lines should not be more than 80 characters.**
```r
                        # http://stackoverflow.com/questions/32557131/adding-a-vector-to-each-sublist-within-a-list-r
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:645:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L645) *style:* **Lines should not be more than 80 characters.**
```r
                        # http://stackoverflow.com/questions/43963683/r-flexible-passing-of-sublists-to-following-function
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:653:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L653) *style:* **Lines should not be more than 80 characters.**
```r
                          ### get mean from all impo results of all folds (multiple dataframes stored in a list)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:654:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L654) *style:* **Lines should not be more than 80 characters.**
```r
                          ### http://stackoverflow.com/questions/18371187/element-wise-mean-for-a-list-of-dataframes-with-na
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:655:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L655) *style:* **Lines should not be more than 80 characters.**
```r
                          ### NICHT MITTELN, ENFACH ALLE IMPO (= FÜR JEDEN FOLD) ZURÜCKGEBEN
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:656:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L656) *style:* **Lines should not be more than 80 characters.**
```r
                          # currentImpo <- Reduce("+", impo_only) / length(impo_only)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:662:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L662) *style:* **Lines should not be more than 80 characters.**
```r
                                                pooled_only[names(pooled_only) == x])), simplify = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:670:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L670) *style:* **Lines should not be more than 80 characters.**
```r
                              pooled_only$pooled_obs_train <- factor(lev[pooled_only$pooled_obs_train], levels = lev)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:672:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L672) *style:* **Lines should not be more than 80 characters.**
```r
                            pooled_only$pooled_obs_test <- factor(lev[pooled_only$pooled_obs_test], levels = lev)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:675:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L675) *style:* **Lines should not be more than 80 characters.**
```r
                                pooled_only$pooled_pred_train <- factor(lev[pooled_only$pooled_pred_train], levels = lev)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:677:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L677) *style:* **Lines should not be more than 80 characters.**
```r
                              pooled_only$pooled_pred_test <- factor(lev[pooled_only$pooled_pred_test], levels = lev)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:682:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L682) *style:* **Lines should not be more than 80 characters.**
```r
                            pooled_error_train <- err_fun(pooled_only$pooled_obs_train,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:683:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L683) *style:* **Lines should not be more than 80 characters.**
```r
                                                        pooled_only$pooled_pred_train)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:688:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L688) *style:* **Lines should not be more than 80 characters.**
```r
                          #                     pooled_only$pooled_pred_test)) %>%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:692:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L692) *style:* **Lines should not be more than 80 characters.**
```r
                          currentpooled_error <- t(unlist(list(train = pooled_error_train, test = err_fun(pooled_only$pooled_obs_test,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:693:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L693) *style:* **Lines should not be more than 80 characters.**
```r
                                                                                pooled_only$pooled_pred_test))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:699:29:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L699) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                        if ((do_gc >= 1) & (do_gc < 2)) {
                            ^
```
[R/sperrorest.R:733:17:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L733) *warning:* **no visible global function definition for ‘transfer_parallel_output’**
```r
  my_res_mod <- transfer_parallel_output(my_res, res, impo, pooled_error)
                ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:766:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L766) *style:* **Variable or function name should be snake_case.**
```r
  RES <- list(error_rep = pooled_error, error_fold = my_res_mod$res,
  ^~~
```
[R/sperrorest.R:773:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L773) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/sperrorest.R:774:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/sperrorest.R#L774) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:52:37:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L52) *style:* **Variable or function name should be snake_case.**
```r
                                    na.rm = TRUE, ...) {
                                    ^~~~~
```
[R/summary_functions.R:56:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L56) *style:* **Lines should not be more than 80 characters.**
```r
      err <- lapply(err, function(x) t(sapply(x, function(y) data.frame(train = y$train,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:57:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
        test = y$test, distance = ifelse(any(names(y) == "distance"), y$distance,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:71:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
      err <- data.frame(mean = apply(err, 2, function(y) mean(unlist(y), na.rm = na.rm)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:72:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L72) *style:* **Lines should not be more than 80 characters.**
```r
        sd = apply(err, 2, function(y) sd(unlist(y), na.rm = na.rm)), median = apply(err,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:78:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L78) *style:* **Lines should not be more than 80 characters.**
```r
      err <- lapply(err, function(x) t(sapply(x, function(y) data.frame(train = y$train,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:79:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L79) *style:* **Lines should not be more than 80 characters.**
```r
        test = y$test, distance = ifelse(any(names(y) == "distance"), y$distance,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:84:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
      err <- lapply(err, function(x) apply(x, 2, function(y) weighted.mean(unlist(y),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:91:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L91) *style:* **Lines should not be more than 80 characters.**
```r
      err <- data.frame(mean = sapply(err, mean), sd = sapply(err, sd), median = sapply(err,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:103:59:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L103) *style:* **Variable or function name should be snake_case.**
```r
summary.sperrorestreperror <- function(object, level = 0, na.rm = TRUE, ...) {
                                                          ^~~~~
```
[R/summary_functions.R:130:61:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L130) *style:* **Variable or function name should be snake_case.**
```r
summary.sperrorestimportance <- function(object, level = 0, na.rm = TRUE,
                                                            ^~~~~
```
[R/summary_functions.R:133:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L133) *style:* **Lines should not be more than 80 characters.**
```r
  arrdimnames <- list(names(object), names(object[[1]]), rownames(object[[1]][[1]]),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:146:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
      arr <- data.frame(mean = apply(arr, c(2, 3), mean, na.rm = na.rm), sd = apply(arr,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:149:12:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L149) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    } else { # when does this happen?
           ^
```
[R/summary_functions.R:151:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L151) *style:* **Lines should not be more than 80 characters.**
```r
      arr <- data.frame(mean = apply(arr, 2, mean, na.rm = na.rm), sd = apply(arr, # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:152:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L152) *style:* **Lines should not be more than 80 characters.**
```r
        2, sd, na.rm = na.rm), median = apply(arr, 2, median, na.rm = na.rm), # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:272:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L272) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:273:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L273) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:274:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/R/summary_functions.R#L274) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-helper-funs.R:15:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- partition.cv(ecuador, nfold = 4)[[1]]
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:16:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- currentSample
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:18:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, currentSample = currentSample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:19:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
                              formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:20:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
                              model.args = list(family = "binomial"), do.try = FALSE, model.fun = glm,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:21:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L21) *style:* **Lines should not be more than 80 characters.**
```r
                              error.fold = TRUE, error.rep = TRUE, imp.permutations = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:22:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L22) *style:* **Lines should not be more than 80 characters.**
```r
                              imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:23:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
                              err.train = TRUE, importance = TRUE, currentRes = currentRes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:24:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
                              pred.args = list(type = "response"), response = "slides", par.cl = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:25:1:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:33:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- partition.cv(maipo, nfold = 4)[[1]]
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:34:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- currentSample
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:36:3:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L36) *style:* **Variable or function name should be snake_case.**
```r
  lda.predfun <- function(object, newdata, fac = NULL) {
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:42:5:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    majority.filter <- function(x, fac) {
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:44:11:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-helper-funs.R:44:22:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-helper-funs.R:44:39:](https://github.com/pat-s/sperrorest/blob/a233fc83b0d8d316abfff45d132d17f6f9ddc40e/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```


Will do.
I was getting a permissions denied error from my firetvbox when it was crashing. However this may have been down the line and i missed the divide by 0.

Is there an easy way for us to turn on any debug build or verbose output to capture more information for you guys?


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, but failed to create builds due to the following error:

```
.poggit.yml not found
```

As a result, no any builds could be created from this commit. More details might be available for repo admins at [the webhook delivery response log](https://github.com/jasonwynn10/MyPlot/settings/hooks) — see the webhook starting with `https://poggit.pmmp.io/webhooks.gh.repo` and look for the delivery with ID `272fab80-44be-11e7-8152-732daff9d083`.

Shall you need any assistance, you may contact us on [on Gitter](https://gitter.im/poggit/Lobby), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


See comment to previous commit.
Also see examples in the rest of the code - this is an advice that you should take quite generally! I do that too: see how something is done in other parts of the code. If you do something differently, it's probably incorrect that way!


Cannot do this with non-containers!


![](https://github.trello.services/images/mini-trello-icon.png) [Create SELECT clause](https://trello.com/c/rWsNwcLB/55-create-select-clause)


Fixed idention, was not clear that thor was IF that condition.


Nope, no std::string in a VTK class please. See other classes how they store strings (hint: char* and vtkGet/SetStringMacro)


Use / instead of \\ (Plus is supposed to be platform independent)


THIS IS A GOOD CATCH :D
Let me fix this one and see how it goes


Lower case for local variables!


See how inconsistent the naming of your variables is?


to prevent confusion i would clean this up to:

if (txfilter_hirestex(_pTexture->crc, _ricecrc, palette, &ghqTexInfo) &&
 +		(ghqTexInfo.width != 0 && ghqTexInfo.height != 0)) {


char*


@martinacalluori: Your syntax is close, just needs a little clean up. Write it out as HTML, then use PHP to substitute in PHP values where you need it:

```php
echo '<img src="';
echo $row['band'];
echo $row['filepath'];
echo '"';
echo ' alt="' . $row['alttag'] . '"';
echo ' class="' . $row['class'] . '"';
echo ' />';
```

Or all in one line:

```php
echo '<img src="' . $row['band'] . $row['filepath'] . '" alt="' . $row['alttag'] . '" class="' . $row['class'] . '" />';
```

This translates to:

```html
<img src="Pvrisimages/pvris/pvris-1.jpg" alt="Pvris" class="short">
<img src="Pvrisimages/pvris/pvris-2.jpg" alt="Pvris" class="short">
etc...
```


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, but failed to create builds due to the following error:

```
.poggit.yml not found
```

As a result, no any builds could be created from this commit. More details might be available for repo admins at [the webhook delivery response log](https://github.com/jasonwynn10/MyPlot/settings/hooks) — see the webhook starting with `https://poggit.pmmp.io/webhooks.gh.repo` and look for the delivery with ID `bccb3b00-44be-11e7-8610-3caf375557a1`.

Shall you need any assistance, you may contact us on [on Gitter](https://gitter.im/poggit/Lobby), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


I love the look of it.
![3e6f4e8159a348ac93ff8f9c6aa29a33](https://cloud.githubusercontent.com/assets/17688683/26563250/2f94ab0c-449d-11e7-8ef4-d0d81339a8e8.png)
Now who's doing the rest of the story? :)


This isn't how `getopts` is intended to be used.  You should use https://doc.rust-lang.org/getopts/getopts/struct.Matches.html#method.opt_strs to extract the vector of strings, collated.


Might be fun to add a few less obvious events, like when your net worth reaches over 1 million credits having a log entry that says something like "I'm worth a million credits! This is more than I would have ever gotten working in that factory on New Boston."


### Lipsum really?

So we___really___ were not able to find better filler text?


Ooops. Fixed.

From: Joost VandeVondele [mailto:notifications@github.com]
Sent: Monday, May 29, 2017 5:47 PM
To: SapphireBrand/Stockfish <Stockfish@noreply.github.com>
Cc: SapphireBrand <sheppardco@aol.com>; Author <author@noreply.github.com>
Subject: Re: [SapphireBrand/Stockfish] Tune simplified allNode LMR newDepth=2 policy. (43166a5)

Hash=128 nodestime=600 must be used for both new_options and base_options, I assume.

—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub <https://github.com/SapphireBrand/Stockfish/commit/43166a576c707433318aa91909eb32e813d20971#commitcomment-22321093> , or mute the thread <https://github.com/notifications/unsubscribe-auth/AOcZXZY792__EkLhxdvGF1fVDULO_pLzks5r-zzPgaJpZM4Npp5z> .


Yeah, it's a little complicated. Whenever a program crashes in Android, you will gi't a stack trace in the adb log output. You have to copy and paste this stack trace and feed to the Android SDK tool called "ndk-stack". This will give you a back trace with line numbers.

Look up ndk-stack on Google.


Dette er MFEL1050 Innføring i idrettsfysiologi, ikkje MFEL1010 Medisin for ikke-medisinere. :)


![](https://github.trello.services/images/mini-trello-icon.png) [Should take one tap on "Edit" to access edit it date-time](https://trello.com/c/fQpk3xcI/69-should-take-one-tap-on-edit-to-access-edit-it-date-time)


easy squeezy :)


### Lipsum really?

So we really were not able to find better filler text?


Do we not have a better error type to expose than `String`?


I've just done coalition missions, drak missions, hai missions, kestrel, quarg missions and am working on transport missions. At that point I might PR it: I'm not sure I'm brave enough to delve into the Free Worlds. Maaaybe Wanderers though.


Also made a change because of typo...
@shaysegal I hope that everything is ok 😄


It looks like you've mixed windows line endings with unix line endings.


If you want, I can handle the FW stuff. Wanderer stuff would be quicker though.