[R/helper_funs.R:338:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/helper_funs.R#L338) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((do_gc >= 1) & (do_gc < 2)) {
      ^
```
[R/sperrorest_error.R:3:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_error.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate a variety of accuracy measures from observations and predictions
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_error.R:95:18:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_error.R#L95) *warning:* **no visible global function definition for ‘prediction’**
```r
      predobj <- prediction(pred, obs)
                 ^~~~~~~~~~
```
[R/sperrorest_error.R:96:16:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_error.R#L96) *warning:* **no visible global function definition for ‘performance’**
```r
      auroc <- performance(predobj, measure = "auc")@y.values[[1]]
               ^~~~~~~~~~~
```
[R/sperrorest_error.R:146:28:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_error.R#L146) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                mse = mean((obs - pred) ^ 2), mad = mad(obs - pred),
                           ^
```
[R/sperrorest_misc.R:470:13:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_misc.R#L470) *warning:* **no visible global function definition for ‘validate.resampling’**
```r
  stopifnot(validate.resampling(object))
            ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:575:27:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_misc.R#L575) *warning:* **no visible binding for global variable ‘validate.resampling’**
```r
  valid <- sapply(object, validate.resampling)
                          ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:68:20:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L68) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      resampler <- as.resampling(resampler)
                   ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:73:19:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L73) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:150:15:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L150) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    repres <- as.represampling(repres)
              ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:198:12:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L198) *warning:* **no visible global function definition for ‘as.resampling’**
```r
    fac <- as.resampling(fac)
           ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:205:17:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L205) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    represmp <- as.represampling(represmp)
                ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:459:40:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L459) *style:* **Put spaces around all infix operators.**
```r
      r <- phi[as.character(cnt)] * 180/pi
                                      ~^~
```
[R/sperrorest_resampling.R:472:31:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L472) *style:* **Put spaces around all infix operators.**
```r
      x_delta <- diff(x_range)/nsplit[1]
                             ~^~
```
[R/sperrorest_resampling.R:473:31:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L473) *style:* **Put spaces around all infix operators.**
```r
      y_delta <- diff(y_range)/nsplit[2]
                             ~^~
```
[R/sperrorest_resampling.R:494:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L494) *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:495:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L495) *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:497:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L497) *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:498:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L498) *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:520:47:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L520) *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:527:16:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L527) *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:559:15:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L559) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:652:18:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L652) *style:* **Put spaces around all infix operators.**
```r
      p <- x$size/sum(x$size)
                ~^~
```
[R/sperrorest_resampling.R:653:23:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L653) *style:* **Put spaces around all infix operators.**
```r
      return(1 - sum(p^2))
                     ~^~
```
[R/sperrorest_resampling.R:666:15:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L666) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:671:19:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L671) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:789:45:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L789) *warning:* **no visible binding for global variable ‘posbuf’**
```r
          train_sel <- which(di > (radius + posbuf))
                                            ^~~~~~
```
[R/sperrorest_resampling.R:798:37:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest_resampling.R#L798) *warning:* **no visible binding for global variable ‘posbuf’**
```r
            train_sel <- which(di > posbuf)
                                    ^~~~~~
```
[R/sperrorest.R:551:9:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L551) *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:554:9:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L554) *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:599:5:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L599) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
    registerDoFuture()
    ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:608:13:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L608) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(availableCores(), outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:608:25:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L608) *warning:* **no visible global function definition for ‘availableCores’**
```r
      cl <- makeCluster(availableCores(), outfile = out_progress, ...)
                        ^~~~~~~~~~~~~~
```
[R/sperrorest.R:609:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L609) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:609:12:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L609) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:618:13:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L618) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(par_args$par_units, outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:619:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L619) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:619:12:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L619) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:626:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L626) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
      registerDoFuture()
      ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:627:7:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L627) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(sequential)
      ^~~~
```
[R/sperrorest.R:627:12:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L627) *warning:* **no visible binding for global variable ‘sequential’**
```r
      plan(sequential)
           ^~~~~~~~~~
```
[R/sperrorest.R:638:47:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L638) *warning:* **local variable ‘pooled_pred_train’ assigned but may not be used**
```r
                          pooled_obs_train <- pooled_pred_train <- c()
                                              ^~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:639:46:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L639) *warning:* **local variable ‘pooled_pred_test’ assigned but may not be used**
```r
                          pooled_obs_test <- pooled_pred_test <- c()
                                             ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:643:25:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L643) *warning:* **local variable ‘current_impo’ assigned but may not be used**
