Displaying 1 result from an estimated 1 matches for "ti3".
Did you mean:
ti
2010 Aug 02
1
read the middle of a file
...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),ylim=range(x),add=TRUE,lwd=2)
#
ti3 <- proc.time()
ti1 - ti0
ti2 - ti1
ti3 - ti2
and the timings are:
> tasmania
ti1 - ti0
user system elapsed
563.06 1.40 578.02
> ti2 - ti1
user system elapsed
26.74 0.08 26.97
> ti3 - ti2
user system elapsed
2.76 1.42 4.21
> #
So it takes me 10 minu...