##Multilevel data frame of tree-ring widths:
data(Prings05,envir = environment())
## Radial increments measured on 2003:
data(Pradii03,envir = environment())
## Getting the factor-level names at sample level
ntl <- names(splitFrame(Prings05,'sample'))
## Releveling the radii
refs <- levexp(Pradii03,ntl)
Run the code above in your browser using DataLab