This document provides R code-chunks that read the datasets used in the exam 2024.
The datasets for the two populations can be read as shown below
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_p1_data_path_popA <- file.path(s_data_root, "exam_p1_popA.csv")
tbl_popA <- readr::read_delim(file = s_p1_data_path_popA, delim = ",")
dim(tbl_popA)
## [1] 30 3
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_p1_data_path_popB <- file.path(s_data_root, "exam_p1_popB.csv")
tbl_popB <- readr::read_delim(file = s_p1_data_path_popB, delim = ",")
dim(tbl_popB)
## [1] 30 3
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_ped_p2 <- file.path(s_data_root, "exam_pedigree_p2.csv")
tbl_ped_p2 <- readr::read_delim(s_ped_p2, delim = ",")
dim(tbl_ped_p2)
## [1] 9 3
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_mat_p2 <- file.path(s_data_root, "exam_inv_num_rel_mat_p2.csv")
tbl_mat_p2 <- readr::read_delim(s_mat_p2, delim = ",")
mat_p2 <- as.matrix(tbl_mat_p2)
dim(mat_p2)
## [1] 11 11
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_ped_p3 <- file.path(s_data_root, "exam_pedigree_p3.csv")
tbl_ped_p3 <- readr::read_delim(s_ped_p3, delim = ",")
dim(tbl_ped_p3)
## [1] 7 3
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_data_p4 <- file.path(s_data_root, "exam_data_p4.csv")
tbl_data_p4 <- readr::read_delim(s_data_p4, delim = ",")
dim(tbl_data_p4)
## [1] 13 21
s_data_root <- "https://charlotte-ngs.github.io/lbgfs2024/data"
s_data_p5 <- file.path(s_data_root, "exam_data_p5.csv")
tbl_data_p5 <- readr::read_delim(s_data_p5, delim = ",")
dim(tbl_data_p5)
## [1] 10 6