if (FALSE) {
########## this is for reading in data
######## fn = "/home/lees/DONNA/donna_viking_1.csv"
## fn = "donna_viking_1.csv"
######## C1 = scan(file=fn, what=list(mm="", o18=""), sep=",")
######## x = as.numeric(C1$mm)
######## y = as.numeric(C1$o18)
########x = x[!is.na(y)]
########y = y[!is.na(y)]
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