knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
The website of qpdt is available under https://fbzwsqualitasag.github.io/qpdt/
The goal of qpdt is to provide a package with generic pedigree tools used at Qualitas AG.
You can install the development version from GitHub with:
# install.packages("devtools") devtools::install_github("fbzwsqualitasag/qpdt")
This is a basic example which shows you how basic properties of a pedigree can be checked:
library(qpdt) ## basic example code s_pedigree <- system.file('extdata', 'PopReport_SN_ohne_20210115.csv_adaptfin2.csv', package = 'qpdt') check_pedig_parent(ps_pedig_path = s_pedigree)
If you want to find whether a certain pedigree contains cycles the following statements provides an anser.
s_pedi_path <- system.file('extdata','data_sample_cycle.csv', package = 'qpdt') check_cycle_pedigree(ps_pedig_path = s_pedi_path)
cat(rmdhelp::get_latest_change(), "\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.