Publications by Thach Tran

VLU Workshop on Machine Learning - Day 4

09.06.2023

Van Lang University Workshop on Machine Learning - Day 4: Multivariate models Việc 1. Mô hình phân định tuyến tính (Linear Discriminant Analysis) 1.1 Đọc dữ liệu biopsy vào R biopsy = read.csv("C:\\Thach\\VLU workshop (Jun2023)\\Datasets\\biopsy.csv") dim(biopsy) ## [1] 683 11 head(biopsy) ## ID V1 V2 V3 V4 V5 V6 V7 ...

1557 sym R (8476 sym/66 pcs) 8 img

VLU Workshop on Machine Learning - Day 4

07.06.2023

Van Lang University Workshop on Machine Learning - Day 4: Multivariate models Việc 1. Mô hình phân định tuyến tính (Linear Discriminant Analysis) 1.1 Đọc dữ liệu biopsy vào R biopsy = read.csv("C:\\Thach\\VLU workshop (Jun2023)\\Datasets\\biopsy.csv") dim(biopsy) ## [1] 683 11 head(biopsy) ## ID V1 V2 V3 V4 V5 V6 V7 ...

1495 sym R (9163 sym/59 pcs) 9 img

VLU Workshop on Machine Learning - Day 5

07.06.2023

Van Lang University Workshop on Machine Learning - Day 5: Multivariate models (2) Việc 1. Dùng phương pháp Random forest để phân loại ung thư qua cách tiếp cận Machine Learning Đọc dữ liệu ung thư vú (Wisconsin Breast Cancer Dataset) bc = read.csv("C:\\Thach\\VLU workshop (Jun2023)\\Datasets\\wisc_bc_data.csv") head(b...

1139 sym R (23370 sym/68 pcs) 2 img

VLU Workshop on Machine Learning - Day 1

07.06.2023

Van Lang University Workshop on Machine Learning - Day 1: Data visualization Việc 1. Tải R, RStudio về máy tính https://cran.r-project.org/mirrors.html https://www.rstudio.com/products/rstudio/download Việc 2. Cài đặt các packages cần thiết #install.packages(c("readxl","tidyverse","ggplot2","GGally","DescTools","table1","compa...

834 sym R (5295 sym/23 pcs) 4 img

VLU Workshop on Machine Learning - Day 2

07.06.2023

Van Lang University Workshop on Machine Learning - Day 2: Linear regression Việc 1. So sánh đặc điểm của mẫu nghiên cứu tiền lương Đọc dữ liệu “Professorial Salaries” vào R library(readxl) salary = read_excel("C:\\Thach\\VLU workshop (Jun2023)\\Datasets\\Professorial Salaries.xlsx") head(salary) ## # A tibble: 6 ...

1316 sym R (7859 sym/36 pcs) 3 img

Incident diabetes in Vietnam

27.04.2023

Incident diabetes in Vietnam- A prospective cohort study library(table1) ## ## Attaching package: 'table1' ## The following objects are masked from 'package:base': ## ## units, units<- library(compareGroups) library(mlogitBMA) ## Loading required package: BMA ## Loading required package: survival ## Loading required package: leaps ## Load...

715 sym R (22052 sym/68 pcs) 5 img

TDTU Workshop on Longitudinal Data Analysis_Day 3

06.04.2023

Day 3 Linear Regression Việc 1: Đọc dữ liệu Professorial Salaries library(readxl) salary = read_excel("C:\\Thach\\VN trips\\VN trip 5 (Apr 2023)\\Datasets\\Professorial Salaries.xlsx") Việc 2: Đánh giá sơ bộ mối liên quan giữa các biến library(GGally) ## Loading required package: ggplot2 ## Registered S3 method overwritt...

908 sym R (3908 sym/21 pcs) 13 img

Test for R Markdown

06.04.2023

Đọc dữ liệu vào R gdp = read.csv("/Users/tuanvnguyen/Dropbox/_Conferences and Workshops/TDTU and others/TDTU 4-2023/Datasets/GDP and LE.csv") Vẽ biểu đồ tương quan head(gdp) ## country year life.exp pop income ## 1 N Korea 1952 50.056 8865488 1088.278 ## 2 N Korea 1957 54.081 9411381 1571.135 ## 3 N Korea 1962 56....

107 sym R (533 sym/4 pcs) 1 img

TDTU Workshop on Longitudinal Data Analysis (April 2023)_Day 5

06.04.2023

Day 5. Mô hình tăng trưởng tuyến tính và mô hình đa tầng Việc 1: Đánh giá tiến bộ của học sinh wil = read.csv("C:\\Thach\\VN trips\\VN trip 5 (Apr 2023)\\Datasets\\willett.csv", header = T) 1.1 Vẽ biểu đồ bánh tằm đánh giá tiến bộ của học sinh library(ggplot2) ggplot(data=wil, aes(x=time, y=y, gro...

1269 sym R (11177 sym/40 pcs) 5 img

TDTU Workshop on Longitudinal Data Analysis (April 2023)_Day 2

06.04.2023

Day 2. Data visualisation crime = read.csv("C:\\Thach\\VN trips\\VN trip 5 (Apr 2023)\\Datasets\\Crime dataset reduced.csv", header = T) Việc 1: Đánh giá phân bố của police hist(crime$police, col = "blue", border = "white") library(ggplot2) p = ggplot(data = crime, aes(x = police)) p + geom_histogram(fill = "blue", col = "white") + l...

726 sym R (3672 sym/22 pcs) 11 img