attach(examples)
fit <- isochron(PbPb,plot=FALSE,exterr=FALSE)
err <- ci(x=fit$age[1],sx=fit$age[-1],oerr=5,df=fit$df)
message('age=',signif(fit$age[1],4),'Ma, ',
'2se=',signif(err[1],2),'%, ',
'2se(with dispersion)=',signif(err[2],2),'%')
Run the code above in your browser using DataLab