R/cmc_as_year.R

In Biograph: Explore Life Histories

cmc_as_year <-
function (x,selectday)
 { 	# Decimal year
	if (is.character(x)) x<- as.numeric(x)
	if (!is.numeric(x))
 	   { print ("WARNING in cmc.as.Date: x is not numeric")
 	   	 if (is.character(x)) x <- as.numeric(x) else print ("ERROR in cmc.as.Date: x not numeric and not character.")
 	   }
 	if (missing(selectday)) selectday <- 1
 	d <- cmc_as_Date(x,selectday) # d is character vector
 	year <- Date_as_year (d,format.in="%Y-%m-%d")
    return (year) 
}