# NOT RUN {
data(dhb_cars)
tris<-tri_alloc(dhb_cars[,-1], c("green","gold","orange","goldenrod"), names=dhb_cars$dhb )
dhtri(tri_colours=tris,
legend=list(fill=c("green","gold","orange","goldenrod"),
border=NA,
legend=c("0","1","2","3+"),
title="Cars/Household")
)
# }
Run the code above in your browser using DataLab