From aadd636e4117f5ad10b5f898a67ce876765c8754 Mon Sep 17 00:00:00 2001
From: jonathan fokko <jonathan.kunst@wur.nl>
Date: Tue, 28 Sep 2021 17:55:05 +0200
Subject: [PATCH] Added a script for testing smaller functions of packages
---
test_script.R | 10 ++++++++++
1 file changed, 10 insertions(+)
create mode 100644 test_script.R
diff --git a/test_script.R b/test_script.R
new file mode 100644
index 0000000..76b3eb8
--- /dev/null
+++ b/test_script.R
@@ -0,0 +1,10 @@
+library(polyqtlR)
+data("phased_maplist.4x", "SNP_dosages.4x", "Phenotypes_4x")
+
+IBD_4x <- estimate_IBD(phased_maplist = phased_maplist.4x,
+ genotypes = SNP_dosages.4x,
+ ploidy = 4,
+ bivalent_decoding = FALSE,
+ ncores = 2)
+
+??Rcpp_precious_remove
--
GitLab