#При необходимости установите пакет
#install.packages("haven")

library(haven)

#Шаг 1. 
#Установите рабочую директорию (папку с данными) отсюда будут загружаться данные и сюда сохраняться (по умолчанию)
setwd("C:/your_folder/") 


#Шаг 2. Выберите название нужного файла с данными для загрузки
#(запустите строку с нужными данными)

#Данные по домохозяйствам (все волны опроса, с 2013 по 2024)
data_name <- ("database1-6_FB_household_261224s")

#Данные по индивидам (все волны опроса, с 2013 по 2024)
data_name <- ("database1-6_FB_individual_28112024")

#Данные по домохозяйствам (6-ая волна опроса, 2024 год)
data_name <- ("database_FB_household_261224s_6wave")

#Данные по индивидам (6-ая волна опроса, 2024 год)
data_name <- ("database_FB_individual_28112024_6wave")


#Шаг 3. Загрузите выбранный файл с данными в R
load(paste0(data_name, ".RData"))


#Шаг 4.Преобразуйте данные в выбранный формат
#Запустите соответствующую строку кода

#Вариант 1. данные в формате .sav (SPSS)
write_sav(data, paste0(data_name, ".sav"))

#Вариант 2. данные в формате .dta (Stata)
write_dta(data, paste0(data_name, ".dta"))

#Вариант 3. данные в формате .csv (Excel): значения в ячейках - текстовые
# Преобразуйте данные, чтобы сохранить лейблы
data <- haven::as_factor(data)
# Сохраните данные в формате CSV, используя только названия категорий
write.csv(data, paste0(data_name, ".csv"), row.names = FALSE, fileEncoding = "UTF-8")