# NOT RUN {
feat1 <- mmb::createFeatureForBayes(
name = "Sepal.Length", value = mean(iris$Sepal.Length))
feat2 <- mmb::createFeatureForBayes(
name = "Sepal.Width", value = mean(iris$Sepal.Width), isLabel = TRUE)
# Assign a probability to a continuous variable (also works with nominal):
mmb::bayesProbabilitySimple(df = iris, features = rbind(feat1, feat2),
targetCol = feat2$name, retainMinValues = 5, doEcdf = TRUE)
# }
Run the code above in your browser using DataLab