```r
                        current_impo <- resamp[[i]]
                        ^~~~~~~~~~~~
```
[R/sperrorest.R:648:42:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L648) *warning:* **no visible global function definition for ‘map’, Did you mean 'mad'?**
```r
                          current_res <- map(resamp[[i]], unclass)
                                         ^~~
```
[R/sperrorest.R:772:17:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/sperrorest.R#L772) *warning:* **no visible global function definition for ‘transfer_parallel_output’**
```r
  my_res_mod <- transfer_parallel_output(my_res, res, impo, pooled_error)
                ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:52:37:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/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/5359992b09f200dc0506cfcdde7c66a79ab42353/R/summary_functions.R#L152) *style:* **Lines should not be more than 80 characters.**
```r
        2, sd, na.rm = na.rm), median = apply(arr, 2, median, na.rm = na.rm), # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:272:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/R/summary_functions.R#L272) *style:* **Trailing blank lines are superfluous.**
```r

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

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

^
```
[tests/testthat/test-helper-funs.R:15:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- partition.cv(ecuador, nfold = 4)[[1]]
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:16:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- currentSample
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:18:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, currentSample = currentSample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:19:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
                              formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:20:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
                              model.args = list(family = "binomial"), do.try = FALSE, model.fun = glm,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:21:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L21) *style:* **Lines should not be more than 80 characters.**
```r
                              error.fold = TRUE, error.rep = TRUE, imp.permutations = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:22:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L22) *style:* **Lines should not be more than 80 characters.**
```r
                              imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:23:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
                              err.train = TRUE, importance = TRUE, currentRes = currentRes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:24:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
                              pred.args = list(type = "response"), response = "slides", par.cl = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:25:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:33:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- partition.cv(maipo, nfold = 4)[[1]]
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:34:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- currentSample
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:36:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L36) *style:* **Variable or function name should be snake_case.**
```r
  lda.predfun <- function(object, newdata, fac = NULL) {
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:42:5:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    majority.filter <- function(x, fac) {
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:44:11:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-helper-funs.R:44:22:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-helper-funs.R:44:39:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-helper-funs.R:44:50:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-helper-funs.R:50:63:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L50) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority.filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-helper-funs.R:58:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L58) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = maipo, currentSample = currentSample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:60:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L60) *style:* **Lines should not be more than 80 characters.**
```r
                              do.try = FALSE, model.fun = lda, pred.fun = lda.predfun,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:61:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L61) *style:* **Lines should not be more than 80 characters.**
```r
                              error.fold = TRUE, error.rep = TRUE, pred.args = list(fac = "field"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:62:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
                              err.train = TRUE, importance = FALSE, currentRes = currentSample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:64:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L64) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:73:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L73) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- partition.cv(ecuador, nfold = 4)[[1]]
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:74:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- currentSample
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:76:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  mypred.rpart <- function(object, newdata) predict(object, newdata)[, 2]
  ^~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:80:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L80) *style:* **Variable or function name should be snake_case.**
```r
  mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
  ^~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:80:71:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L80) *style:* **Commas should always have a space after.**
```r
  mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
                                                                      ^
```
[tests/testthat/test-helper-funs.R:82:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L82) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, currentSample = currentSample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:83:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L83) *style:* **Lines should not be more than 80 characters.**
```r
                              formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:85:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L85) *style:* **Lines should not be more than 80 characters.**
```r
                              error.fold = TRUE, error.rep = TRUE, imp.permutations = 2, pred.fun = mypred.rpart,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:87:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L87) *style:* **Lines should not be more than 80 characters.**
