[R/helper_funs.R:278:1:](https://github.com/pat-s/sperrorest/blob/975ec4734b07773dbcf090da06b658a74a2075df/R/helper_funs.R#L278) *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:279:1:](https://github.com/pat-s/sperrorest/blob/975ec4734b07773dbcf090da06b658a74a2075df/R/helper_funs.R#L279) *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:287:1:](https://github.com/pat-s/sperrorest/blob/975ec4734b07773dbcf090da06b658a74a2075df/R/helper_funs.R#L287) *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:332:7:](https://github.com/pat-s/sperrorest/blob/975ec4734b07773dbcf090da06b658a74a2075df/R/helper_funs.R#L332) *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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/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/975ec4734b07773dbcf090da06b658a74a2075df/R/sperrorest.R#L773) *style:* **Trailing blank lines are superfluous.**
```r

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

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


You're repeating this line over and over, move it to a function.


@JonMLangel This code works for creating the subscription but it breaks the registration of a store we will need to figure out why. I am taking break if you have questions about the code feel free to comment on the lines


s


@martinacalluori: missing a semicolon at the end of this line.


Typo in function name (PostfixEs). However the function name is really bad, it suggests that you save the postfixes themselves (also what is keyword doing there??). It simply calls SaveIntermediateResultToFile on each intermediate result, so it's misleading. Why not call it SaveAllIntermediateResultsToFile ?
Its argument is also not named well. Postfix for what? Keyword again...


Dear Poggit user,

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

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

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

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

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


jajaja lo siento profe , yo según la subi sin password jajajaja


This seems very overcomplicated. Not sure what the map contains exactly, so cannot be sure if you're iterating over the whole thing or just certain ones, but probably you can do it with a simple for loop. While loops can be unstable (may cause hang if not written carefully), so be careful with those.


@martinacalluori again here you want to use `mysqli_close`.


`where_to_go`? For me standard way to do it is to keep a list of possible movements and generate and index:

```python
self.movements = ((-1, 0), (0, 1), (1, 0), (0, -1))
step = self.movements[rd.randint(0, 3)]
clamp = lambda x, size: max(0, min(x, size-1))
return (clamp(present_position[0] + step[0], self.segment_count),
    clamp(present_position[1] + step[1], self.segment_count))


So this is where it becomes obvious that the name of this function is confusing. It saves the images right? Also if it does, and you use that function to write intermediate results of a certain step, and you call them manually for each one, feeding it string literals (error-prone: what happens if you rename one?), then this is also overcomplicated. Why not just save all of them (as the function name also suggests)?


Fix #11.


You shouldn't create objects like this in the constructor. Set them NULL here, and instantiate below. Also please note that you use smart pointer for one, and not smart pointer for the other. Not using smart pointer means that you need to delete the object in the destructor explicitly!


Looks like a TODO to me


Dear Poggit user,

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

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

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

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

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


Looks much better! Still need to fix the funation name though