R/FirstElement.R

In EarthSystemDiagnostics/paleospec: Spectral tools for the ECUS group

#' @title first element of a vector
#' @param x a vector
#' @return first element of X
#' @author Thomas Laepple
#' @export
FirstElement<-function (x)
{
    return(x[1])
}