data <- read.csv2("C:/temp/bmw_data.csv")
head(data)
str(data)

newdata <- subset(data,model=="x5")
boxplot(newdata$preis)
hist(newdata$preis, col="blue")