apriori算法的优缺点_apriori算法_apriori

就是R里arules包带的apriori代码：> apriori function (data, parameter = NULL, appearance = NULL, control = NULL) { data <- as(data, "transactions") items <- data@data if (is(appearance, "list")) appearance <- as(c(appearance, list(labels = itemLabels(data))), "APappearance") appearance <- as(appearance, "APappearance") control <- as(control, "APcontrol") parameter <- as(parameter, "APparameter") if (control@verbose) { cat("\nParameter specification:\n") print(parameter) cat("\nAlgorithmic control:\n") print(control) cat("\n") } abs_supp <- as.integer(parameter@support * length(data)) if (abs_supp < 2) warning(sprintf("You chose a very low absolute support count of %d. You might run out of memory! Increase minimum support.\n", abs_supp), immediate. = TRUE) result <- .Call("rapriori", items@p, items@i, items@Dim, parameter, control, appearance, data@itemInfo, PACKAGE = "arules") call <- match.call() result@info <- list(data = call$data, ntransactions = length(data), support = parameter@support, confidence = parameter@confidence) if (is(result, "rules")) { validObject(result@lhs@data) validObject(result@rhs@data) } else { validObject(result@items@data) } result } 就是这个

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-28544-1.html