# NOT RUN {
library(FeaLect)
data(mcl_sll)
F <- as.matrix(mcl_sll[ ,-1]) # The Feature matrix
L <- as.numeric(mcl_sll[ ,1]) # The labels
names(L) <- rownames(F)
message(L)
balanced <- compute.balanced(F_=F, L_=L)
message(balanced$L_)
# }
Run the code above in your browser using DataLab