Displaying 1 result from an estimated 1 matches for "53a3ff".
Did you mean:
e73a3ff
2010 Sep 13
1
Dampening the spline interpolation for contours
...n as follows:
tab<-read.table("data.txt")
library("akima")
png("contour.png", width = 1000, height=500)
colourRange<-colorRampPalette(c("#f9cd00","#f9cd00","#f9cd00","#f9cd00","#ffffff","#6afaff","#53a3ff","#53a3ff","#53a3ff"))
filled.contour(interp(x=tab$V1,tab$V2, tab$V3, xo=seq(min(tab$V1), max(tab$V1),length=1000),yo=seq(min(tab$V2), max(tab$V2),length=500), linear = FALSE), xlim = range(160,190),ylim = range(-30,-10), zlim=c(-4,4),color.palette = colourRange )
dev.off...