knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

The following table contains links to the exercises for Livestock Breeding and Genomics (FS 2021).

ex_url <- "https://charlotte-ngs.github.io/lbgfs2021/ex/"
tbl_ex <- tibble::tibble(Nr = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12),
                         Date = c("2021-10-01",
                                  "2021-10.08",
                                  "2021-10-15",
                                  "2021-10-22",
                                  "2021-10-29",
                                  "2021-11-05",
                                  "2021-11-12",
                                  "2021-11-19",
                                  "2021-12-03",
                                  "2021-12-03",
                                  "2021-12-03",
                                  "2021-12-10"),
                         Topic = c(
                           paste0("[Vectors in R](", ex_url, "20211001_vectors_in_r.nb.nb.nb.html)", collapse = ""),
                           paste0("[Vectors and Matrices in R](", ex_url, "lbgfs2021_ex01_linalg.nb.html)", collapse = ""),
                           paste0("[Basics of Quantitative Genetics](", ex_url, "lbgfs2021_ex02_qgen.nb.html)", collapse = ""),
                           paste0("[Genetic Evaluation](", ex_url, "lbgfs2021_ex03_oprec.nb.html)", collapse = ""),
                           paste0("[BLUP](", ex_url, "lbgfs2021_ex_04_blup.nb.html)", collapse = ""),
                           "Linear Models",
                           paste0("[Numerator Relationship Matrix](", ex_url, "lbgfs2021_ex07_num_rel.nb.nb.nb.html)", collapse = ""),
                           paste0("[Inverse Numerator Relationship Matrix](", ex_url, "lbgfs2021_ex08_inv_num.nb.nb.nb.html)", collapse = ""),
                           paste0("[Variance and Inbreeding](", ex_url, "lbgfs2021_ex09_vi.nb.html)", collapse = ""),
                           paste0("[Test Exam](", ex_url, "20201218074325_exam_pvr.pdf)", collapse = ""),
                           paste0("[Decomposition of Breeding Values](", ex_url, "lbgfs2021_ex11_decomp_bv.nb.html)", collapse = ""),
                           paste0("[Genomic Selection](", ex_url, "lbgfs2021_ex12_gs.nb.html)", collapse = "")
                         ))
knitr::kable(tbl_ex)
cat(rmdhelp::get_latest_change())


charlotte-ngs/lbgfs2021 documentation built on Dec. 19, 2021, 3:01 p.m.