```r
                              imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:88:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L88) *style:* **Lines should not be more than 80 characters.**
```r
                              err.train = TRUE, importance = TRUE, currentRes = currentRes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:90:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L90) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:103:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L103) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- partition.cv(maipo, nfold = 4)
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:105:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- currentSample
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:107:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L107) *style:* **Variable or function name should be snake_case.**
```r
  lda.predfun <- function(object, newdata, fac = NULL) {
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:113:5:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L113) *style:* **Variable or function name should be snake_case.**
```r
    majority.filter <- function(x, fac) {
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:115:11:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L115) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-helper-funs.R:115:22:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L115) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-helper-funs.R:115:39:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L115) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-helper-funs.R:115:50:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L115) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-helper-funs.R:121:63:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L121) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority.filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-helper-funs.R:128:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L128) *style:* **Lines should not be more than 80 characters.**
```r
  runreps_res <- lapply(currentSample, function(X) runreps(currentSample = X, data = maipo,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:128:49:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L128) *style:* **Variable or function name should be snake_case.**
```r
  runreps_res <- lapply(currentSample, function(X) runreps(currentSample = X, data = maipo,
                                                ^
```
[tests/testthat/test-helper-funs.R:129:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L129) *style:* **Lines should not be more than 80 characters.**
```r
                                                           formula = fo, par.mode = "apply", pred.fun = lda.predfun,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:130:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L130) *style:* **Lines should not be more than 80 characters.**
```r
                                                           do.try = FALSE, model.fun = lda,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:131:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L131) *style:* **Lines should not be more than 80 characters.**
```r
                                                           error.fold = TRUE, error.rep = TRUE, do.gc = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:132:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L132) *style:* **Lines should not be more than 80 characters.**
```r
                                                           err.train = TRUE, importance = FALSE, currentRes = currentRes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:133:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L133) *style:* **Lines should not be more than 80 characters.**
```r
                                                           pred.args = list(fac = "field"), response = "croptype", par.cl = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:134:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L134) *style:* **Lines should not be more than 80 characters.**
```r
                                                           coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:135:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L135) *style:* **Lines should not be more than 80 characters.**
```r
                                                           pooled.obs.test = c(), err.fun = err.default))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:141:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L141) *style:* **Variable or function name should be snake_case.**
```r
  imp.one.rep <- readRDS("inst/test-objects/imp.one.rep.rda")
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:142:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L142) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- readRDS("inst/test-objects/resamp.rda")
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:143:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L143) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- readRDS("inst/test-objects/currentRes.rda")
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:145:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L145) *style:* **Lines should not be more than 80 characters.**
```r
  runreps_res <- lapply(currentSample, function(X) runreps(currentSample = X, data = ecuador,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:145:49:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L145) *style:* **Variable or function name should be snake_case.**
```r
  runreps_res <- lapply(currentSample, function(X) runreps(currentSample = X, data = ecuador,
                                                ^
```
[tests/testthat/test-helper-funs.R:146:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
                                                           formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:147:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L147) *style:* **Lines should not be more than 80 characters.**
```r
                                                           model.args = list(family = "binomial"), do.try = FALSE, model.fun = glm,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:148:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L148) *style:* **Lines should not be more than 80 characters.**
```r
                                                           error.fold = TRUE, error.rep = TRUE, imp.permutations = 2, do.gc = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:149:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L149) *style:* **Lines should not be more than 80 characters.**
```r
                                                           imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:150:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L150) *style:* **Lines should not be more than 80 characters.**
```r
                                                           err.train = TRUE, importance = TRUE, currentRes = currentRes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:151:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L151) *style:* **Lines should not be more than 80 characters.**
```r
                                                           pred.args = list(type = "response"), response = "slides", par.cl = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:152:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L152) *style:* **Lines should not be more than 80 characters.**
```r
                                                           coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:153:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L153) *style:* **Lines should not be more than 80 characters.**
```r
                                                           pooled.obs.test = c(), err.fun = err.default))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:159:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L159) *style:* **Variable or function name should be snake_case.**
```r
  imp.one.rep <- readRDS("inst/test-objects/imp.one.rep.rda")
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:160:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L160) *style:* **Variable or function name should be snake_case.**
```r
  currentSample <- readRDS("inst/test-objects/resamp.rda")
  ^~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:161:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L161) *style:* **Variable or function name should be snake_case.**
```r
  currentRes <- readRDS("inst/test-objects/currentRes.rda")
  ^~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:163:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L163) *style:* **Lines should not be more than 80 characters.**
```r
  runreps_res <- lapply(currentSample, function(X) runreps(currentSample = X, data = ecuador,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:163:49:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L163) *style:* **Variable or function name should be snake_case.**
```r
  runreps_res <- lapply(currentSample, function(X) runreps(currentSample = X, data = ecuador,
                                                ^
```
[tests/testthat/test-helper-funs.R:164:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L164) *style:* **Lines should not be more than 80 characters.**
```r
                                                           formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:165:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L165) *style:* **Lines should not be more than 80 characters.**
```r
                                                           do.try = FALSE, model.fun = rpart,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:166:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L166) *style:* **Lines should not be more than 80 characters.**
```r
                                                           error.fold = TRUE, error.rep = TRUE, imp.permutations = 2, pred.fun = mypred.rpart,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:167:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L167) *style:* **Lines should not be more than 80 characters.**
