Description Usage Arguments Value Examples
Function to plot the proportion of times/percentage each SNP in inside a run (population-specific signals) against SNP position in all chromosomes together Proportions on the y-axis, bps on the x-axis for all analysed chromosomes This is similar to the familiar GWAS Manhattan plot
1 2 | plot_manhattanRuns(runs, genotypeFile, mapFile, savePlots = FALSE,
outputName = NULL, plotTitle = NULL)
|
runs |
a data.frame with runs per individual (group, id, chrom, nSNP, start, end, length) |
genotypeFile |
genotype (.ped) file path |
mapFile |
map file (.map) file path |
savePlots |
should plots be saved out in files (default) or plotted in the graphical terminal? |
outputName |
title prefix (the base name of graph, if savePlots is TRUE) |
plotTitle |
title in plot (default) |
Manhattan plots of proportion of times SNPs are inside runs, per population (pdf files)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | # getting map and ped paths
genotypeFile <- system.file("extdata", "Kijas2016_Sheep_subset.ped", package = "detectRUNS")
mapFile <- system.file("extdata", "Kijas2016_Sheep_subset.map", package = "detectRUNS")
# calculating runs of Homozygosity
## Not run:
# skipping runs calculation
runs <- slidingRUNS.run(genotypeFile, mapFile, windowSize = 15, threshold = 0.1, minSNP = 15,
ROHet = FALSE, maxOppositeGenotype = 1, maxMiss = 1, minLengthBps = 100000, minDensity = 1/10000)
## End(Not run)
# loading pre-calculated data
runsFile <- system.file("extdata", "Kijas2016_Sheep_subset.sliding.csv", package="detectRUNS")
runsDF <- readExternalRuns(inputFile = runsFile, program = 'detectRUNS')
# plot runs per animal (interactive)
plot_manhattanRuns(runs = runsDF, genotypeFile = genotypeFile, mapFile = mapFile,
savePlots = FALSE, plotTitle = "ROHom")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.