24小时热门版块排行榜    

查看: 392  |  回复: 3

木弓长风

新虫 (初入文坛)

[求助] 会R的大神帮帮忙(有垃圾邮件的分类问题) 已有1人参与

大神帮忙看看这段代码问题出在哪,自定义的get.msg函数运行不成功。
library(tm)
library(ggplot2)
spam.path <- file.path("data", "spam"
spam2.path <- file.path("data", "spam_2"
easyham.path <- file.path("data", "easy_ham"
easyham2.path <- file.path("data", "easy_ham_2"
hardham.path <- file.path("data", "hard_ham"
hardham2.path <- file.path("data", "hard_ham_2"

get.msg <- function(path)
{
  con <- file(path, open = "rt", encoding = "latin1"
  text <- readLines(con)
  # The message always begins after the first full line break
  msg <- text[seq(which(text == ""[1] + 1, length(text), 1)]
  close(con)
  return(paste(msg, collapse = "\n")
}
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : data.rar
  • 2014-11-30 15:46:01, 14.55 M

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

木弓长风

新虫 (初入文坛)

大神们不好意思哦,由于上传原因,笑脸处为括号“)”,代码用到的文件我已上传。。
2楼2014-11-30 15:50:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

风随我行21

铁虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
你对《机器学习》里的源程序改了吧,问题是不是出在file.path上
3楼2014-11-30 23:14:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

木弓长风

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by 风随我行21 at 2014-11-30 23:14:00
你对《机器学习》里的源程序改了吧,问题是不是出在file.path上

谢谢你的回答,但是书里的源程序也不行的,出的结果和上述程序是一样的。
4楼2014-12-01 00:05:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 木弓长风 的主题更新
信息提示
请填处理意见