```r
                                                           model.args = list(control = ctrl),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:168:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L168) *style:* **Lines should not be more than 80 characters.**
```r
                                                           imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:169:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L169) *style:* **Lines should not be more than 80 characters.**
```r
                                                           err.train = TRUE, importance = TRUE, currentRes = currentRes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:170:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L170) *style:* **Lines should not be more than 80 characters.**
```r
                                                           response = "slides", par.cl = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:171:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L171) *style:* **Lines should not be more than 80 characters.**
```r
                                                           coords = c("x", "y"), progress = 1, pooled.obs.train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:172:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L172) *style:* **Lines should not be more than 80 characters.**
```r
                                                           pooled.obs.test = c(), err.fun = err.default))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:175:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-helper-funs.R#L175) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-resample.R:10:52:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-resample.R#L10) *style:* **Only use double-quotes.**
```r
                              param = list(strat = 'slides', nstrat = 100))
                                                   ^~~~~~~~
```
[tests/testthat/test-resample.R:12:32:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-resample.R#L12) *style:* **Only use double-quotes.**
```r
  expect_equal(sum(d$slides == 'TRUE'), 100) # == 100
                               ^~~~~~
```
[tests/testthat/test-resample.R:20:55:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-resample.R#L20) *style:* **Only use double-quotes.**
```r
  d <- resample_uniform(ecuador, param = list(strat = 'slides', n = 400))
                                                      ^~~~~~~~
```
[tests/testthat/test-resample.R:28:55:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-resample.R#L28) *style:* **Only use double-quotes.**
```r
  d <- resample_uniform(ecuador, param = list(strat = 'slides', n = 200))
                                                      ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:17:48:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L17) *style:* **Only use double-quotes.**
```r
  parti <- partition_cv_strat(ecuador, strat = 'slides', nfold = 5,
                                               ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:28:44:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L28) *style:* **Only use double-quotes.**
```r
  parti <- partition_factor(ecuador, fac = 'zclass')
                                           ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:37:47:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L37) *style:* **Only use double-quotes.**
```r
  parti <- partition_factor_cv(ecuador, fac = 'zclass', nfold = 5)
                                              ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:45:50:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L45) *style:* **Commas should always have a space after.**
```r
  parti <- partition_tiles(ecuador, nsplit = c(4,2), reassign = FALSE)
                                                 ^
```
[tests/testthat/test-sperrorest-resampling.R:98:63:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L98) *style:* **Commas should always have a space after.**
```r
  parti <- represampling_tile_bootstrap(ecuador, nsplit = c(4,2),
                                                              ^
```
[tests/testthat/test-sperrorest-resampling.R:107:65:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L107) *style:* **Commas should always have a space after.**
```r
  parti <- represampling_kmeans_bootstrap(ecuador, nsplit = c(4,2),
                                                                ^
```
[tests/testthat/test-sperrorest-resampling.R:133:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L133) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-sperrorest-resampling.R:134:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-resampling.R#L134) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-sperrorest-summary.R:213:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L213) *style:* **Variable or function name should be snake_case.**
```r
  smry.out <- summary(out)
  ^~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:231:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L231) *style:* **Variable or function name should be snake_case.**
```r
  smry.out <- summary(out)
  ^~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:241:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L241) *style:* **Variable or function name should be snake_case.**
```r
  lda.predfun <- function(object, newdata, fac = NULL) {
  ^~~~~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:247:5:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L247) *style:* **Variable or function name should be snake_case.**
```r
    majority.filter <- function(x, fac) {
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:249:11:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-sperrorest-summary.R:249:22:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-sperrorest-summary.R:249:39:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-sperrorest-summary.R:249:50:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-sperrorest-summary.R:271:57:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L271) *style:* **Commas should always have a space after.**
```r
  out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                        ^
```
[tests/testthat/test-sperrorest-summary.R:279:3:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest-summary.R#L279) *style:* **Variable or function name should be snake_case.**
```r
  smry.out <- summary(out)
  ^~~~~~~~
```
[tests/testthat/test-sperrorest.R:46:67:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L46) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:60:67:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L60) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:74:67:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L74) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:95:13:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L95) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:101:13:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L101) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:102:73:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L102) *style:* **Commas should always have a space after.**
```r
                                                              newdata)[,2]
                                                                        ^
```
[tests/testthat/test-sperrorest.R:103:13:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L103) *style:* **Variable or function name should be snake_case.**
```r
            par.nsp.res <- sperrorest(data = ecuador, formula = fo,
            ^~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:135:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L135) *style:* **Lines should not be more than 80 characters.**
```r
                                 par_args = list(par_mode = "foreach", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:141:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L141) *style:* **Lines should not be more than 80 characters.**
