Displaying 1 result from an estimated 1 matches for "bbstu".
Did you mean:
bbstum
2010 Aug 02
1
read the middle of a file
...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(bbstum[,1])
#
sz <- apply(z,2,rev)
image(y,x,t(sz),col=topo.colors(20))
contour(y,x,t(sz),n...