[R/helper_funs.R:276:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/helper_funs.R#L276) *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/helper_funs.R:277:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/helper_funs.R#L277) *style:* **Lines should not be more than 80 characters.**
```r
  # http://stackoverflow.com/questions/43963683/r-flexible-passing-of-sublists-to-following-function
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helper_funs.R:285:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/helper_funs.R#L285) *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/helper_funs.R:330:7:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/helper_funs.R#L330) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((do_gc >= 1) & (do_gc < 2)) {
      ^
```
[R/resample.R:34:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/resample.R#L34) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
{
^
```
[R/resample.R:37:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/resample.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
    warning(paste0("'param$response' argument in 'resample_strat_uniform' ", # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/resample.R:38:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/resample.R#L38) *style:* **Lines should not be more than 80 characters.**
```r
                   "renamed to 'strat';\n modify your code accordingly")) # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/resample.R:54:13:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/resample.R#L54) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  stopifnot((length(param$strat) == 1) | (length(param$strat) == nrow(data)))
            ^
```
[R/resample.R:167:13:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/resample.R#L167) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  stopifnot( (length(param$fac) == 1) || (length(param$fac) == nrow(data)))
            ^
```
[R/sperrorest_error.R:75:25:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L75) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        ntruepos <- sum((obs == levels(obs)[2]) & (pred == levels(obs)[2]))
                        ^
```
[R/sperrorest_error.R:76:25:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L76) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        ntrueneg <- sum((obs == levels(obs)[1]) & (pred == levels(obs)[1]))
                        ^
```
[R/sperrorest_error.R:77:36:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L77) *style:* **Put spaces around all infix operators.**
```r
        err$sensitivity <- ntruepos/npos
                                  ~^~
```
[R/sperrorest_error.R:78:36:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L78) *style:* **Put spaces around all infix operators.**
```r
        err$specificity <- ntrueneg/nneg
                                  ~^~
```
[R/sperrorest_error.R:84:22:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L84) *style:* **Put spaces around all infix operators.**
```r
        pexp <- (npos/n) * (npospred/n) + (nneg/n) * (nnegpred/n)
                    ~^~
```
[R/sperrorest_error.R:84:37:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L84) *style:* **Put spaces around all infix operators.**
```r
        pexp <- (npos/n) * (npospred/n) + (nneg/n) * (nnegpred/n)
                                   ~^~
```
[R/sperrorest_error.R:84:48:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L84) *style:* **Put spaces around all infix operators.**
```r
        pexp <- (npos/n) * (npospred/n) + (nneg/n) * (nnegpred/n)
                                              ~^~
```
[R/sperrorest_error.R:84:63:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L84) *style:* **Put spaces around all infix operators.**
```r
        pexp <- (npos/n) * (npospred/n) + (nneg/n) * (nnegpred/n)
                                                             ~^~
```
[R/sperrorest_error.R:87:50:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L87) *style:* **Put spaces around all infix operators.**
```r
        } else err$kappa <- (err$accuracy - pexp)/(1 - pexp)
                                                ~^~
```
[R/sperrorest_error.R:87:51:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L87) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        } else err$kappa <- (err$accuracy - pexp)/(1 - pexp)
                                                  ^
```
[R/sperrorest_error.R:91:18:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L91) *warning:* **no visible global function definition for ‘prediction’**
```r
      predobj <- prediction(pred, obs)
                 ^~~~~~~~~~
```
[R/sperrorest_error.R:92:16:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L92) *warning:* **no visible global function definition for ‘performance’**
```r
      auroc <- performance(predobj, measure = "auc")@y.values[[1]]
               ^~~~~~~~~~~
```
[R/sperrorest_error.R:96:7:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L96) *warning:* **local variable ‘neg’ assigned but may not be used**
```r
      neg <- levels(obs)[1]
      ^~~
