## Calculate pointer years using interval.trend
## for a specified period and create a plot
data(s033)
IT <- interval.trend(s033, period = c(1950,2010), make.plot = TRUE)
## Calculate pointer years as years with at least 90% of the trees
## showing a positive/negative interval trend
data(s033)
IT <- interval.trend(s033, IT.thresh = 90)
IT$out[which(IT$out$nature == 1),"year"]
IT$out[which(IT$out$nature == -1),"year"]
Run the code above in your browser using DataLab