Displaying 1 result from an estimated 1 matches for "bbst".
Did you mean:
bbs
2010 Aug 02
1
read the middle of a file
...# discard top-to long
rm(b)
ti1 <- proc.time()
b <- NULL
for(i in 1:nla) {
b <- c(b,readLines(con,n=nlo+2)) # read line and accumulate
readLines(con,n=360 * 60 - nlo-2) # discard rest of the line
}
#
ti2 <- proc.time()
bbst <- strsplit(b,",") # b is list of records (strings), change to reals
bbstu <- unlist(bbst)
bbstun <- as.numeric(bbstu)
bbstum <- matrix(bbstun,ncol=3,byrow=TRUE)
dim(bbstum)
z <- matrix(bbstum[,3],ncol=nlo+2 ,byrow=TRUE)
x <- rev(unique(bbstum[,2]))
y <- unique(bbstu...