NULL
#' Gets the first day in a precipitation time series, expressed in decimal julian days since 1970-1-1 00:00 UTC
#'
#' @author Emanuele Cordano
#'
#' @param name character ID of the station
#' @param station_names vector containing the IDs (characters) of the considered meteorological stations. An example is \code{STATION_NAMES} defined in the \code{\link{trentino}} dataset.
#' @param start_day vector containing the precipitation measurement start day. An example is \code{TEMPERATURE_MEASUREMENT_START_DAY} defined in the \code{\link{trentino}} dataset.
#'
#' @export
#'
#'
#' @return the precipitation measurement start day given the vectors of station IDs and the respective precipitation measurement start days
#'
#'
#' @examples
#' data(trentino)
#' PrecipitationStartDay("T0099",
#' station_names=STATION_NAMES,
#' start_day=PRECIPITATION_MEASUREMENT_START_DAY)
#'
#'
PrecipitationStartDay <-
function(name,station_names,start_day) { return(start_day[station_names==name])}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.