draft70=read.table("draft70.txt",header=T)
draft71=read.table("draft71.txt",header=T)
attach(draft70)
boxplot(DraftNo[Month=="Jan"],
DraftNo[Month=="Feb"],
DraftNo[Month=="Mar"],
DraftNo[Month=="Apr"],
DraftNo[Month=="May"],
DraftNo[Month=="Jun"],
DraftNo[Month=="Jul"],
DraftNo[Month=="Aug"],
DraftNo[Month=="Sep"],
DraftNo[Month=="Oct"],
DraftNo[Month=="Nov"],
DraftNo[Month=="Dec"],
names=c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"),
main="1970 Draft",xlab="Month",ylab="Draft number")

detatch(draft70)
attach(draft71)
boxplot(DraftNo[Month=="Jan"],
DraftNo[Month=="Feb"],
DraftNo[Month=="Mar"],
DraftNo[Month=="Apr"],
DraftNo[Month=="May"],
DraftNo[Month=="Jun"],
DraftNo[Month=="Jul"],
DraftNo[Month=="Aug"],
DraftNo[Month=="Sep"],
DraftNo[Month=="Oct"],
DraftNo[Month=="Nov"],
DraftNo[Month=="Dec"],
names=c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"),
main="1971 Draft",xlab="Month",ylab="Draft number")