Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Wochenendpendeln mit Bahn + BahnCard 50 oder Auto—was ist billiger?
```{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)
```
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.