set.seed(123)
n <- 1000
p <- 5
X <- matrix(rnorm(n * p), ncol = p)
beta <- runif(p, 1, 2)
e <- sn::rsn(n = n, xi = 0, omega = 1, alpha = 5)
Y <- X %*% beta + e
SLIC(X, Y, alpha = 0.05, K = 10, dist_type = "skew_normal")
Run the code above in your browser using DataLab