# Load the data containing the chromosomes and locations
data(LocusMapData, package="CGEN")
# For illustrative purposes, add some hypothetical p-values to x
set.seed(123)
LocusMapData[, "pvalue"] <- runif(nrow(LocusMapData))
# Define the input list locusMap.list
locusList <- list(snp.var="SNP", chrm.var="CHROMOSOME", loc.var="LOCATION")
# Create the plot
Manhattan.plot(LocusMapData, "pvalue", locusList)
Run the code above in your browser using DataLab