load("kruiser.RData")

View(kruiser)

options(scipen = 999)


modellunkkezdet<-with(kruiser,lm(Price ~ Mileage + Cylinder + Sound + Leather))
summary(modellunkkezdet)


library(lm.beta)
modellunkkezdet<-lm.beta(modellunkkezdet)
summary(modellunkkezdet)



modellunkkezdet2<-with(kruiser,lm(Price ~ Mileage + Liter + Sound + Leather))
summary(modellunkkezdet2)

modellunkkezdet3<-with(kruiser,lm(Price ~ Mileage + Cylinder + Liter + Sound + Leather))
summary(modellunkkezdet3)



# https://www.stat.berkeley.edu/~s133/factors.html

fert <- c(10,20,20,50,10,20,10,50,20)
fert <- factor(fert,levels=c(10,20,50))

fert

mean(fert)
mean(as.numeric(as.character(fert)))


fert[4]<-"30"
levels(fert)<-c(levels(fert),"30")
levels(fert)
fert[4]<-"30"

fert

fert<-factor(fert,levels=c(10,20,30,50),ordered=TRUE)

fert



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

str(kruiser)



modellunkkezdet4<-with(kruiser,lm(Price ~ Mileage + Cylinder + Sound + Leather))

summary(modellunkkezdet4)


kruiser$Priceb<-fitted(modellunkkezdet4)
View(kruiser)
kruiser$Pricebb<-predict(modellunkkezdet4,kruiser)
View(kruiser)



modellunkintermake<-with(kruiser,lm(Price ~ Mileage + Cylinder + Sound + Make+Mileage:Cylinder))
summary(modellunkintermake)


kruiser$Pricebszuper<-predict(modellunkintermake,kruiser)

kruiser$Priceszupera<-fitted(modellunkintermake)

plot(kruiser$Price,kruiser$Pricebszuper)