if (FALSE) {
data(euroevol)
Ireland <- subset(euroevol,Country=="Ireland")
bins <- binPrep(Ireland$SiteID,Ireland$C14Age,h=200)
x <- calibrate(Ireland$C14Age,Ireland$C14SD)
spd.ireland <- spd(x,bins=bins,runm=200,timeRange=c(8000,4000))
plot(spd.ireland)
}
Run the code above in your browser using DataLab