Function for selecting variables for the second dimension of spatial association (SDA) model
Examples
data("obs")
data("sample_vars_sda")
obs$Cr_ppm <- log(obs$Cr_ppm)
krm <- rmvoutlier(obs$Cr_ppm)
#> Remove 5 outlier(s)
y <- obs$Cr_ppm[-krm]
x <- list(sample_vars_sda[[1]][-krm, 1:11])
system.time({ # ~0.01s
sx <- selectvarsda(y, xlist = x)
})
#> user system elapsed
#> 0.014 0.000 0.015