# NOT RUN {
str(Presiden)
attach(Presiden)
table(Birt)
pie(table(Birt))
stripchart(x=list(Inaugage,Deathage),method="stack",
group.names=c("Inaugural Age","Death Age"),col=c("green","brown"),pch=19)
detach(Presiden)
# }
Run the code above in your browser using DataLab