R/DAYSperYEAR.R

In RSEIS: Seismic Time Series Analysis Tools

Defines functions DAYSperYEAR

Documented in DAYSperYEAR

DAYSperYEAR<-function(yr)
{
	n = length(yr)
  YRDAYS = rep(365, n)		
  YRDAYS[yr%%4 == 0 &  yr%%100 != 0 ] =366
  YRDAYS[yr%%4 == 0 &  yr%%100 == 0 & yr%%400 == 0 ] = 366
return(YRDAYS)	
}

Try the RSEIS package in your browser