if (FALSE) {
data(euroevol)
#subset Danish dates
denmark=subset(euroevol,Country=="Denmark")
denmarkDates=calibrate(x=denmark$C14Age,errors=denmark$C14SD)
binsense(x=denmarkDates,y=denmark$SiteID,h=seq(0,200,20),timeRange=c(10000,4000),runm=200)
}
Run the code above in your browser using DataLab