# NOT RUN {
feats <- rbind(
mmb::createFeatureForBayes(
"Petal.Width", value = mean(iris$Petal.Width)),
mmb::createFeatureForBayes(
name = "Species", iris[1,]$Species, isLabel = TRUE)
)
print(mmb::getValueKeyOfBayesFeatures(feats, "Species"))
print(mmb::getValueKeyOfBayesFeatures(feats, "Petal.Width"))
# }
Run the code above in your browser using DataLab