# NOT RUN {
feat1 <- mmb::createFeatureForBayes(
name = "Petal.Length", value = mean(iris$Petal.Length))
feat2 <- mmb::createFeatureForBayes(
name = "Petal.Width", value = mean(iris$Petal.Width))
feats <- rbind(feat1, feat2)
data <- mmb::conditionalDataMin(df = iris, features = feats,
selectedFeatureNames = feats$name, retainMinValues = 1)
# }
Run the code above in your browser using DataLab