## Not run: #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))
# boot.0.20 <- series.bootstrap( spline200.sub0.20.n$sub.series.stand, stat, 999,
# names.stat, aver.by.tree = FALSE)## End(Not run)
Run the code above in your browser using DataLab