# NOT RUN {
library("fpmoutliers")
dataFrame <- read.csv(
system.file("extdata", "fp-outlier-customer-data.csv", package = "fpmoutliers"))
model <- WFPI(dataFrame, minSupport = 0.001, preferredColumn="Car", preference=10)
# }
Run the code above in your browser using DataLab