```r
test_that("sperrorest() variable importance with error_rep = F and error_fold = T", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:226:21:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                    ^
```
[tests/testthat/test-sperrorest.R:226:32:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                               ^
```
[tests/testthat/test-sperrorest.R:226:49:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                                                ^
```
[tests/testthat/test-sperrorest.R:226:60:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                                                           ^
```
[tests/testthat/test-sperrorest.R:232:73:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L232) *style:* **Commas should always have a space after.**
```r
              if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                                        ^
```
[tests/testthat/test-sperrorest.R:247:67:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L247) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:259:1:](https://github.com/pat-s/sperrorest/blob/5359992b09f200dc0506cfcdde7c66a79ab42353/tests/testthat/test-sperrorest.R#L259) *style:* **Lines should not be more than 80 characters.**
```r
            expect_equal(names(out$error_rep)[[1]], "train.error") # check for train.error existence
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


I could produce a warning in case the `BRICKS_DEBUG_HTTP` is turned off. Better to swap this line with the previous one and precalculate the new size..


The following doc(s) have been deployed to the [2518bashp](https://2518bashp-static-docs.pantheonsite.io/docs) Multidev environment:
- [docs/upstream-updates](https://2518bashp-static-docs.pantheonsite.io/docs/upstream-updates)


bin alle durchgegangen lads nachehr hoch


I would like to do most things in powershell but it seems to have weird behavior when you want call a program using an environment variable in the path


yes typing a "l" in an input field changes the view. Yes, why should there be 2.0? A 2.x makes more sense. ;-)


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


Для таких штук правильнее сделать маленький класс с двумя коррдинатами. Кстати, его объект можно передавать всюду, где нужны именно две координаты


`prepackString()` it's what I need! Do you know when the next release will be? Thanks!


From April 8th


useless


Насколько я понимаю, по факту массив-результат содержит две координаты. Для таких целей вводят отдельный маленький класс


Ok I give up for tonight on `XQuartz` / `docker`/ `rviz`. Tried it with [ros-jade-usable](https://github.com/kopp/ros-dockers/blob/master/ros-jade-usable/Dockerfile) which ends up with the error message below
<img width="538" alt="screen shot 2017-05-30 at 22 10 43" src="https://cloud.githubusercontent.com/assets/7142618/26602824/03436244-4585-11e7-9065-520952960761.png">

as well as my take on [rosnode docker image](https://github.com/anoff/robby5/blob/master/examples/sensor-to-ros/.docker/rosnode/Dockerfile) which terminates rviz directly with
```sh
root@0c0c965103fa:/# rviz
[ INFO] [1496175621.807663164]: rviz version 1.12.4
[ INFO] [1496175621.808051341]: compiled against Qt version 5.5.1
[ INFO] [1496175621.808204584]: compiled against OGRE version 1.9.0 (Ghadamon)
libGL error: No matching fbConfigs or visuals found
libGL error: failed to load driver: swrast
libGL error: No matching fbConfigs or visuals found
libGL error: failed to load driver: swrast
Segmentation fault
```

command was `docker run --name robby5 -it -e "DISPLAY=$(ifconfig en0 | grep inet | awk '$1=="inet" {print $2}'):0" --env="LIBGL_ALWAYS_SOFTWARE=1" --volume="/tmp/.X11-unix:/tmp/.X11-unix:rw" rosnode`


like


Почему? Она намеренно создаётся свободной?


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


attribute directive


I don't think I reviewed this work.  This shouldn't consume `value`; it should take `value` by reference.  And really, this should be in the definition of `TypedValue`, since this has nothing to do with `self`.   Or are you intending to have output modes?


> Committed and pushed to the wrong repository


Эти самые `safeMoves` лучше хранить не в виде просто числа, а в виде списка безопасных ходов. Тогда не потребуется считать его два раза.


Might be a mistake.  I'll need to review but I think the API I decided to use changed.  I'll try to address this soon but please make an issue or, better yet, pull request!


Puzzle `43-1e1d20ab` disappeared in [`include/Result.h`](https://github.com/DronMDF/2out/blob/master/include/Result.h), that's why I closed #45.


Puzzle `43-edf408f0` disappeared in [`include/Result.h`](https://github.com/DronMDF/2out/blob/master/include/Result.h), that's why I closed #46.


Puzzle `46-f72a61c2` discovered in [`test/TextReportTest.cpp`](https://github.com/DronMDF/2out/blob/master/test/TextReportTest.cpp) and submitted as #48.


Puzzle `46-0ce8ced1` discovered in [`test/TextReportTest.cpp`](https://github.com/DronMDF/2out/blob/master/test/TextReportTest.cpp) and submitted as #49.


Puzzle `46-e00eac1f` discovered in [`include/Result.h`](https://github.com/DronMDF/2out/blob/master/include/Result.h) and submitted as #50.


Puzzle `43-f5766035` discovered in [`include/Result.h`](https://github.com/DronMDF/2out/blob/master/include/Result.h) and submitted as #51.


Puzzle `46-5f511b34` discovered in [`include/Report.h`](https://github.com/DronMDF/2out/blob/master/include/Report.h) and submitted as #52.


Puzzle `46-64bfcabd` discovered in [`include/TextReport.h`](https://github.com/DronMDF/2out/blob/master/include/TextReport.h) and submitted as #53.


![](https://github.trello.services/images/mini-trello-icon.png) [Tests unitaires du code existant](https://trello.com/c/estH7KOG/96-tests-unitaires-du-code-existant)


`setConvert` is pretty heavy just to get `ax.cleanPos = num` - want to factor `num` out into `Lib`?


Это очень некрасиво. Я бы сказал, что `setVal` вообще не нужен в классе `Cell`. Всю необходимую информацию можно извлечь из `Board`, зачем её дублировать?


FixZoneVolumeCalcs (JasonGlazer) - Win64-Windows-7-VisualStudio-14: OK (2489 of 2514 tests passed, 23 test warnings)

Messages:

 * 41 tests had: EIO diffs.
 * 18 tests had: ESO big diffs.
 * 24 tests had: Table big diffs.
 * 23 tests had: ESO small diffs.
 * 7 tests had: ERR diffs.
 * 9 tests had: MTR big diffs.
 * 7 tests had: Table small diffs.
 * 10 tests had: MTR small diffs.
 * 2 tests had: SSZ big diffs.
 * 2 tests had: ZSZ big diffs.
 * 4 tests had: ZSZ small diffs.
 * 2 tests had: SSZ small diffs.
 * 2 tests had: AUD diffs.
 * 2 tests had: SHD diffs.

Failures:

regression Test Summary
 * Passed: 574
 * Failed: 25

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


This is equivalent to just `self.conn.q_once(...)`.  (And I've already asked you to use `...?`, not `try!`.  We're consistent throughout this code base.)


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


Add to `Error Handling` doxygen group


> If you 👍 , I'll add a few annotations defaults test cases to 🔒 this down in a PR fixing #1720

Looks great, go for it!


Thanks, Danny!


Sure. I will continue to investigate and see if I can come up with a pull request. Thanks!


What are these commit messages? Some kind of importing failure. Seems unacceptable for such a widely used piece of software.


Вы только что нашли безопасный ход. В этом месте его нужно сохранить в списке и потом доставать из списка


should just be `function`


Consider extracting this to a method or trait.

Generally I want to see output as EDN, since I want to copy-paste it right back into the REPL.  Why do otherwise?


I pick this name because of https://github.com/C5T/Current/blob/45be7ffd34320c801e413db401a30cc2f7d4abbd/Bricks/net/debug_log.h#L30
Then what about `BRICKS_LOG_HTTP_EVENT`? `CURRENT_BRICKS_LOG_HTTP_EVENT`?


[PlanodeTeste2.pdf](https://github.com/ESEGroup/IssuesMonitoring/files/1039614/PlanodeTeste2.pdf)
Plano de Teste 2


Add `InfoFromBuild`


avail_mgr_diff_thermostat (nmerket) - i386-Windows-7-VisualStudio-12: Build Failed

![Build Badge](http://img.shields.io/badge/build%20status-failing-red.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-NA-red.png)


script que testa a conexão e chama os arquivos de audio.


The latter is good. And could you fix that other one too pls? :)


https://www.vistax64.com/powershell/27543-re-execute-command-line-environment-variable-path.html ?

At the end of the day, PoSh is object-oriented in contrast to the string-oriented bash, so envvar hacking is more difficult...