# create data set
x1 = matrix(runif(200), ncol = 2)
x2 = matrix(rnorm(200), ncol = 2)
# create weighting matrix
W = matrix(c(0, 1, 1, 0), ncol = 2)
select_smoothing (X = rbind(x1, x2),
groups = rep(c(1,2), each = 100),
weights = W,
lambda = seq(0, 1, 0.1),
return_all = TRUE,
cores = 1)
Run the code above in your browser using DataLab