# \donttest{
# get data set
data("weatherAUT2021")
# make neighborhood assignments
cut_lon = c(9:16, 18)
cut_lat = c(46, 47, 47.5, 48, 49)
N = ssMRCD::groups_gridbased(weatherAUT2021$lon, weatherAUT2021$lat, cut_lon, cut_lat)
table(N)
N[N == 2] = 1
N[N == 3] = 4
N[N == 5] = 4
N[N == 6] = 7
N[N == 11] = 15
N = as.numeric(as.factor(N))
# tune parameters
set.seed(123)
parameter_tuning(data = weatherAUT2021[, 1:6 ],
coords = weatherAUT2021[, c("lon", "lat")],
groups = N,
lambda = c(0.5, 0.75),
k = c(10),
repetitions = 1)
# }
Run the code above in your browser using DataLab