关于apriori算法在R语言中的代码

Chocolate11_1 发布于 2014/12/22 13:28
阅读 5K+
收藏 1

想请教一下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>
加载中
0
一只小桃子
一只小桃子

啥玩意儿,完全没见过。arules的官方例子是下面这样的:

data("Adult")
## Mine association rules.
rules <- apriori(Adult, 
                 parameter = list(supp = 0.5, conf = 0.9,
                                  target = "rules"))
summary(rules)



beijixingmm
beijixingmm
回复 @Chocolate11_1 : 请问你的问题解决了吗?
Chocolate11_1
Chocolate11_1
回复 @孤独小桃子 : 不啊 大三...我们开的【数据挖掘与分析】,然后对应的实验课用的【R语言实战】,人民邮电的那版图灵教育的
一只小桃子
一只小桃子
研究僧?
一只小桃子
一只小桃子
国内还有这样的大学和老师?还有人研究R?
Chocolate11_1
Chocolate11_1
回复 @孤独小桃子 : 我也是懵了......可是没办法啊,老师让注释这段源代码,才刚学数据挖掘......还是谢谢了
下一页
0
e
eureka713
啊,被顶到头条了啊!
Chocolate11_1
Chocolate11_1
估计是因为相似关键字最多了吧...
0
张学有
张学有
数据挖掘入门到精通—R语言视频教程
课程观看地址: http://www.xuetuwuyou.com/course/59


课程介绍
一、课程所用软件:R 3.2.2(64位)  RStudio
二、课程涉及到的技术点:
1)R语言的基本语法、函数
2)R中实用性很强的包
3)模式识别、分类预测算法原理及其实现


三、课程学习目标:
本课程讲解理论的同时结合大量的案例,让学习者可以快速掌握数据挖掘技能,并利用R数据处理、画图、


实现据挖掘模型的建立。学习完本课程,学习者能达到以下目标:
1)掌握基本R用法;
2)用R进行描述性统计分析、进行数据处理和数据可视化;
3)缺失值的清洗能力;
4)用R语言建立数据挖掘模型;


四、课程大纲:


第一章:基本概念介绍


第1课、数据挖掘、R语言概念介绍
第2课、软件安装和数据的读、写、修改 
第3课、基本概念讲解(向量、矩阵、因子、数据框、列表) 
第4课、基本图形的讲解和绘制 


第二章:实用软件包介绍及应用


第5课、plyr包主函数讲解
第6课、plyr包辅助函数讲解
第7课、Ggpolt2介绍 
第8课、Ggpolt2实践
第9课、reshape2包的讲解和实际操作 
第10课、课缺失值的处理 


第三章:算法讲解及应用


第11课、knn原理简介 
第12课、knn算法实际操作 
第13课、决策树的理论讲解 
第14课、决策树实操 
第15课、人工神经网络的介绍1 
第16课、人工神经网络介绍2 
第17课、人工神经网络实操1 
第18课、人工神经网络实操2 
第19课、支持向量机原理介绍
第20课、支持向量机的实操 
OSCHINA
登录后可查看更多优质内容
返回顶部
顶部