setwd("C:/Users/Simon.Knaus/git/ffstat/")
cardata <- read.table("bmw_data.csv",header = T,sep=";")
head(cardata) # Erste Zeilen (6) anzeigen
unique(cardata$model)
unique(cardata$treibstoff)

# Nur die Modelle 'x1'
selected <- cardata$model=="x1" 
# wie schaut der Vektor aus?
head(selected)
# Wie viele sind's? sum zählt TRUE als 1, FALSE als 0
sum(selected)

# Daten auswählen, d.h. Zeilen auswählen
regdata <- cardata[selected,]