# NOT RUN {
# }
# NOT RUN {
require(paleofire)
ID=pfSiteSel(c(1:10))
obj=potveg(ID,classif="l12")
plot(obj)
#Return a ggplot object
require(ggplot2)
p=plot(obj,text=TRUE,alpha=1)
p+ggtitle("My title")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab