load("kuiper.RData")

kruiser$Cylinder<-as.factor(kruiser$Cylinder)

kruiserepit<-kruiser[1:402,]

kruiserteszt<-kruiser[403:804,]

modellunk<-with(kruiserepit,lm(Price ~ Mileage + Cylinder + Sound + Leather))

summary(modellunk)