Running examples in 'remap-Ex.R' failed
The error most likely occurred in:

> ### Name: remap
> ### Title: Build separate models for mapping multiple regions.
> ### Aliases: remap
> 
> ### ** Examples
> 
> library(remap)
> data(utsnow)
> data(utws)
> 
> # We will keep these examples simple by only modeling non-zero values of
> # snow water equivalent (WESD)
> 
> utsnz <- utsnow[utsnow$WESD > 0, ]
> 
> # Build a remap model with lm that has formula WESD ~ ELEVATION
> # The buffer to collect data around each region is 30km
> # The minimum number of observations per region is 10
> remap_model <- remap(
+   data = utsnz,
+   regions = utws,
+   region_id = HUC2,
+   model_function = lm,
+   formula = log(WESD) ~ ELEVATION,
+   buffer = 20,
+   min_n = 10,
+   progress = TRUE
+ )
Finding regional distances...

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |==================                                                    |  25%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |====================================================                  |  75%
  |                                                                            
  |======================================================================| 100%
Building models...

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |==================                                                    |  25%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |====================================================                  |  75%
  |                                                                            
  |======================================================================| 100%
> 
> # Resubstitution predictions
> remap_preds <- exp(predict(remap_model, utsnz, smooth = 10))
Error in Ops.units(x, as.numeric(smooth)) : 
  both operands of the expression should be "units" objects
Calls: predict ... [<-.units -> NextMethod -> t -> apply -> FUN -> Ops.units
Execution halted