[R/helper_funs.R:43:36:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/helper_funs.R#L43) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(fit) == "try-error") { # nocov start
                                   ^
```
[R/helper_funs.R:99:29:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/helper_funs.R#L99) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (error_fold == TRUE) { # nocov start
                            ^
```
[R/helper_funs.R:148:41:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/helper_funs.R#L148) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (is.null(current_res[[j]]$test)) { # nocov start
                                        ^
```
[R/helper_funs.R:341:7:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/helper_funs.R#L341) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((do_gc >= 1) & (do_gc < 2)) {
      ^
```
[R/resample.R:60:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/resample.R#L60) *style:* **Lines should not be more than 80 characters.**
```r
    stop(paste0("'strat' must either be a vector of factor type, or the name", # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/resample.R:154:27:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/resample.R#L154) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (is.null(param$fac)) { # nocov start
                          ^
```
[R/sperrorest_error.R:3:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:96:18:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_error.R#L96) *warning:* **no visible global function definition for ‘prediction’**
```r
      predobj <- prediction(pred, obs)
                 ^~~~~~~~~~
```
[R/sperrorest_error.R:97:16:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_error.R#L97) *warning:* **no visible global function definition for ‘performance’**
```r
      auroc <- performance(predobj, measure = "auc")@y.values[[1]]
               ^~~~~~~~~~~
```
[R/sperrorest_error.R:147:28:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_error.R#L147) *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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L205) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    represmp <- as.represampling(represmp)
                ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:248:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L248) *style:* **Lines should not be more than 80 characters.**
```r
    warning("'nfold' should be <= nlevels(fac); using nfold=nlevels(fac)\n") # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:391:36:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L391) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  } else if (rotation == "random") { # nocov start
                                   ^
```
[R/sperrorest_resampling.R:444:30:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L444) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(dsplit) == 1) { # nocov start
                             ^
```
[R/sperrorest_resampling.R:459:40:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L459) *style:* **Put spaces around all infix operators.**
```r
      r <- phi[as.character(cnt)] * 180/pi # nocov start
                                      ~^~
```
[R/sperrorest_resampling.R:472:31:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L497) *style:* **Lines should not be more than 80 characters.**
```r
      x.split <- seq(x_range[1], x_range[2] + x_delta, by = x_delta) # nocov start
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:497:7:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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) # nocov start
      ^~~~~~~
```
[R/sperrorest_resampling.R:498:7:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:530:21:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L530) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (reassign) { # nocov start
                    ^
```
[R/sperrorest_resampling.R:559:15:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L559) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:648:18:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L648) *style:* **Put spaces around all infix operators.**
```r
      p <- x$size/sum(x$size)
                ~^~
```
[R/sperrorest_resampling.R:649:23:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L649) *style:* **Put spaces around all infix operators.**
```r
      return(1 - sum(p^2))
                     ~^~
```
[R/sperrorest_resampling.R:662:15:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L662) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:667:19:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L667) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:799:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L799) *style:* **Lines should not be more than 80 characters.**
```r
        warning(paste0("empty training set in 'partition_disc': 'buffer'", # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:1109:12:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L1109) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (oob) { # nocov start
           ^
```
[R/sperrorest_resampling.R:1198:22:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest_resampling.R#L1198) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (missing(data)) { # nocov start
                     ^
```
[R/sperrorest.R:315:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L315) *style:* **Lines should not be more than 80 characters.**
```r
    stop(paste0("variable importance assessment currently only supported", # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:350:48:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L350) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(par_args$par_mode) == "numeric") { # nocov start
                                               ^
```
[R/sperrorest.R:445:12:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L445) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    } else { # nocov end
           ^
```
[R/sperrorest.R:472:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L472) *style:* **Lines should not be more than 80 characters.**
```r
        message(sprintf("Using 'parApply' parallel mode with %s cores.", # nocov start
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:540:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L540) *style:* **Lines should not be more than 80 characters.**
```r
            stop(paste0("No output was received from sperrorest.\n", # nocov start
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:552:9:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L552) *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:555:9:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L555) *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:600:5:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L600) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
    registerDoFuture()
    ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:609:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L609) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(par_args$par_units, outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:610:7:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L610) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:610:12:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L610) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:616:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L616) *style:* **Lines should not be more than 80 characters.**
```r
        message(paste0("Please see 'sperrorest_progress' in your current", # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:617:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L617) *style:* **Lines should not be more than 80 characters.**
```r
                       " working directory for progress output on Windows.")) # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:621:7:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L621) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
      registerDoFuture()
      ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:622:7:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L622) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(sequential)
      ^~~~
