Skip to content
Prev 171027 / 398503 Next

Unadulterated plot

good point! Provide your own set of x,y,z co-ords, mine are pretty big
but you can use any.

library(akima)

fr3d = data.frame(x,y,z)
xtrp <- interp(fr3d$x,fr3d$y,fr3d$z,linear=FALSE,extrap=TRUE,duplicate=
"strip") 

op <- par(ann=FALSE, mai=c(0,0,0,0))
filled.contour(xtrp$x, xtrp$y, xtrp$z, asp = 0.88402366864, col =
rev(rainbow(28,start=0, end=8/12)), n = 40)
par(op)

I tried all these settings too (none of them made a difference)...
usr=c(0,845,0,747), mfcol=c(1,1), mfrow=c(1,1),
oma=c(0,0,0,0),omi=c(0,0,0,0), plt=c(1,1,1,1)

Regards
James
Peter Alspach wrote: