Kinh Tế Lượng

Kết quả mô hình nghiên cứu

Thống kê mô tả

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(xlsx)
#Gán dữ liệu vào biến data để thực hiện 
data <- read.xlsx("C:/Users/Admin/Desktop/KTL/HOASENGROUP.xlsx", sheetIndex = 1, header = T)
#Phương sai sai số trong mô hình
moc <- lm(LNST~DTT+ROAA+ROS, data= data)
plot(moc)

#Thống kê dữ liệu
data %>% lm(LNST~DTT+ROAA+ROS,data= .) %>%
  summary()

## 
## Call:
## lm(formula = LNST ~ DTT + ROAA + ROS, data = .)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -372977  -80585   18260   67827  348918 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -2.176e+05  3.906e+04  -5.570 9.10e-07 ***
## DTT          3.075e-02  5.497e-03   5.594 8.37e-07 ***
## ROAA         2.387e+05  4.670e+04   5.110 4.69e-06 ***
## ROS         -4.209e+04  2.150e+04  -1.958   0.0556 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 124700 on 52 degrees of freedom
## Multiple R-squared:  0.8808, Adjusted R-squared:  0.8739 
## F-statistic: 128.1 on 3 and 52 DF,  p-value: < 2.2e-16

Từ bảng kết quả trên, ta xây dựng được mô hình sau:

• LNST = -2.176e+05 + 3.075e-02.DTT + 2.387e+05.ROAA

Ta thấy được chỉ số R-squared trong mô hình là 0.8808 có ý nghĩa như sau sự biến thiên của các biến độc lập như ROAA, DTT giải thích được xấp xỉ 88.1% sự biến thiên của LNST

Do có chỉ số probabiliti là 0.0556 lớn hơn mức ý nghĩa 5% nên biến ROS không có ý nghĩa thống kê trong mô hình trên.