-A4_Reading_Writing_SAV_Files.R

library(haven)

# Reading sav file
df_sav <- read_sav("/home/data_pspp.sav", user_na=T)

# Reading csv file
pth="/home/Data_For_Analysis/"
file="data_whole.csv"

data_0     = read.csv( paste0(pth, file), header = TRUE, sep = ",", quote = "" )

df_sav$Περιφέρεια <- trimws( data_0$Περιφέρεια )


write_sav(df_sav, "/home/data_pspp_0.sav")