# NOT RUN {
library(lolR)
data <- lol.sims.rtrunk(n=200, d=30) # 200 examples of 30 dimensions
X <- data$X; Y <- data$Y
model <- lol.project.dp(X=X, Y=Y) # use mdp to project into maximal data piling
# }
Run the code above in your browser using DataLab