#**************************************************************
#* Umwandeln der Mehrfachangaben in HOECHST_BERUFL_ABSCHL_IMP *
#**************************************************************

# Ziel: Anlegen neuer Merkmale für jede Ausprägung.

# Vorhandene Codes:
# 1 = Anlernausbildung 
# 2 = Berufliches Praktikum von mindestens 12 Monaten
# 4 = Berufsvorbereitungsjahr 
# 8 = Lehre (Ausbildung), Berufsausbildung im dualen System 
# 16 = Erzieherin/Erzieher
# 32 = Berufsabschluss an einer Berufsfachschule, Kollegschule 
# 64 = Laufbahnprüfung für den mittleren Dienst in der öffentlichen Verwaltung 
# 128 = Einjährige Ausbildung in einem Gesundheits- oder Sozialberuf
# 256 = Zwei- oder dreijährige Ausbildung in einem Gesundheits- oder Sozialberuf (z. B. Krankenpflege, PTA, MTA)
# 512 = Meisterin/Meister 
# 1024 = Technikerin/Techniker oder gleichwertiger Fachschulabschluss 
# 2048 = Abschluss einer Fachschule der DDR 
# 4096 = Abschluss einer Fachakademie (nur in Bayern)
# 8192 = Bachelor 
# 16384 = Master 
# 32768 = Diplom (FH)
# 65536 = Diplom an Berufsakademien 
# 131072 = Diplom (Universität), Lehramtsprüfung, Staatsexamen, Magistra/Magister, künstlerischer Abschluss oder vergleichbarer Abschluss an einer Universität
# 262144 = Promotion


df <- read.csv("HIER_PFAD_EINFUEGEN")

x <- as.numeric(df$HOECHST_BERUFL_ABSCHL_IMP)

codes <- c(
  ABSCHL_PROMOTION = 262144,
  ABSCHL_DIPLOM_UNI = 131072,
  ABSCHL_DIPLOM_BA = 65536,
  ABSCHL_DIPLOM_FH = 32768,
  ABSCHL_MASTER = 16384,
  ABSCHL_BACHELOR = 8192,
  ABSCHL_FA = 4096,
  ABSCHL_FS = 2048,
  ABSCHL_TECHNIKER = 1024,
  ABSCHL_MEISTER = 512,
  ABSCHL_AUSB_LANG = 256,
  ABSCHL_AUSB_KURZ = 128,
  ABSCHL_LAUFBAHN_MD = 64,
  ABSCHL_BFS = 32,
  ABSCHL_ERZIEHER = 16,
  ABSCHL_LEHRE = 8,
  ABSCHL_BVJ = 4,
  ABSCHL_PRAKTIKUM = 2,
  ABSCHL_ANLERN = 1
)

for(n in names(codes)){
  df[[n]] <- ifelse(!is.na(x) & bitwAnd(x, codes[n]) > 0, "1", "")
}

write.csv(df, "HIER_PFAD_EINFUEGEN", row.names = FALSE)