Displaying 1 result from an estimated 1 matches for "bbstum".
2010 Aug 02
1
read the middle of a file
...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),nlevels=20,add=TRUE)
map('worldHires',xlim=range(y...