# \donttest{
data <- matrix(rnorm(1000), nrow = 100, ncol = 100)
block_ind <- c(50,100)
local <- c(1, 1)
result <- mldfm_subsampling(data, blocks = 2, block_ind = block_ind, global = 1,
local = local, n_samples = 100, sample_size = 0.9)
# }
Run the code above in your browser using DataLab