PT <- read.HMdata(system.file("PT.csv",package="provenance"))
q <- PT$x[,'Q']
f <- PT$x[,'KF'] + PT$x[,'P']
l <- PT$x[,'Lm'] + PT$x[,'Lv'] + PT$x[,'Ls']
ternaryplot(q,f,l,type='QFL.dickinson',labels=names(PT))Run the code above in your browser using DataLab