# NOT RUN {
data(pocmaj)
qualifierplot(pocmaj, c("core", "depth"), "Ca")
pocmajqt <- as.qtag(pocmaj, id.vars=c("core", "depth"))
plot(pocmajqt, geom=c("path", "point"))
plot(pocmajqt, subset=core=="MAJ-1" & param %in% c("Ca", "Ti"))
plot(pocmajqt, shape="core", geom=c("path", "point"))
plot(long(pocmajqt))
library(ggplot2)
autoplot(pocmajqt, col="core")
# }
Run the code above in your browser using DataLab