# \donttest{
chromosome_details <- read.csv(system.file("extdata", "chromosome_details.csv", package = "geneNR"))
data <- read.csv(system.file("extdata", "identified_SNP.csv", package = "geneNR"))
chromosome_plot <- plot_SNP(chromosome_details = chromosome_details, data = data,
chromosome_color = "steelblue" ,title = "Chromosome map with SNPs", label_color = "black",
image_width = 15, image_height = 10)
print(chromosome_plot)
# }
Run the code above in your browser using DataLab