# \donttest{
# requires the Suggested 'piglet' package
if (requireNamespace("piglet", quietly = TRUE)) {
data(samples_db, HVGERM)
clip_db <- samples_db[samples_db$subject == "I5", ]
asc <- convertToASC(clip_db, HVGERM, chain = "IGH")
hap <- createFullHaplotype(asc$clip_db, toHap_col = "v_call",
hapBy_col = "j_call", hapBy = "IGHJ6",
toHap_GERM = asc$germline, chain = "IGH")
plotHaplotype(hap, genes_order = asc$genes_order)
}
# }
Run the code above in your browser using DataLab