Added a script for testing smaller functions of packages

test_script.R

+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