24小时热门版块排行榜    

查看: 427  |  回复: 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的回帖
相关版块跳转 我要订阅楼主 木弓长风 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +3 QiMing7 2026-03-25 3/150 2026-03-25 21:13 by 给你你注意休息
[考研] 各位老师您好:本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 359求调剂 +3 王了个楠 2026-03-25 3/150 2026-03-25 12:50 by Dyhoer
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +4 晨昏线与星海 2026-03-20 4/200 2026-03-25 10:16 by allen-yin
[考研] 材料学求调剂 +6 Stella_Yao 2026-03-20 6/300 2026-03-25 00:37 by baoball
[考研] 食品专硕 一志愿双一流 328 +3 xiaom99 2026-03-21 4/200 2026-03-24 21:20 by lailaisimei
[考博] 申博26年 +4 八6八68 2026-03-19 4/200 2026-03-24 15:49 by 小Ben呵呵
[考研] 336求调剂 +4 收到VS 2026-03-20 4/200 2026-03-23 19:02 by macy2011
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
[考研] 寻找调剂 +4 倔强芒? 2026-03-21 4/200 2026-03-22 16:14 by 木托莫露露
[考研] 一志愿中南化学(0703)总分337求调剂 +9 niko- 2026-03-19 10/500 2026-03-22 16:08 by ColorlessPI
[考研] 298求调剂一志愿211 +3 上岸6666@ 2026-03-20 3/150 2026-03-22 15:50 by ColorlessPI
[考研] 求调剂院校信息 +6 CX 330 2026-03-21 6/300 2026-03-22 15:25 by 无懈可击111
[考研] 0703化学调剂 +4 妮妮ninicgb 2026-03-21 4/200 2026-03-21 18:39 by 学员8dgXkO
[考研] 求调剂 +6 Mqqqqqq 2026-03-19 6/300 2026-03-21 08:04 by JourneyLucky
[考研] 求调剂一志愿南京航空航天大学289分 +3 @taotao 2026-03-19 3/150 2026-03-20 21:34 by JourneyLucky
[考研] 295复试调剂 +8 简木ChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
[考研] 一志愿西安交通大学 学硕 354求调剂211或者双一流 +3 我想要读研究生 2026-03-20 3/150 2026-03-20 20:13 by JourneyLucky
[考研] 求调剂 +3 eation27 2026-03-20 3/150 2026-03-20 19:32 by JourneyLucky
信息提示
请填处理意见