{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

library(wooldridge)
data(kielmc, package = 'wooldridge')
library(rmarkdown)
paged_table(kielmc)
?kielmc
  1. SORU

\[log(price) = \hat{\beta }_0 + \hat{\beta }_1log(dist) + u. \]

lm(log(price) ~ log(dist) , data = kielmc)

1.CEVAP

2.SORU

\[log(price) = \hat{\beta }_0 + \hat{\beta }_1log(dist) + \hat{\beta }_2log(intst) + \hat{\beta }_3log(area) + \hat{\beta }_4log(land) + \hat{\beta }_5rooms + \hat{\beta }_6baths + \hat{\beta }_7age + u. \]

ilkregesyon<- lm(log(price) ~ log(dist) + log(intst) + log(area) + log(land) + rooms + baths + age , data = kielmc)
summary(ilkregesyon)

  1. CEVAP

  2. SORU

\[log(price) = \hat{\beta }_0 + \hat{\beta }_1log(dist) + \hat{\beta }_2log(intst) + \hat{\beta }_3[log(intst)]^2 + \hat{\beta }_4log(area) + \hat{\beta }_5log(land) + \hat{\beta }_6rooms + \hat{\beta }_7baths + \hat{\beta }_8age + u. \]

basitregesyon<- lm(log(price) ~ log(dist) + log(intst) + lintstsq + log(area) + log(land) + rooms + baths + age , data = kielmc)
summary(basitregesyon)

3.CEVAP

4.SORU

\[log(price) = \hat{\beta }_0 + \hat{\beta }_1log(dist) + \hat{\beta }_2[log(dsit)]^2 + \hat{\beta }_3log(intst) + \hat{\beta }_4[log(intst)]^2 + \hat{\beta }_5log(area) + \hat{\beta }_6log(land) + \hat{\beta }_7rooms + \hat{\beta }_8baths + \hat{\beta }_9age + u. \]

basitregesyon<- lm(log(price) ~ log(dist) + y81ldist + log(intst) + lintstsq + log(area) + log(land) + rooms + baths + age , data = kielmc)
summary(basitregesyon)

4.CEVAP