R/read.vsf3.dev.file.R

In belasi01/Riops: IOPs data processing

#' Read a WetLabs Device file for ECO-VSF3
#'
#' @param filen is DEV file name
#'
#' @return A dataframe
#'
#' @author Simon Belanger
#' @export

read.vsf3.dev.file <- function (filen) {
  
  df = read.table(file=filen, skip=5)
  
  names(df) <- c("Angle", "ScalingFactor", "Offset")

  return(df)
}