powered by
data(BU)
data(BU) polyplot(BU[,1:3],Wk=BU[,4])
Run the code above in your browser using DataLab