Metals <- read.xport("PBCD_J.XPT")
Cholesterol <- read.xport("TCHOL_J.XPT")
nhanes_combined <- list(Metals,Cholesterol) %>%
Reduce(function(df1, df2) inner_join(df1, df2, by = "SEQN"), .)
nhanes_combined %>%
select(LBXBCD,LBXTHG,LBXBPB,LBXTC,LBXBSE) %>%
rename(Mercury = LBXTHG) %>%
rename(Cadmium = LBXBCD) %>%
rename(Lead = LBXBPB) %>%
rename(Selenium =LBXBSE) %>%
rename(Cholesterol = LBXTC)
complete_nhanes <- na.omit(nhanes_combined)
Error in select(., LBXBCD, LBXTHG, LBXBPB, LBXTC, LBXBSE) :
unused arguments (LBXBCD, LBXTHG, LBXBPB, LBXTC, LBXBSE)
I do not know what is happening??