if (FALSE) {
data(CLAM1)
x = CLAM1$x
y = CLAM1$y
dx = 3.392
gout = proxyJK(x, y, dx)
plotproxy1(x, y, gout)
par(mfrow=c(2,1))
plotproxy.error(x, y, gout, type = 1)
plotproxy.error(x, y, gout, type = 2)
par(mfrow=c(2,1))
plotproxy.error(x, y, gout, type = 2)
plotproxy.all2(gout,YAXstyle=1 )
}
Run the code above in your browser using DataLab