---
title: "Hausaufgabe 2 zur Vorlesung 'Programmierung für Data Science'"
author: "VORNAME NACHNAME (MATRIKELNUMMER)"
format:
  html:
    embed-resources: true
---

```{r setup}
#| echo: false
#| message: false
#| warning: false
library(dplyr)
library(ggplot2)

# ---- Lokale RDS-Dateien ----
# Legen Sie die per Teams verteilten .rds-Dateien in den Unterordner
# `mobilfhunk_rds` relativ zu diesem Quarto-Dokument.
data_dir <- "mobilfhunk_rds"

read_local_rds <- function(name) {
  path <- file.path(data_dir, paste0(name, ".rds"))
  if (!file.exists(path)) {
    stop(paste("Datei nicht gefunden:", path), call. = FALSE)
  }
  readRDS(path)
}

customers          <- read_local_rds("customers")
devices            <- read_local_rds("devices")
device_assignments <- read_local_rds("device_assignments")
subscriptions      <- read_local_rds("subscriptions")
tariffs            <- read_local_rds("tariffs")
call_logs          <- read_local_rds("call_logs")
sms_logs           <- read_local_rds("sms_logs")
data_usage         <- read_local_rds("data_usage")
```

## 1. Aufgabe – Heavy User (2 Punkte)

### Lösung

```{r a1}
#| echo: true


```

### Erläuterung

*(kurze Interpretation einfügen)*

## 2. Aufgabe – Tarifdatenvolumen und tatsächliche Nutzung (4 Punkte)

### Lösung

```{r a2}
#| echo: true


```

### Erläuterung

*(zentrale Ergebnisse zu Auslastung, Zusammenhang mit der Grundgebühr und zur Visualisierung kurz erläutern)*

## 3. Aufgabe – Geräte & Nutzung im Vergleich (4 Punkte)

### Lösung

```{r a3}
#| echo: true

```

### Erläuterung

*(zentrale Beobachtungen zur gewählten Vergleichsdimension und zur Visualisierung kurz herausarbeiten; verwenden Sie nur aktuelle Gerätezuordnungen mit `assigned_to` = `NA`)*
