In charlotte-ngs/lbgfs2020: Livestock Breeding and Genomics (Fall 2020)

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

The following table contains a list with solutions to the exercises.

s_sol_url <- 'https://charlotte-ngs.github.io/lbgfs2020/sol/'
tbl_sol <- tibble::tibble(Nr = c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13),
                          Date  = c(
                           "2020-09-25",
                           "2020-10-02",
                           "2020-10-09",
                           "2020-10-16",
                           "2020-10-23",
                           "2020-10-30",
                           "2020-11-06",
                           "2020-11-13",
                           "2020-11-20",
                           "2020-11-27",
                           "2020-12-04",
                           "2020-12-11"),
                          Topic = c(
                            paste0("[Linear Algebra](", s_sol_url, "lbgfs2020_w02_sol01_linalg.pdf)", collapse = ''),
                            paste0("[Quantitative Genetics](", s_sol_url, "lbgfs2020_w03_sol02.pdf)", collapse = ''),
                            paste0("[Breeding Values](", s_sol_url, "lbgfs2020_w04_sol03.pdf)", collapse = ''),
                            paste0("[Prediction of Breeding Values and Accuracy](", s_sol_url, "lbgfs2020_w05_sol04.pdf)", collapse = ''),
                            paste0("[Sire Model](", s_sol_url, "lbgfs2020_w06_sol05.pdf)", collapse = ''),
                            paste0("[Numerator Relationship Matrix](", s_sol_url, "lbgfs2020_w07_sol06.pdf)", collapse = ''),
                            paste0("[Variance and Inbreeding](", s_sol_url, "lbgfs2020_w08_sol07.pdf)", collapse = ''),
                            paste0("[Additional Aspects of BLUP](", s_sol_url, "lbgfs2020_w09_sol08.pdf)", collapse = ''),
                            paste0("[Multi-Trait BLUP](", s_sol_url, "lbgfs2020_w10_sol09.pdf)", collapse = ''),
                            paste0("[Genomics](", s_sol_url, "lbgfs2020_w11_sol10.pdf)", collapse = ''),
                            paste0("[Variance Components](", s_sol_url, "lbgfs2020_w12_sol11.pdf)", collapse = ''),
                            paste0("[Test Exam](", s_sol_url, "lbgfs2020_test_exmsol.pdf)", collapse = '')
                           ))
knitr::kable(tbl_sol)