Update fwiRaster example to function correctly.

R/fwiRaster.r

@@ -128,19 +128,20 @@
 #' require(terra)
 #' # The test data is a stack with four input variables including
 #' # daily noon temp, rh, ws, and prec (we recommend tif format):
-#' day01 <- rast(
+#' day01src <- rast(
 #'   system.file("extdata", "test_rast_day01.tif", package = "cffdrs")
 #' )
-#' day01 <- crop(day01, c(250, 255, 47, 51))
+#' day01 <- crop(day01src, c(250, 255, 47, 51))
 #' # assign variable names:
 #' names(day01) <- c("temp", "rh", "ws", "prec")
 #' # (1) use the initial values
 #' foo <- fwiRaster(day01)
 #' plot(foo)
 #' ### Additional, longer running examples ###
 #' # (2) use initial values with larger raster
-#' day01 <- rast(day01src)
+#' day01 <- day01src
 #' names(day01) <- c("temp", "rh", "ws", "prec")
+
 #' \donttest{
 #' foo <- fwiRaster(day01)
 #' }