# NOT RUN {
data(veuvage)
par(mfrow = c(3,2))
for (j in 1:6) plot(veuvage$age, veuvage$tab[,j],
xlab = "age", ylab = "pourcentage de veufs",
type = "b", main = names(veuvage$tab)[j])
# }
Run the code above in your browser using DataCamp Workspace