[R/helper_funs.R:338:7:](https://github.com/pat-s/sperrorest/blob/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/R/sperrorest_resampling.R#L671) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:551:9:](https://github.com/pat-s/sperrorest/blob/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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:98:63:](https://github.com/pat-s/sperrorest/blob/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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/d867e90be30dc06c3116649cfc120d233298a295/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
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:262:67:](https://github.com/pat-s/sperrorest/blob/d867e90be30dc06c3116649cfc120d233298a295/tests/testthat/test-sperrorest.R#L262) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:267:1:](https://github.com/pat-s/sperrorest/blob/d867e90be30dc06c3116649cfc120d233298a295/tests/testthat/test-sperrorest.R#L267) *style:* **Lines should not be more than 80 characters.**
```r
                              par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:275:67:](https://github.com/pat-s/sperrorest/blob/d867e90be30dc06c3116649cfc120d233298a295/tests/testthat/test-sperrorest.R#L275) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```


Cool. Closing.


I ended up using this pattern after all, in 9c451b54f59631d7c728cf98e1342203a523ffb8


Hoher Luft- oder Flüssigkeitsdruck verhindert weiteren Austritt/Ausstoß von Flüssigkeit.


@SOF3 Thank you for taking your time to review the plugin.
I will go see what I can do.

Regards.


A good test to have here would be to do and RA/DEC cutout of an image and make sure that the MD5Sum of the returned image matched the expected value.  Basically, pull an image and measure its MD5 value and make sure that matches the value computed previously (at a time when we know that the cutout program was working).

That would be more an integration test rather than a unit test I suppose.


Not anymore...
Though I forgot to update `ListField` itself.

The value now is stored as an attribute of the document and `ListField` is just an descriptor of the field, stored in `_fields`. I removed all references of the `_value` from the `ListField` and it still works fine.

I assume the `DictField` should also be proxied the same way as `ListField`, the `_value` could be removed.


Außentemperatur / Umgebungstemperatur


Map component removed in 535f366d3455ae741cdfc915d241ad97f4d03e01


Your right. Removed


You will at the bare minimum want to strip out or escape slashes.
That is to say, if the noid is '123/abc', a bunch of code will break, since "#{PushmiPullyu.options[:workdir]}/#{noid}" points to a directory called "abc" (not to a directory called "123/abc") and "#{PushmiPullyu.options[:workdir]}/#{noid}.tar" points to a file called "abc.tar" (not to a file with name "123/abc.tar").

At the bare min


Ein Bindestrich zu viel ;)
Würde einfach "von Schaltern und Filtern" schreiben.


