ReadDBSVCF <- function(DBSVCF.name) {
vcf <- utils::read.table(
DBSVCF.name,
header = TRUE,
sep = "\t",
colClasses = "character")
vcf[ , "POS"] <- numeric(vcf[ , "POS"])
return(vcf)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.