[R/helper_funs.R:338:7:](https://github.com/pat-s/sperrorest/blob/cd4e94ce33b5376385d3e7ece25b92597aad8134/R/helper_funs.R#L338) *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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/R/sperrorest.R#L773) *style:* **Trailing blank lines are superfluous.**
```r

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

^
```
[R/summary_functions.R:52:37:](https://github.com/pat-s/sperrorest/blob/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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/cd4e94ce33b5376385d3e7ece25b92597aad8134/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 ])
                                      ^
```


Why `sample_rate` here and `frame_rate` in `AudioSegment`?


I don't know.


Thanks for the bug report, I will update it after current work get done. @hardikbhimsni13


> Is this working for you?

I don't use it day-to-day, but it works fine under testing.

> It does nothing for me and prints this error in console for any key I press:

This PR doesn't touch anything in that execution path, so hopefully this isn't the cause. Does the issue still appear after rebuilding and reloading the extension? Does reverting this commit, then rebuilding and reloading, fix the issue?


Warning here about exporting variables from case. Stylistic _maybe_, but isn't it better to use:

    NewNodeCounter = case (NodeCounter + NodesToRemove >= NodeCount) of
                                    true -> 1;
                                    %%% etc
                                end,


aaaaaaaa


I think you are right, Stefan. Feel free to supply us with a patch :-)


How can i help u?

On May 30, 2017 2:18 PM, "augmentedme" <notifications@github.com> wrote:

> Can you email me??
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/mo7amd/MATLAB-MOOC/commit/f309e3d700d2cc1406d49c26e44b0455047b2f2a#commitcomment-22327448>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AL-mEmGVFXmMBOgx4brfq1581gjRC0vcks5r_Aj4gaJpZM4MxtAx>
> .
>


@ryancarlson @michaelharro
I wanna clear one thing that you want IPA from me for publishing the app on iTunes, Right?
If yes then how can I provide you sign in IPA with developer certificates as it need production certificates, which we don't have.
So can you please correct me if I'm assuming wrong something.


Fasen va soft!


Added the curve25519 plugin in a268689adca731fe9c500ddf43ba41b5a502a593


A netinstall.yaml a calamares elementáris szükséglete. Ha itt nincs, valami pótlék kellene neki a hálózaton elérhetőn, ha kell egyáltalán a calamares.


You should generalize the type (use the class constraint instead of the exact data type).  Push this to other definitions in `Utils`, as appropriate.


This is great but perhaps a line in the README would be nice pointing to this feature?


This changes the writer, so that on MacOS it writes only with .3mf and not .curaproject.3mf


*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/968)*


Courtesy of @Giuliano69


I don't see this used anywhere. It is set, but not referenced.

How do you plan to use it? Should we keep it?


PHP Warning:  mysql_free_result() expects parameter 1 to be resource, boolean given in /var/www/vhosts/bengoshi-blog.com/httpdocs/nucleus/libs/sql/mysql.php on line 199
fatal errorではなくwarningだった


@augmentedme  how can i help u ?


Köszönöm.
(Most nézem át a levélkéket 10 nap szünet után, bocs, ha hirtelen válaszra ragadtatom magam.)


Indeed, and my linter complained about the variable shadowing.


## Thank you 😀  @dippersauce


I need to change that or you do it?


Comment for the whole file: it's also not good idea to redefine many util functions and constants here. You can move your revdb files to `pydev` package (because it's debugger too) and import all the necessary variables and functions without copy-paste.


Thank you for taking to time to respond. Unfortunate to hear that the adding of tail segment would be that much of an effort.

I purchased some of the expansion packs and have about 20 total. My kids always hook them all up and run it with all attached it is able to pull them all. Both only the first 16 are active.

Adam Dayton

> On May 30, 2017, at 4:49 AM, Franck Fleurey <notifications@github.com> wrote:
>
> Hello! The zigzag and the limitation of the number of tail blocks (16?) are implemented in the firmware of the head so they are not possible to change easily. The only way would probably be to replace the microcontroller in the head (which is a chip-on-board) with a atmega or something like that and re-program it from scratch. The code I have made can be used to manage the tail but that is about it. However, regarding your issues:
>
> I believe that the limit of 16 blocks is probably reasonable because with more blocks I think it will be too much weight/friction for the head to pull the whole tail consistently. An upgrade to the traction system would probably be necessary.
> In my experience the zigzag is not so much of the problem since there is a gyro in the head that is used to keep strait and measure the angles of the turns. Of course it is not perfect but I do not think that removing the zigzag would improve much (the gyro drift is the weak link).
> —
> You are receiving this because you commented.
> Reply to this email directly, view it on GitHub, or mute the thread.
>


Yes we can resign the ipa file


Hi,
So now CTRL+T and CTRL+U will act as the same, ie stage/unstage depending on focus.
For me it's a little bit confusing since in the Commit Menu we have CTRL+T as a shortcut for staging and CTRL+U for unstaging.
What do you think?


Without `{}` here, it is equivalent to:

```javascript
if (killed) {
    if (msg.value == 0) {
        throw;
    }
}
if (msg.value % 2 > 0) {
    throw;
}
```
Is this your intention?


Please, replace this hard-coded interpreter path, too.


That is a harsh way. How about you accept odd values?


Created multidev environment [hcihc#pr-featuref](https://dashboard.pantheon.io/sites/6f9d572c-925f-4838-a289-36d0de32aba4#pr-featuref).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://pr-featuref-hcihc.pantheonsite.io/)


So just take in Ether, without splitting?


`inferName` is evil and should not exist.  We need a better way to get such names - it should be based on semantics.

Could you enumerate (in an issue) where all the calls to `inferName` occur?


Hei. tuossa async awaitissa on se idea että, kun normaalisti kirjottaisi koodia vastaavasti:
```axios.get(`/users/${userId}`)
          .then(({ data, }) => dispatch({ type: UPSERT_USER, payload: data,}))```
          .catch(() => {/*do something*/})
niin käyttämällä awaittia async blokista voit kirjoittaa
try{
  const {data} = await axios.get(`/users/${userId}`);
}catch(e){/*do something*/}

Joissakin tilanteissa tämä on siistimpi ratkaisu, varsinkin silloin jos ei tarvetta try catchille


팀원 홈페이지 URL 공지부탁드립니다.


`rails g helper users` を実行してヘルパーでgravaterの設定を行う


`uint splitValue` is taken from the `data` field in the transaction. That's cheap.
`msg.value` is costly and cannot be faked.

If you intention is to put Ether first, then split, that is 2 transactions.

Plus, this function can be called by anyone, so you can be sure that it will be called by saboteurs. Try to think about what saboteurs can do with this function.


No need. The Ether is already in the contract when the function executes.


In a signal generator there aren't frames containing samples, but I suppose it wouldn't be bad to settle on a constant naming for this idea (I'd prefer "sample rate" for all uses I think)


@Ludee What kind of changes are you doing here in the release branch. Data and code is diverging like that. It is important that there are no changes on this branch anymore. Please work on the dev or on feature branches!
I cannot do the release merge like that. Can you please revert these changes and put them somewhere else? Or you let me revert it.
[see also here](https://github.com/openego/data_processing/issues/35#issuecomment-304613294)


When the contract is self destructed, the `killed` field is no longer accessible. So you have to choose:

1. use `killed`, and use it in `valid()`
* remove `killed` and use `self-destruct` instead.

A destructed contract remains an Ether sink, so the first option is better.


https://secure.gravatar.com/avatar/#{gravatar_id}?s=#{size}&d=mm
末尾に `&d=mm` をつけると、デフォルトイメージをmystery-manに変更している
https://ja.gravatar.com/site/implement/images#default-image


No need.


ah, yeah that'd make it faster, would you like to send a PR?


Don't forget to make tests too. Very important.


checkboxes


I don't think so, and if not, probably best not to have this branch in at all.


Right.  So while the core information is still contained in that list, that's not quite enough.  One needs to qualify the 2nd part of each pair as either generic or self-referential (i.e. to choose between 'the' and 'this').

Probably best to create a new data-type for the purpose, with constructors `The` and `This` -- which will then be easy to render to a `Sentence`.


You define this environment variable and you don't use it.


@FroMage we'll probably just roll back this commit after I finish my work on #7077


The default branch for each repository is now specified in the setup.sh[.template]


Functie `RedirectNaarPagina` heeft nu een extra parameter, waarmee je vertraging kan aangeven in secondes bij het redirecten.


FixZoneVolumeCalcs (JasonGlazer) - x86_64-MacOS-10.9-clang: OK (2485 of 2508 tests passed, 23 test warnings)

Messages:

 * 39 tests had: EIO diffs.
 * 16 tests had: ESO big diffs.
 * 23 tests had: Table big diffs.
 * 23 tests had: ESO small diffs.
 * 7 tests had: ERR diffs.
 * 10 tests had: MTR small diffs.
 * 6 tests had: Table small diffs.
 * 8 tests had: MTR big diffs.
 * 2 tests had: SSZ big diffs.
 * 2 tests had: ZSZ big diffs.
 * 5 tests had: ZSZ small diffs.
 * 1 test had: SSZ small diffs.
 * 2 tests had: AUD diffs.
 * 2 tests had: SHD diffs.

Failures:

regression Test Summary
 * Passed: 573
 * Failed: 23

![Build Badge](http://img.shields.io/badge/build%20status-warnings-yellow.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-99.08%25-yellow.png)


So what PHPDoc style do we use? I thought everywhere in the code there was a gap between the annotations and the method description


This issue https://github.com/AdguardTeam/AdguardFilters/issues/3937 should take care of it.
We can rename or add description like that, or we can even have some 'base filter'.


Not pythonic... Please change to print("#"*46)


Indeed. Thank you.


TeamCity libpalaso :: palaso-win32-master Continuous [Build 4.0.288.3e3c3fe71958a2d5b889558017bf6d660b9b7292](http://build.palaso.org/viewLog.html?buildId=92268&buildTypeId=Libpalaso_PalasoWin32masterContinuous) outcome was **SUCCESS**
Summary: Tests passed: 3813, ignored: 127 Build time: 00:07:23


Thanks for the pointer, @seanl-adg.


Why'd you remove the composer merge plugin?


TeamCity libpalaso :: palaso-linux64-master Continuous [Build 4.0.260.3e3c3fe71958a2d5b889558017bf6d660b9b7292](http://build.palaso.org/viewLog.html?buildId=92269&buildTypeId=Libpalaso_PalasoLinux64masterContinuous) outcome was **FAILURE**
Summary: Exit code 1 Build time: 00:08:04


pesho update


I think we should write a benchmark runner per language, that loops and runs a given function `n` times. How do these compilers handle multiple input files?

We want a uniform way of testing native and js code. If we loop in the JS benchmarks, we need to loop in the source language benchmarks as well for consistency, so we need to write that loop anyway. Writing the loop in the given language would let us just compile that loop and get the same testing environment, no JS shim code needed.


Thanks, I missed that.

Do we periodically (say at releases) go through and declare everything older than version X unloadable?


IMO this change is meaningless as `makeDist` replaces "/usr/local/BackupPC/lib" back with "__INSTALLDIR__/lib" anyway, but `__INSTALLDIR__` seems more readable in source code as it clearly indicates replaceable string.
https://github.com/backuppc/backuppc/blob/efc862dc8e3daf2a802c3439babb3b14f17706e1/makeDist#L374


модификатор пишется только вместе с основным классом, и каждый модификатор отдельно, в данном случае так например:
`editor__settings editor__settings--crop editor__settings--active`
получается три класса: первый для общей стилизации, второй для установки нужной иконки, третий для добавления состояния


NOT NEW SSMS! New Post Processing Stack -__-


The trailing comma after last array item is according the Symfony Coding Standards, right?
http://symfony.com/doc/current/contributing/code/standards.html#structure


this test still calls bitbucket.org instead of proxy


That method looks to be relying on a very mangled set of logic and behaviour, as it's using a global variable instead of a parameter to set the module to look for.  On the face of it, it would be much better handled by a get_user_for_module() method in the appropriate places in the WebPA code.


тут тоже, модификатор не используется без класса блока или элемента. и тут лучше сделать `btn btn--pink`


Here is the patch: https://github.com/sinonjs/sinon/pull/1440


fixed e29ec87


@houz What is the purpose of these tools? I'm not familiar with these, apologies.


well, to be quite honest I dont know where it is needed (almost everywhere...). Since I am more familiar with the mc, we are trying first free everything related to mc from global and leave vtol logic as it is. once we succeeded to free the mc, we can then do the same for vtol (Fixedwing). the reason for doing that is that mc_pos_control is more or less free from any global stuff, but fixedwing not since I don't have the insight for fixedwing yet. It is just a step in between what we actually trying to do


aaaaa


phpstorm add it ! :fearful:  :sweat_smile:

Normally I don't add that.


тут тоже. модификатор используется чтобы добавить чтото к основным стилям, у всех трех ссылок будет куча общих стилей по классу `social-link` и у каждого свои дополнительные (только установка нужного фона для иконки) в классе-модификаторе `social-link--watever`


твиттер уже был )