R Under development (unstable) (2024-01-07 r85787 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # test -- genSample()
> 
> library(spup)
> library(raster)
Loading required package: sp
> 
> # create dummy rasters
> set.seed(1234567)
> # mean
> sdf <- data.frame(x = rep(0:2, each = 3),
+                   y = rep(0:2, 3),
+                   l = rnorm(9))
> coordinates(sdf) <- ~ x + y
> gridded(sdf) <- TRUE
> rasterDF <- raster(sdf)
> # sd
> sdf <- data.frame(x = rep(0:2, each = 3),
+                   y = rep(0:2, 3),
+                   l = runif(9))
> coordinates(sdf) <- ~ x + y
> gridded(sdf) <- TRUE
> rasterDFsd <- raster(sdf)
> 
> # define UM
> UM <- defineUM(TRUE, distribution = "norm", distr_param = c(rasterDF, rasterDFsd))
> a <- genSample(UM, 10, "randomSampling", asList = FALSE)
There were 20 warnings (use warnings() to see them)
> plot(a)
> 
> proc.time()
   user  system elapsed 
   8.93    0.45    9.37