R/get.cloudpoint.R

In yanxianUCSB/jascor: Helpr R Scripts for JASCO CD Spectrometer

#' Title
#'Get cloud point from ascii datafile export
#' @param filename
#'
#' @return
#' @export
#'
#' @examples
get.cloudpoint <- function(filename){
  spc <- readin(filename)
  return(spc$V1[which.middle(spc$V2)])
}