R/dfReadDat.R

In lmSupport: Support for Linear Models

dfReadDat <-
function(File, SubID= 'SubID', SubIDDigits= NULL)
#opens a tab-delimited data file with standard Curtin lab format
#header = TRUE, sep = '\t'
#if variable named SubID (default) or other text supplied by SubID variable is in file,
#row names will be set with this variable and then variable is removed from data frame
#SubIDDigits sets lenght of SubID rowname string. If NULL, determined from data
{
  d = read.table(File, header=TRUE, sep='\t', as.is=TRUE)
  if(!is.null(SubID) && is.element(SubID, names(d)))
  {
    d = dfRownames(d,SubID = SubID, MaxNumDigits= SubIDDigits)
  }
  return(d)
}