get.msg <- function(path){con <- file(path, open = "rt", encoding = "latin1")text <- readLines(con)# The message always begins after the first full line breakmsg <- text[seq(which(text == "")[1]+1, length(text), 1)]close(con)return(paste(msg, collapse = "\n"))}報(bào)錯(cuò)：Error in seq.default(which(text == "")[1]+1, length(text), 1) : 'from' cannot be NA, NaN or infinite示例文檔：From 12a1mailbot1@web.de Thu Aug 22 13:17:22 2002Return-Path: <12a1mailbot1@web.de>Delivered-To: zzzz@localhost.spamassassin.taint.orgReceived: from localhost (localhost [127.0.0.1])by phobos.labs.spamassassin.taint.org (Postfix) with ESMTP id 136B943C32for <zzzz@localhost>; Thu, 22 Aug 2002 08:17:21 -0400 (EDT)<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><META content=3D"text/html; charset=3Dwindows-1252" http-equiv=3DContent-T=ype>
2 回答
德瑪西亞99
TA貢獻(xiàn)1770條經(jīng)驗(yàn) 獲得超3個(gè)贊
seq函數(shù)是產(chǎn)生序列用的他的用法是seq(from,to,by)或者是seq（下界，by=，length=）
下面是用r運(yùn)行的結(jié)果
seq(2,6,2)
[1] 2 4 6
seq(10,by=2,length=5)
[1] 10 12 14 16 18
qq_遁去的一_1
TA貢獻(xiàn)1725條經(jīng)驗(yàn) 獲得超8個(gè)贊
在一個(gè)文檔中定位到第一個(gè)空行，讀取其后的所有文本 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 <-... 文檔定位第空行讀取其所文本
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"))
}
報(bào)錯(cuò)：
Error in seq.default(which(text == "")[1]+1, length(text), 1) :
'from' cannot be NA, NaN or infinite 展開 示例文檔：
From 12a1mailbot1@web.de Thu Aug 22 13:17:22 2002
Return-Path: <12a1mailbot1@web.de>
Delivered-To: zzzz@localhost.spamassassin.taint.org
Received: from localhost (localhost [127.0.0.1])
by phobos.labs.spamassassin.taint.org (Postfix) with ESMTP id 136B943C32
for <zzzz@localhost>; Thu, 22 Aug 2002 08:17:21 -0400 (EDT)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" http-equiv=3DContent-T=
ype>
- 2 回答
- 0 關(guān)注
- 284 瀏覽
添加回答
舉報(bào)
0/150
提交
取消