```
[R/sperrorest.R:622:12:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L622) *warning:* **no visible binding for global variable ‘sequential’**
```r
      plan(sequential)
           ^~~~~~~~~~
```
[R/sperrorest.R:633:47:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L633) *warning:* **local variable ‘pooled_pred_train’ assigned but may not be used**
```r
                          pooled_obs_train <- pooled_pred_train <- c()
                                              ^~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:634:46:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L634) *warning:* **local variable ‘pooled_pred_test’ assigned but may not be used**
```r
                          pooled_obs_test <- pooled_pred_test <- c()
                                             ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:638:25:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L638) *warning:* **local variable ‘current_impo’ assigned but may not be used**
```r
                        current_impo <- resamp[[i]]
                        ^~~~~~~~~~~~
```
[R/sperrorest.R:643:42:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L643) *warning:* **no visible global function definition for ‘map’, Did you mean 'mad'?**
```r
                          current_res <- map(resamp[[i]], unclass)
                                         ^~~
```
[R/sperrorest.R:767:17:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/sperrorest.R#L767) *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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:236:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/summary_functions.R#L236) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:237:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/summary_functions.R#L237) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:238:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/R/summary_functions.R#L238) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-helper-funs.R:18:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, current_sample = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:19:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
                              err_train = TRUE, importance = TRUE, current_res = current_res,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:24:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:44:11:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L58) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = maipo, current_sample = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:60:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
                              err_train = TRUE, importance = FALSE, current_res = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:64:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:80:71:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L82) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, current_sample = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:83:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L88) *style:* **Lines should not be more than 80 characters.**
```r
                              err_train = TRUE, importance = TRUE, current_res = current_res,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:90:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:121:63:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:142:3:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L142) *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:165:3:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L165) *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:184:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-helper-funs.R#L184) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-resample.R:10:52:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:25:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-resample.R#L25) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-sperrorest-resampling.R:17:48:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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/38e0cf5fb4e945ff179be57139ebefe401be1a87/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:260:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L260) *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:263:67:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L263) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:268:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L268) *style:* **Lines should not be more than 80 characters.**
```r
                              par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:276:67:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L276) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:281:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L281) *style:* **Lines should not be more than 80 characters.**
```r
                              par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:304:11:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L304) *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:304:22:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L304) *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:304:39:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L304) *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:304:50:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L304) *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:310:63:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L310) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-sperrorest.R:324:57:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L324) *style:* **Commas should always have a space after.**
```r
  out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                        ^
```
[tests/testthat/test-sperrorest.R:336:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L336) *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:340:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L340) *style:* **Lines should not be more than 80 characters.**
```r
test_that("output length of list is correct for error_rep = TRUE and error_fold  = TRUE
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:349:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L349) *style:* **Lines should not be more than 80 characters.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[, 2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:349:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L349) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[, 2]
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:354:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L354) *style:* **Lines should not be more than 80 characters.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:354:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L354) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:354:81:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L354) *style:* **Commas should always have a space after.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
                                                                                ^
```
[tests/testthat/test-sperrorest.R:355:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L355) *style:* **Variable or function name should be snake_case.**
```r
            par.nsp.res <- sperrorest(data = ecuador, formula = fo,
            ^~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:356:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L356) *style:* **Lines should not be more than 80 characters.**
```r
                                      model_fun = rpart, model_args = list(control = ctrl),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:360:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L360) *style:* **Lines should not be more than 80 characters.**
```r
                                      smp_args = list(repetition = 1:2, nfold = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:361:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L361) *style:* **Lines should not be more than 80 characters.**
```r
                                      par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:367:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L367) *style:* **Lines should not be more than 80 characters.**
```r
# par_mode = "apply" variable importance Tue Feb 21 22:15:41 2017 ------------------------------
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:388:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L388) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(names(nspres$error_rep)[[1]], "train.auroc") # check for train.auroc for binary response
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:389:1:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L389) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(class(nspres$importance[[1]][[1]]), "data.frame") # check for importance object
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:461:11:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L461) *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:461:22:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L461) *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:461:39:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L461) *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:461:50:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L461) *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:467:63:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L467) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-sperrorest.R:477:3:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L477) *style:* **Variable or function name should be snake_case.**
```r
  res.lda.sp.par <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
  ^~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:477:68:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L477) *style:* **Commas should always have a space after.**
