library(haven)
library(readr)

HNIR62FL_data_2 <- read_sav("~/DHS/HNIR62SV/HNIR62FL_data_2.SAV")
getwd() # this is the folder it will save into unless you specify otherwise in the path below
write_csv(x=HNIR62FL_data_2, path="from_sav_data.csv")