R/readVector.R

In mlxR: Simulation of Longitudinal Data

#' Reads  a table into a vector 
#' @param f : the table 
#' @param header : bool, use the header or not
#' @param sep : the separator
#' @param quote : the quote character
#' @return  the vector
#' @export
#' 
read.vector <- function(f, header=FALSE, sep="", quote = "\"'") 
{
  t <- lixoft.read.table(file = f, header = header, sep = sep, quote = quote)
  v <- t[,2]
  names(v) <- t[,1]
  return(v)
}