Мне нужно вычислить оценки OLS, дифференцируя уравнение.Однако я не могу перевести уравнение в R. Я использую функцию lm() для моделирования уравнения.
R-код:
library(data.table)
library(sandwich)
library(lmtest)
library(DBI)
library(RSQLite)
library(tidyverse)
library(ggplot2)
library(plm)
library(margins)
con <- SQLite() %>% dbConnect('wooldridge.db')
rental <- con %>% dbReadTable('rentak') %>% data.table
rental <- con %>% dbReadTable('rental') %>% data.table
#The translated equation written by me which supposedly is giving the wrong answers upon running summary
fit <- lm(diff(lrent)~diff(lpop)+diff(lavginc)+diff(pctstu),data=rental) %>%
summary(fit)
Буду признателен за некоторые разъяснения относительно того же.