# NOT RUN {
library("smartdata")
data(ecoli1, package = "imbalance")
data(AntibioticSmall, package = "adaptiveGPCA")
antibiotics <- data.frame(AntibioticSmall$X)
super_ecoli <- space_transformation(ecoli1, "lle_knn", k = 3, num_features = 2,
regularization = 1, exclude = c("Mcg", "Alm1"))
# }
# NOT RUN {
super_ecoli <- space_transformation(ecoli1, "lle_epsilon", epsilon = 0.99, num_features = 3)
super_antibiotics <- space_transformation(antibiotics, "adaptative_gpca",
similarity = AntibioticSmall$Q,
num_features = 2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab