ds=read.table("Deaths-all-br-lung-Que1971-2002.csv",sep=",",header=T)
attach(ds)
data2002 = ds[year==2002,]