R/leapyear.R

Defines functions leapyear

Documented in leapyear

# TRUE if leap year, FALSE otherwise
leapyear <- function(y) {
	
	res <- .C("Cleapyear",year=as.integer(y),ly=integer(1))

	if(res$ly==1) { return(TRUE)}
	else { return(FALSE)}
}

Try the pheno package in your browser

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

pheno documentation built on May 13, 2022, 1:05 a.m.