Publications by thongke.club
Regress OLS with 10 test
Hồi quy OLS với 7 sai phạm thường gặp Kết nối dữ liệu setwd("c:/vidu") library(readxl) dulieu <- read_excel("data15.10.xlsx") head(dulieu) ## # A tibble: 6 x 17 ## Year Time KFDI LnKFDI VFDI LnVFDI EXP LnEX IMP LnIM EXC LnEXC ## <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #...
423 sym R (4465 sym/48 pcs) 4 img
Malmquist Productivity Index
1. Đọc dữ liệu setwd("c:/vidu") library(readxl) dulieu <- read_excel("tfpEX.xlsx") dulieu <-data.frame(dulieu) head(dulieu) ## GDP X1 X2 X3 K L LnGDP LnL ## 1 95.74777 38.91503 42.57564 42.66912 67.33140 74.47892 18.24687 4.209627 ## 2 103.47966 51.50233 42.03560 40.97754 77.49099 78.9...
209 sym R (22259 sym/52 pcs) 4 img
Exploratory Factor Analysis in R
I Kết nối dữ liệu library(foreign) setwd("c:/vidu") dulieu <-read.dta("EFA.dta") head(dulieu) ## SAT1 SAT2 SAT3 SAT4 RAS1 RAS2 RAS3 RAS4 COM1 COM2 COM3 COM4 PAM1 PAM2 PAM3 ## 1 4 1 4 3 3 3 2 3 2 2 3 2 4 4 5 ## 2 5 5 4 5 1 2 3 5 5 5 5 5 2 2 2 ...
244 sym R (31711 sym/71 pcs) 7 img
CB_SEM lavaan
R Markdown ** pvalue Chi2 < 0.05, CFI & TLI > 0.9, RMSEA < 0.08 RMSA < 0.08** 1. CFA 1.1 Ước lượng nhận tố khẳng định CFA setwd("/vidu") library(foreign) dulieu <- read.dta("EFA.dta") library(lavaan) ## This is lavaan 0.6-5 ## lavaan is BETA software! Please report any bugs. mohinh <-"SAT =~ SAT1 + SAT2 + SAT3 + SAT4 \n RAS=~R...
210 sym R (13791 sym/17 pcs) 2 img
PLS_SEM with plspm in R
Tải dữ liệu setwd("c:/vidu") library(plspm) library(foreign) dulieu <-read.dta("EFA.dta") attach(dulieu) head(dulieu) ## SAT1 SAT2 SAT3 SAT4 RAS1 RAS2 RAS3 RAS4 COM1 COM2 COM3 COM4 PAM1 PAM2 PAM3 ## 1 4 1 4 3 3 3 2 3 2 2 3 2 4 4 5 ## 2 5 5 4 5 1 2 3 5 5 5 ...
259 sym R (20466 sym/42 pcs) 7 img
Toi pham ma tuy Vi_Ca
đọc dữ liệu setwd("d:/DATA2020/NamKhanh_Q4") library(readxl) dulieu <-read_excel("data.xlsx") head(dulieu) ## # A tibble: 6 x 14 ## No Y Stage Year Scope1 Sinner1 Heroin Opium CrackCocaine Meth Hashish ## <dbl> <dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> ## 1 1 0 befo~ 2005 184 ...
349 sym R (10395 sym/57 pcs) 9 img 1 tbl
corr Tuong quan
1. Kết nối dữ liệu data(mtcars) dulieu <-mtcars[,c("mpg","disp","hp","drat","wt","qsec")] attach(dulieu) head(dulieu) ## mpg disp hp drat wt qsec ## Mazda RX4 21.0 160 110 3.90 2.620 16.46 ## Mazda RX4 Wag 21.0 160 110 3.90 2.875 17.02 ## Datsun 710 22.8 108 93 3.85 2.320 18.61 ## Horn...
375 sym R (3276 sym/42 pcs) 6 img
DoThi Multi_line
1. Kết nối dữ liệu dulieu <-read.csv("http://solieu.vip/csv/dothi2.csv") head(dulieu) ## ï..STT Tinh Nam GDP Ploai Bap Lua Heo Ga ## 1 1 Long An 2020 -11 Tinh1 18.43 15.45 21.99 30.61 ## 2 2 Dong Thap 2020 -13 Tinh2 9.24 27.78 27.55 25.69 ## 3 3 An Giang 2020 -15 Tinh3 14.87 22.49 21.36 20.07 ...
141 sym R (2341 sym/12 pcs) 4 img
DoThi Thap So sanh
ĐỒ THỊ HÌNH THÁP SO SÁNH GIÁ TRỊ GDP 2020 vs 2021 Làm nổi bậc lên tốt nhất 1. Lấy dữ liệu dulieu <-read.csv("http://solieu.vip/csv/dothi2.csv") attach(dulieu) dulieu <-dulieu[order(dulieu$GDP),] head(dulieu) ## ï..STT Tinh Nam GDP Ploai Bap Lua Heo Ga ## 13 13 Can Tho 2020 -35 Tinh13 21....
187 sym R (1676 sym/11 pcs) 3 img
DoThi Dumbble So sanh 2 moc
ĐỒ THỊ DUMBBEL BIỂU ĐỒ SO SANH CPI 2019 vs 2020 ** VIỆT NAM ** THỰC HIỆN VẼ ĐỒ THỊ TRÊN R 1. Lấy dữ liệu về library(ggplot2) library(ggalt) ## Registered S3 methods overwritten by 'ggalt': ## method from ## grid.draw.absoluteGrob ggplot2 ## grobHeight.absoluteGrob ggplot2 ## gr...
415 sym R (5302 sym/14 pcs) 4 img