load sas7bdat

setwd('C:\\Users\\fanning1207\\Downloads\\Master_Nutrition_201410')
library(haven)
a=Sys.time()
dat=read_sas('nutr1_00.sas7bdat')
Sys.time()-a
write_dta(dat,'C:\\Users\\fanning1207\\Desktop\\STATA\\nutr1_00.dta', version = 11)