unir vetores para dataframe
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)
Diana H
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)