R/get-fid-iid.R

In mattwarkentin/genetools: What the Package Does (One Line, Title Case)

#' @title Extract FID/IID
#'
#' @description Extract family ID and invididual ID from .fam file.
#'
#' @param bfile PLINK bfile.
#'
#' @export

FIDIID <- function(bfile) {
  if(inherits(bfile, "pfile")) stop("Not sure what to do with pfiles yet.")

  ids <- read.fam(bfile)[,1:2]
  colnames(ids) <- c("FID", "IID")
  return(ids)

}