R中的readBin可以用来读取不同的列不同类型的数据,如:
read.DET.data <- function(f) {
counter <- 1
col1.v <- c()
col2.v <- c()
col3.v <- c()
fid <- file( f ,"rb")
tempi <- readBin(fid,"int", n=1)
while ( length(tempi) != 0) {
col1.v[ counter ] <- tempi
col2.v[ counter ] <- readBin(fid, numeric(),n=1)
col3.v[ counter ] <- readBin(fid, character(),n=1)
counter <- counter + 1
tempi <- readBin(fid, integer(),n=1)
}
close( fid )
data.frame(col1=col1.v,col2=col2.v,col3=col3.v)
#list(col1.v,col2.v,col3.v)
}
zz <- file("testbin", "wb")
writeBin(1:1, zz)
writeBin(3.23, zz)
writeBin("char1",zz)
writeBin(2:2, zz)
writeBin(2*3.23, zz)
writeBin("char2",zz)
close(zz)
read.DET.data("testbin")
# col1 col2 col3
#1 1 3.23 char1
#2 2 6.46 char2
但首先你得对你的日线文件的数据格式有了解。呵呵。