R/read_sample.R

Defines functions read_sample

Documented in read_sample

##' Reads SNPTEST sample files, ignores the second line though
##'
##' @title Read SNPTEST sample file
##' @param file Name of the sample file
##' @return data.frame containing the data
##' @export 

read_sample <- function(file){
  header <- read.table(file, as.is = TRUE, nrows = 1)
  body <-  read.table(file, as.is = TRUE, skip = 2,
                      header = FALSE)
  names(body) <- header
  body[body == -9] <- NA
  body
}
imbs-hl/imbs documentation built on Aug. 10, 2018, 3:56 a.m.