объединить векторы на DataFrame
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)
Diana H
data<- data.frame(Age, ExactObs, NotYetSmoke, SmokedErlier)