---
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(dbplyr)
library(DBI)
library(RPostgres)
library(ggplot2)

# ---- Datenbankverbindung ----
# In der Workbench:
con <- dbConnect(odbc::odbc(), "mobilfhunk", timeout = 10)

# Außerhalb der Workbench:
# con <- dbConnect(
#   RPostgres::Postgres(),
#   host     = "wi-sql.fh-muenster.de",
#   port     = 5432,                
#   dbname   = "mobilfhunk",        
#   user     = "wi_student",     
#   password = "w12019sql"
# )

# ---- Lazy Tables ----
customers          <- tbl(con, "customers")
devices            <- tbl(con, "devices")
device_assignments <- tbl(con, "device_assignments")
subscriptions      <- tbl(con, "subscriptions")
tariffs            <- tbl(con, "tariffs")
call_logs          <- tbl(con, "call_logs")
sms_logs           <- tbl(con, "sms_logs")
data_usage         <- tbl(con, "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`)*
