# NOT RUN {
data(NUTRIAGE)
attach(NUTRIAGE)
situation <- as.factor(situation)
levels(situation) <- c("seul","couple","famille","autre")
col <- c("gray","orangered","lightgoldenrodyellow","red")
tuyauxorgue(situation,col)
detach(NUTRIAGE)
# }
Run the code above in your browser using DataLab