# NOT RUN {
data(PaPiRaw)
data(PaPiSpan)
PaPi <- detectRings(PaPiRaw, PaPiSpan)
PaPi <- combineFrag(PaPi)
PaPi <- detectEwLw(PaPi)
rwls <- getRwls(PaPi)
names(rwls)
library(dplR)
rwl.report(rwls$trw)
library(detrendeR)
RwlInfo(rwls$trw)
# }
Run the code above in your browser using DataLab