library(NHANES)

id<-NHANES$ID
year<-NHANES$SurveyYr
gender<-NHANES$Gender
age<-NHANES$Age
race1<-NHANES$Race1
race3<-NHANES$Race3
educ<-NHANES$Education
married<-NHANES$MaritalStatus
hhinc<-NHANES$HHIncome
poverty<-NHANES$Poverty
homerooms<-NHANES$HomeRoom
homeown<-NHANES$HomeOwn
weight<-NHANES$Weight
bmi<-NHANES$BMI
pulse<-NHANES$Pulse
bpsys<-NHANES$BPSysAve
bpdia<-NHANES$BPDiaAve
dirchol<-NHANES$DirectChol
totchol<-NHANES$TotChol
physact<-NHANES$PhysActive
alcday<-NHANES$AlcoholDay
alcyear<-NHANES$AlcoholYear
smoke<-NHANES$SmokeNow
my.nh<-data.frame(id,year,gender,age,race1,race3,educ,married,hhinc,poverty,
homerooms,homeown,weight,bmi,pulse,bpsys,bpdia,dirchol,totchol,physact,alcday,alcyear)
my.nh.cc<-my.nh[complete.cases(my.nh),]
dim(my.nh.cc)

#write.csv(my.nh.cc,'nhanes-sub.csv')