#loading data
## Not run:
# data(ring.raw)
# data(ring.stand)
# data(dbh.po.nc)
#
# #Subset near-pith is the material within 0 -20cm from the estimated pith
# spline200.sub0.20.n <- TruncSeriesPithoffset( ring.raw, ring.stand, dbh.po.nc, c(1,200))
# # Subset far-pith is the material further than 20cm from the estimated pith
# spline200.sub20.2000.n <- TruncSeriesPithoffset( ring.raw, ring.stand, dbh.po.nc, c(200,200000))
#
# # series.bootstapped
# boot.0.20 <- series.bootstrap( spline200.sub0.20.n$sub.series.stand,
# stat, 999, names.stat, aver.by.tree = FALSE)
# boot.20.2000 <- series.bootstrap(spline200.sub20.2000.n$sub.series.stand,
# stat, 999, names.stat, aver.by.tree = FALSE)
#
# overall.precision.HUP <- overall.concordance.period(spline200.sub20.2000.n$sub.series.stand ,
# spline200.sub0.20.n$sub.series.stand,
# boot.20.2000$boot.series.mean, boot.0.20$boot.series.mean ,
# 1 , concordance.indices, c(1880,1999), trim.alpha=0.005, concordance.beta=0.5)
# ## End(Not run)
Run the code above in your browser using DataLab