Unite Vectors to DataFrame
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)
Diana H
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)