# NOT RUN {
a <- data.frame(id = 1, top = c(0,10), bottom=c(10,40), texture=c("A","Bw"))
depths(a) <- id ~ top + bottom
# store guess in metadata
hzdesgnname(a) <- guessHzTexClName(a)
# inspect result
hzdesgnname(a)
# }
Run the code above in your browser using DataLab