# NOT RUN {
library("sim1000G")
library(gplots)
examples_dir = system.file("examples", package = "sim1000G")
vcf_file = sprintf("%s/region.vcf.gz", examples_dir)
vcf = readVCF( vcf_file, maxNumberOfVariants = 100 , min_maf = 0.12 ,max_maf = NA)
# For a realistic genetic map, use the functions downloadGeneticMap / readGeneticMap
generateFakeGeneticMap()
plotRegionalGeneticMap(vcf$vcf[,2]+1)
startSimulation(vcf, totalNumberOfIndividuals = 200)
# }
Run the code above in your browser using DataLab