The following doc(s) have been deployed to the [sukottokun](https://sukottokun-static-docs.pantheonsite.io/docs) Multidev environment:
- [docs/guides/new-relic-integration](https://sukottokun-static-docs.pantheonsite.io/docs/guides/new-relic-integration)
- [docs/guides/jira](https://sukottokun-static-docs.pantheonsite.io/docs/guides/jira)
- [docs/guides/new-relic-deploys](https://sukottokun-static-docs.pantheonsite.io/docs/guides/new-relic-deploys)
- [source/docs/assets/images/integrations/newrelic/goto_nr.png](https://github.com/pantheon-systems/documentation/commit/472d5d483f8f46eb41935d027cb55d82554032ee/source/docs/assets/images/integrations/newrelic/goto_nr.png)
- [source/docs/assets/images/integrations/newrelic/nr_enable.png](https://github.com/pantheon-systems/documentation/commit/472d5d483f8f46eb41935d027cb55d82554032ee/source/docs/assets/images/integrations/newrelic/nr_enable.png)


Thanks! This is automatically-managed by the `sbt-release` plugin (i.e. I don't ever edit it by hand), so for now I'm happy to keep things as they are.


XX.STATUS immer aktive Form: Pflegt


@charest

The _INPUT variable was not reset/cleared after each unit test is process. Resetting it fixed the problem.

```
index 7112fb8..85d6d35 100644
--- a/cmake/ProjectLists.txt
+++ b/cmake/ProjectLists.txt
@@ -413,6 +413,7 @@ if(CINCH_TOP_LEVEL_PARSER)

         # first, clear some variables that are filled with "None" instead
         # of just empty
+        set(_INPUTS)
         if (NOT "${unit_target_inputs}" STREQUAL "None")
           string(REGEX REPLACE "([^;]+)" "${unit_target_directory}/\\1" _INPUTS "${unit_target_inputs}")
         endif()
```

Can you merge this in? I don't have write access to the cinch repo.


gener T ation


Aha excellent point, I mainly just wanted to avoid `read_exact` to [avoid the loop](https://github.com/rust-lang/rust/blob/f89d8d184490ecb3cf91f7b6bb7296d649f931ba/src/libstd/io/mod.rs#L641) on `EINTR`, I'll change to handling the return value of 0.


@afgane Not sure if this should be documented in README.rst , it's useful only for maintainers. Maybe we need a CONTRIBUTING.md file.


why did you do this?


@SOF3 True, i will be working on it


Hi Silvena


Hello people


Hm, is there any better way to select between cancellation request and available token?

Could we create a second pipe for `Helper` for cancellation signal, turn both pipes into non-blocking mode and `poll` on them? Basically, the solution hinted at at the very end of http://make.mad-scientist.net/papers/jobserver-implementation/.


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

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


There's a similar situation with `write` below.


So you think I should keep it? Or maybe I could just change the usage in the test class?


@ollielo Are you saying that #88 does not fix it?  Because it does the same thing.


The removal of `CRYPTOPP_DLL` from `AssignIntToInteger` was unintentional. It was re-added at [Commit 8988e36a48e9ce3d](https://github.com/weidai11/cryptopp/commit/8988e36a48e9ce3d1f8971a09d6758bb324f6f1e).


jop denkfehler  müsste von Objekten, Schaltern und Filtern heißen im englischen fehlt vermutlich en Komma


It's not an importing failure, it's just how the maintainer does it.  We used to not even get the three dots.


drol voor het moeten uitschrijven van alle attributen van sript in regel 43 van thread.js


Since you are using the same date formate both here and below on line 74, you could create a reusable custom date format either in an initializer

https://www.martin-brennan.com/custom-time-formats-in-rails
https://robots.thoughtbot.com/custom-formats-for-datetime

or via localization

http://guides.rubyonrails.org/i18n.html#adding-date-time-formats


Heh yeah this is the rabbit hole I went down trying to figure this all out :)

So at a fundamental level async I/O would mean this entire crate could just be tokio/future powered and we'd be done with it (no helper threads, etc). The problem though is that whether or not a file descriptor is nonblocking is actually a property of the file *description*, not descriptor. That means that if we configure the file descriptor here to be nonblocking then all processes using the descriptor will get a nonblocking view, not just us.

Unfortunately `make`, the source for a lot of this, definitely isn't ready for a nonblocking file descriptor and will likely cause lots of problems (I think internal asserts given the source I was reading).

So that basically amounted to we *can't* use nonblocking I/O, which means abstractions like `select` and `poll` can't be used, which leads us to signals :(

I'd be more than willing to implement something better though, this was awful to write!


GOOD


@kragniz ?


As discussed, create util method for all millisecond computations like this with a name that explains the purpose.


Especially where there are already sentences with periods on the same line it is strange not to have a final period.  But in general for complete sentences also, yes.

http://www.businesswritingblog.com/business_writing/2012/01/punctuating-bullet-points-.html
http://www.grammar-monster.com/lessons/using_bullet_points.htm


Hmm, klappt bei mir auch nicht. Habe etwas rumgesucht und der Befehl "DEL" ist auch nicht dokumentiert.
Vielleicht existiert er tatsächlich nicht und wir müssten ein MOV machen.


Looks like this commit (part of #66) has merge conflicts from recent changes to the head branch - I'll update it for you. (It'll take me a couple of minutes.)


Looks like this commit (part of #70) has merge conflicts from recent changes to the head branch - I'll update it for you. (It'll take me a couple of minutes.)


Looks like this commit (part of #72) has merge conflicts from recent changes to the head branch - I'll update it for you. (It'll take me a couple of minutes.)


Created multidev environment [badcamp-2017#ci-161](https://dashboard.pantheon.io/sites/8d658997-7a61-4db8-9be8-0f16b8b62022#ci-161).

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


Menos mal que te diste cuenta que faltaba esa línea


there's actually a bug here in that the blockSize will not be zero if it has the LZ4_FRAME_INCOMPRESSIBLE_MASK flag set. It only works in practice because the corresponding outputstream never sets the flag in `writeEndMark()`

There's a fix for it pending in https://github.com/apache/kafka/pull/2967

oh and hi @drcrallen :)


Touched up in https://github.com/alexcrichton/jobserver-rs/commit/1e8c360e0c8c4b8c103e3613a92ee33efe6299eb


int ExcluirReserva (int Voo[50][12])
{
    int n,i,j,a,b,c,cpf2;
    a=0;
printf("digite o numero do voo\n");
scanf("%d",&n);

for(i=0; i<50; i++)
    { if (n==Voo[i][0]) {
     a=1+1;
     b=i;
      printf("\nDigite o cpf do passageiro que deseja excluir a reserva\n");
      scanf ("%d",&cpf2);
    }
    }
       for(j=1;j<12;j++)
       {

      if (cpf2==Voo[b][j]) {

       printf("\nO passageiro de cpf %d foi excluido com sucesso do Voo %d",cpf2,n);
      }

       }

 if (a!=2) {
      printf("\nERRO: Codigo 0"); }

}


"i" on row 19 is my mistake. Should not do github on my phone :-(


`tag()` expects substitutions as subsequent arguments, not in Array.
```js
function tag(literals, ...substitutions) {
  const parser = new Parser(literals, ...substitutions)
  ...
```


Reasoning behind hack:
CINP type doesn't have a symbol, so it couldn't be wrapped using `qs`; needed to get `make` running; will work on improving format and implementation (as mentioned in #236).


The following doc(s) have been deployed to the [assumingwr](https://assumingwr-static-docs.pantheonsite.io/docs) Multidev environment:
- [docs/assuming-write-access](https://assumingwr-static-docs.pantheonsite.io/docs/assuming-write-access)


Faltaba agregar el objetivo de la aplicación y los cambios


nein


Le vagy maradva.
https://github.com/uhulinux/ub-ubk1/commit/92a0511b3a987b85d882c5a90c07efca447fae2e


Will we update the version of the main plugin? Or is it still going to remain 0.7.4 after this PR is merged?


Hi! thanks!


Fixes #1


## Se me olvido
__Nota:__ por favor agregar esta información


This is great.  I have been super busy at work.  This weekend (now that holidays and birthdays and such are over), I'll try to get the event format for gen 3.  And I can create the files based on my collection.


`True` is just fine. The feature will only be called for paths of type `file`.


There is no setter for `metadata` so that properties from the application.yml are not set. They would be required for security (`user.name` and `password`)


I would totally agree but I think this not needed. The big question is...can NOIDs even have forward slashes in them to begin with? What forms can NOIDs take? Seems to be just alphanumeric strings? They are meant to be URL safe and if they contain forward slashes and other junk, then technically they are not as these will be entirely different URLs.

if noid is `abc123whatever` then fedora url is:
```
http://www.example.com:8983/fedora/rest/test/ab/c1/23/wh/abc123whatever
```

if noid is `abc/123/whatever`
```
http://www.example.com:8983/fedora/rest/test/ab/c//12/3//abc123whatever
```
Which pretty sure we got bigger issues at hand. If we can't even retrieve the urls because the noids are not url safe.

(On a side note, I hate NOIDs. Always a good idea to come up with your own custom implementation of how to do unique identifiers (off some white paper algorithm deemed beta software) instead of using industry standard battle proven solutions likes using GUID/UUIDs)


Hello @bep, what was the issue with the theme ?


Throw `ch.cyberduck.core.exception.AccessDeniedException`.