pfx <- file.path(system.file("extdata", package="plinkFile"), "m20")
readIID(pfx, 1) # opt= 1: IID
readIID(pfx, 2) # opt= 2: FID.IID
readIID(pfx, -1) # opt=-1: number sequence
readIID(pfx, -2) # opt=-2: number sequence, fixed length, decimal
readIID(pfx, -3) # opt=-3: number sequence, fixed length, hexidemical
Run the code above in your browser using DataLab