R/maxdate.R

#'@rdname internal
`maxdate` <-
function (x, julian = T) 
{
    mx <- index(x)[which.max(x)]
    if (julian) 
        mx <- as.POSIXlt(mx)$yday + 1
	mx
}

Try the IHA package in your browser

Any scripts or data that you put into this service are public.

IHA documentation built on May 2, 2019, 5:15 p.m.