HDC调试需求开发（15万预算）,能者速来！>>>
想请教一下apriori算法在R语言中的这段代码要怎么进行注释？就是大概每一句或者某一句大概是什么意思或者什么功能？在下刚学数据挖掘，R语言功底也不深，已被整疯T^T
> 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 } <environment: namespace:arules>