# NOT RUN {
n <- 50
p <- 20
K <- replicate(5, matrix(rnorm(n*p), nrow = n, ncol = p), simplify = FALSE)
L <- matrix(rnorm(n*p), nrow = n, ncol = p)
K <- sapply(K, function(X) return(X %*% t(X) / dim(X)[2]), simplify = FALSE)
L <- L %*% t(L) / p
selection <- FOHSIC(K, L, 2)
# }
Run the code above in your browser using DataLab