# Paket Laden
library(haven)

# Laden der Datei
covid <- read_sav("covid-data.sav")

# Übersicht
#install.packages("dplyr")
library(dplyr)
glimpse(covid)

data()

# Check to load XLSX Dateien ----
library(openxlsx)

# Bonn Dateien
Bonn <- readRDS("BonnBevoelkerung.rds")
glimpse(Bonn)

# Summary
summary(Bonn)
summary(Bonn$Jahr)
summary(as.factor(Bonn$Jahr))

Bonn$BezirkNr
unique(Bonn$BezirkNr)
length(unique(Bonn$BezirkNr))

head(Bonn)
tail(Bonn)