Publications by Thach Tran

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

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

04.04.2023

Day 1: R introduction Việc 1: Tải R và 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", "plm", "table1", "compareGroups", "plotly", "lme4", "nlme", "...

837 sym R (6362 sym/36 pcs) 1 tbl

Skeletal age_BMD-Mortality association

22.02.2023

library(table1) ## ## Attaching package: 'table1' ## The following objects are masked from 'package:base': ## ## units, units<- library(compareGroups) library(survival) 1. MEN (MrOS data) 1.1 Data setup men = read.csv("C:\\UTS\\Research projects\\Skeletal Age_BMD and Mortality\\MrOS data.csv") head(men) ## ID B1FND GIAGE1 FUCDTIM...

498 sym R (35625 sym/66 pcs)

Can Tho University course (Sept 2022)- Exercise day 3

19.09.2022

Ngày thứ ba: giá trị P, so sánh 2 nhóm library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.6 v dplyr 1.0.8 ## v tidyr 1.2.0 v stringr 1.4.0 ## v readr 2.1.2 v forcats 0.5.1 ## -- Conflicts -----------------------...

892 sym R (12972 sym/73 pcs) 9 img 2 tbl

Can Tho University course (Sept 2022)- Exercise day 2

19.09.2022

Ngày thứ nhất (1.1) Việc 1: Tải R và RStudio về máy (1.2) Việc 2: Cài đặt các gói packages cần thiết #install.packages(c("tidyverse", "ggplot2", "readxl", "table1", "compareGroups")) library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr ...

964 sym R (6028 sym/42 pcs) 14 img 2 tbl

Skeletal age for individual high-risk fracture sites

21.10.2022

(1) Skeletal age for the high-risk fracture sites in men Analysis macro library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union # function func_Skel_Age <- functio...

986 sym R (88206 sym/96 pcs) 1 img