Wochenendpendeln mit Bahn + BahnCard 50 oder Auto—was ist billiger?

bahncard-vs-auto.Rmd

```{r echo = FALSE, results = 'show'}
library(knitr)
```

# Vergleich Pendeln mit Auto vs. Bahn mit BahnCard 50

```{r}
# Fahrten pro Jahr (Wochenenden pro Jahr abzgl. Urlaub/Feiertage)

n.fahrten <- (52 - 7) * 2 # Fahrten in eine Richtung

# Variablen Auto

kosten.km <- 0.3 # EUR/km (circa)
distanz.strasse <- 272 # km
benzinpreis <- 1.4 # EUR/l (Stand 09/2015)
verbrauch <- 0.074 # l/km
versicherung <- 72.51 * 12 # EUR/Jahr
kfzsteuer <- 86 # EUR/Jahr
km.jahr <- distanz.strasse * n.fahrten

fixkosten.auto <- versicherung + kfzsteuer # EUR/Jahr

# Variablen Bahn

preis.bc50 <- 255 # EUR
preis.fahrt <- 34.75 # EUR pro Fahrt (incl. BC 50 Rabatt)
```

## Kosten Auto

### Nur Benzin

```{r}
benzin.jahr <- n.fahrten * distanz.strasse * benzinpreis * verbrauch
benzin.jahr # EUR
benzin.jahr / 12 # EUR pro Monat

# Benzin + Fixkosten

benzin.jahr + fixkosten.auto

```

### Kilometerpauschale

```{r}
auto.jahr <- n.fahrten * distanz.strasse * kosten.km
auto.jahr
```

## Kosten Bahn

```{r}
bahn.jahr <- preis.bc50 + (n.fahrten * preis.fahrt)
bahn.jahr # EUR/Jahr

# plus Fixkosten Auto

bahn.jahr <- bahn.jahr + fixkosten.auto # EUR/Jahr
bahn.jahr
```

## Kosten pro km

```{r}
preis.fahrt / distanz.strasse
```

## Kosten Bahn vs. Auto

### Gespart durch Bahnfahren

```{r echo = FALSE}
if (auto.jahr > bahn.jahr) {
        print(paste('Auto fahren ist', round(auto.jahr - bahn.jahr, 2), 'Euro pro Jahr teurer als Bahn fahren.'))
} else {
        print(paste('Bahn fahren ist', round(bahn.jahr - auto.jahr, 2), 'Euro pro Jahr teurer als Auto fahren.'))
}
```

### Nach wievielen Heimfahrten hat sich BahnCard 50 gelohnt?

```{r}
# Durch Rabatt

preis.bc50 / (2 * preis.fahrt)

# Durch nicht-Auto-fahren

preis.bc50 / ((2 * distanz.strasse * kosten.km) - 2 * preis.fahrt)
```