menyatukan vektor ke dataaframe
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)
Diana H
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)