```r
  res.lda.sp.par <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                   ^
```
[tests/testthat/test-sperrorest.R:529:67:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L529) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:544:67:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L544) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:557:67:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L557) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:579:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L579) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:585:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L585) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:586:73:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L586) *style:* **Commas should always have a space after.**
```r
                                                              newdata)[,2]
                                                                        ^
```
[tests/testthat/test-sperrorest.R:587:13:](https://github.com/pat-s/sperrorest/blob/38e0cf5fb4e945ff179be57139ebefe401be1a87/tests/testthat/test-sperrorest.R#L587) *style:* **Variable or function name should be snake_case.**
```r
            par.nsp.res <- sperrorest(data = ecuador, formula = fo,
            ^~~~~~~~~~~
```


Fixed. https://github.com/C5T/Current/pull/738/commits/c24a3899126bd58e31cf0a35fbfd6d0388ee8512


Fixed. https://github.com/C5T/Current/pull/738/commits/4207aa6310d90cff24c06457c301092a1f5c8d47


neat


Fixed. https://github.com/C5T/Current/pull/738/commits/5613c65878c6b1f5a4e9c28b1c59607dc5d5c6c0


Beautiful - thanks. I would like to squash this with its parent as we want to keep commit count on dev low (keep history as focused as possible - helpful in future bisects etc). Will do on merge ASAP


@jrappen Thanks!


This appears to break the travis build. I am investigating.


Make like origonal building.


> (Vincent says) My understanding of Ben's #3 is: s-e contacts have to maintain (convert and merge) data structures representing contracts, which the rest of the contract system does not. How much time does that take?

Yes! that's what I meant.

> (Vincent says) FWIW, I'm most of the way to implementing what I thought you wanted, which is a way to see which contract costs are from regular vs space-efficient contracts

I agree, this would be a useful thing to measure. And I also agree that finishing it & starting experiments is more important than setting up other kinds of logging.

> (Christophe says) The only place where applying the data structures should matter is when the contract is applied the first time, afterwards there should be no overhead ...

Okay... either this statement isn't right or I really misunderstand something. Here's something that I thought could happen:

A. there is a value that has a space-efficient `(vectorof integer?)` contract
B. the value flows through a `(vectorof positive?)` boundary
C. the value flows out with basically the space-efficient contract `(vectorof (and/c integer? positive?))`
(and NOT the contract `(and/c (vectorof integer?) (vectorof positive?))` )

If A-B-C is possible, then I think applying the `(vectorof positive?)` contract must make some changes to the space-efficient contract --- i.e. traverse the contract & change the first-order checks at the leaves. (This is what I mean by "bookkeeping".) Is that not right?


Excellent coding right here!


Thanks @riopelln!


It is completely compatible with Polymer 2.0, but it was removed so that people can choose to add it in themselves, use another polyfill of their choosing, or simply use the native implementation.

I'm a little on the fence of adding it back in due to all of the unintended problems it seems to have caused


yeah i figured as much, squash away :)

oh and a semi-related thing, what's the policy on type hints and mypy here? i've snooped around a bit but haven't found anything other than some pycharm-specific hints (i think) here and there in the code and one or two mentions of pep 484 in the issues. i'm using mypy for all my other python code so type hints come pretty automatically to me but i don't want to make the codebase even bigger if it isn't something we're focused on.


800fc9defd8f7b4bc2c4863e6a29900547587988...55a5d6e9e36f3a8a226ea6d22d59a15156fabe8e includes dependency changes!

"package.json" *(1 added, 3 modified, 1 removed)*:
```
+ bluebird@3.5.0 (from ^3.5.0)
+ honeybee@1.1.0 (from ^1.1.0)
+ browserify@^14.4.0 (from ^14.4.0)
+ q@^1.0.0
- bluebird@^3.5.0
- honeybee@^1.1.0
- browserify@^14.4.0
```


YES! No more `Warning: Accessing PropTypes via the main React package is deprecated. Use the prop-types package from npm instead.` Woohoo!


Done, parcera!! :smile:


This introduced a corrupt BSP somehow. I dunno :|


Should be fixed on the next MOE push.


Good idea always to read tokens, credentials from a config file else it's like we are leaving our door keys with the hackers waiting to be hacked.


@inbalzukerman next time please notify before working on a file and subject I'm working on, and spare us from the duplicate job and manual merging :face_with_head_bandage:


Peço desculpas, mas acabei commitando esta parte de código junto que **não** havia relação com o commit. Esta parte na verdade foi refatorada para _exibir os livros_ em uma forma resumida.


TeamCity Kotlin :: Kotlin Native mac [Build 3945](http://buildserver.labs.intellij.net/viewLog.html?buildId=18844036&buildTypeId=Kotlin_KotlinNativeMac) outcome was **SUCCESS**
Summary: Running Build time: 00:35:38


TeamCity Kotlin :: Kotlin Native mac [Build 3947](http://buildserver.labs.intellij.net/viewLog.html?buildId=18844038&buildTypeId=Kotlin_KotlinNativeMac) is now running