## ----echo=FALSE---------------------------------------------------------------
knitr::opts_chunk$set(echo = TRUE, eval = FALSE, message = FALSE, warning = FALSE)

## -----------------------------------------------------------------------------
# # install.packages("Familia")
# # or the development version
# # remotes::install_github("Breeding-Insight/Familia")
# 
# library(Familia)
# run_app()

## -----------------------------------------------------------------------------
# if (!requireNamespace("BiocManager", quietly = TRUE)) install.packages("BiocManager")
# BiocManager::install("LEA")

## -----------------------------------------------------------------------------
# list.files(system.file("extdata", package = "Familia"))

## -----------------------------------------------------------------------------
# library(BIGpopA)
# ex <- function(f) system.file("extdata", f, package = "Familia")   # example files
# 
# clean <- check_ped(ex("example_pedigree.txt"))
# valid <- validate_pedigree(clean$corrected_pedigree, ex("example_genotypes.txt"),
#                            founders_file = ex("example_founders.txt"),
#                            ploidy = 2, marker_trio_table = TRUE)
# valid$full_results