```
[R/sperrorest_error.R:98:25:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L98) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      err$error <- mean((obs == pos) != (pred >= 0.5))
                        ^
```
[R/sperrorest_error.R:139:3:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest_error.R#L139) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/sperrorest_error.R:142:28:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest.R#L682) *style:* **Lines should not be more than 80 characters.**
```r
                            pooled_err_train <- err_fun(pooled_only$pooled_obs_train,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:683:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest.R#L692) *style:* **Lines should not be more than 80 characters.**
```r
                          currentpooled_err <- t(unlist(list(train = pooled_err_train, test = err_fun(pooled_only$pooled_obs_test,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:693:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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/14334be0d575bcd18f18fa6a8cce3ff07159011a/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_err)
                ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:766:3:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest.R#L766) *style:* **Variable or function name should be snake_case.**
```r
  RES <- list(error_rep = pooled_err, error_fold = my_res_mod$res,
  ^~~
```
[R/sperrorest.R:773:1:](https://github.com/pat-s/sperrorest/blob/14334be0d575bcd18f18fa6a8cce3ff07159011a/R/sperrorest.R#L773) *style:* **Trailing blank lines are superfluous.**
```r

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

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


I've only run across one HDDVD so far in my stack, and it behaved exactly as described in the bug report. I manually implemented this patch, and it has fixed the issue.


Much appreciated, @lnishan


@claudiafreitas uma 'chance' de automação destas transformações seria tornar o pai de `proporcionar` o pai do `fim`. Mas nesta sentença em particular, achei mais razoável o `proporcionar` apontar para `aprofundar`. Se isto estiver errado, pode ficar complicado automatizar estas correções de MWE.


:/
Thanks anyway.  It's been a good trip.  Maybe someday, ...


It does not exist in master branch. And trying to revert it fails as expected. There is some similar code that was always there.

And BTW perl pprof is strongly deprecated and everyone should be using golang version from github.com/google/pprof


Foi de 300 pra 150 linhas....


python-zope-interface in RHEL7 base does not have python2-* RPM provide.


Deleted comments.
First commit.


BEST CODE Eyosiyas tnxs


Why do you need local `value = 1`?


`return self.network[coord_1, coord_2] == 1`

And I'd change parameters of these functions to a single `coord` tuple, e.g.:
```
def add_segment(self, coord):
    self.network[coord] = 1
```


First commit


this doesn't work yet. `j.toJson` surrounds it with quotes, we need it here without.


It's misleading that you've got `Network` class and its instance, let's say `network` object has method `return_network` method, which, in fact, **doesn't** return a `Network` instance, but some internal representation.


Funcionó, ahora toda el Git sabe mi super password :-S


![](https://github.trello.services/images/mini-trello-icon.png) [versioning and cleanup](https://trello.com/c/ISiFmI2L/14-versioning-and-cleanup)


[alasan tagging interface.txt](https://github.com/trieuchul27/OOP2/files/1036809/alasan.tagging.interface.txt)


@Adam- Rather than obsoleting secure, I would suggest flipping it to be "insecure", and have the comment "With insecure turned on, someone who is considered identified by hostmask (which is insecure) will be considered equivalent for this channel to someone identified by password or certificate."

Additionally, IRC robots in use today might still depend on NS STATUS - maybe retain it in a default-disabled state?

However, I will overall concur with the notion that the whole shitshow with access (except certfp), secure and status are all fully obsolete.


I updated the README file directly on the page. Decided to merge, couldn't commit otherwise.


Thanks for sticking around for so long and being so patient with us, gordie!


Notice that this new quest type is fully functionnal :blush:

It displays a bubble on "amenity=toilet" without tag "fee" :
![2017-05-29 toilets fee](https://cloud.githubusercontent.com/assets/6597721/26562947/6b8bf4e8-44cb-11e7-9495-67f621b570ac.png)

And of course the tag "fee" is correctly added in OSM :
![2017-05-29 toilets fee in osm](https://cloud.githubusercontent.com/assets/6597721/26562999/0b925086-44cc-11e7-8210-3840dfe28baa.png)


@lpinca Thanks for pointing that out! I looked through this logic more carefully; functionally, it shouldn't make a difference for SC because the `upgradeReq` object always gets copied over to the higher-level SCSocket object here (for both `ws` and `uws` transports):

https://github.com/SocketCluster/socketcluster-server/blob/11bb17b361e45a1d23b2d3ed9a499860e6f45c73/scserver.js#L386 -> https://github.com/SocketCluster/socketcluster-server/blob/11bb17b361e45a1d23b2d3ed9a499860e6f45c73/scsocket.js#L40

So regardless of the socket transport (uws or ws), the SCSocket always holds a reference to the `upgradeReq` object. Since SCSocket holds a reference to the `upgradeReq` in any case, does it make a difference whether or not it's set to null on the underlying `uws`/`ws` socket? (I assumed not)

In any case, I agree that it's not very elegant and should be cleaned up at some point.

I looked at the release notes for `ws` 3.0.0; it sounds like there are efficiency improvements to be gained by not holding onto the `upgradeReq` - Maybe this is something I should investigate for SC.


It's too big to keep it in `if`, I think. You're calling `self.network`'s method here, so... it'd be better in my opinion to have another method in `Network`, e.g. `validate_node(self, coord)` and call it here as

```python
if self.network.validate_node(history[-1]):
    # ...
```

`self.segment_count` is also a size of the network, so you don't have to pass more arguments.


@janicez what you are describing is basically how it has always been already. The default configuration has secure on and it has been that way for a long time, and few people change it. Additionally, secure has never been able to gain access into channels, only status. You could receive auto +o (if you match /ns access, and /ns set secure off, and also /cs set secure off), but you still were not identified to services and so could not issue any commands which required you to be identified (which is almost everything chanserv-related).


Do you have to both set a field to `0` and remove an entry from `history`?


Minor/optional: there are usual the classes of imports: standard library, third-party/external and internal. The internal ones usually don't have a blank line between them.