demo/cs18.r

data (mazda.df)
mazda.df<-within(mazda.df,{age<-91-year})
plot(price~age,main="Mazda Car Prices",data=mazda.df)
trendscatter(price~age,data=mazda.df)
trendscatter(log(price)~age,data=mazda.df)
mazda.fit<-lm(log(price)~age,data=mazda.df)
residPlot(mazda.fit)
eovcheck(mazda.fit)
normcheck(mazda.fit)
summary(mazda.fit)
exp(ciReg(mazda.fit))

Try the s20x package in your browser

Any scripts or data that you put into this service are public.

s20x documentation built on Aug. 21, 2023, 5:07 p.m.