# NOT RUN {
data(NUTRIAGE)
attach(NUTRIAGE)
situation <- as.factor(situation)
levels(situation) <- c("seul","couple","famille","autre")
diagcroix(situation,col=c("orange","darkgreen","black","tan"))
detach(NUTRIAGE)
# }
Run the code above in your browser using DataLab