# NOT RUN {
# calibrate a dataset comprising just two phases
data <- data.frame(age=c(5800, 5100),sd=c(40, 35),phase=c('p1', 'p2'), datingType='14C')
CalArray <- makeCalArray(shcal20, calrange = range(toy$year))
PD <- phaseCalibrator(data, CalArray)
# calculate toy model log likelihood
loglik(PD, toy)
# }
Run the code above in your browser using DataLab