# read variant ID
pfx <- file.path(system.file("extdata", package="plinkFile"), "m20")
# opt=1: 2nd column in the BED file (default)
vid <- readVID(pfx, 1); head(vid); tail(vid)
# opt=2: format by position
vid <- readVID(pfx, 2); head(vid); tail(vid)
# opt=3: format by position and alleles
vid <- readVID(pfx, 3); head(vid); tail(vid)
# opt=-1: number sequence
vid <- readVID(pfx, -1); head(vid); tail(vid)
# opt=-2: number sequence, fixed length, decimal
vid <- readVID(pfx, -2); head(vid); tail(vid)
# opt=-3: number sequence, fixed length, hexidemical
vid <- readVID(pfx, -3); head(vid); tail(vid)
Run the code above in your browser using DataLab