data(ca533)
ca533.rwi <- detrend(rwl = ca533, method = "ModNegExp")
ca533.crn <- chron(ca533.rwi, prefix = "CAM", prewhiten = FALSE)
Years <- as.numeric(rownames(ca533.crn))
CAMstd <- ca533.crn[,1]
wavelet.plot(CAMstd,Years,p2=9,siglvl=0.99,main="CAMstd")
Run the code above in your browser using DataLab