R/extract.quantities.6.R

In cttedwards/seabird2: Read and write SeaBird files in R

#' extract.quantities.6
#' 
#' @export
#'
extract.quantities.6 <- function(lines)
{
    result <- array(dim = c(length(lines), length(SeaBird.string.to.vector.of.numbers(lines[1]))))
	for (i in 1:length(lines))
	    result[i,] <- SeaBird.string.to.vector.of.numbers(lines[i])
	rownames(result) <- names(lines)
	
	result
}