Displaying 1 result from an estimated 1 matches for "nonleap".
Did you mean:
nonheap
2013 Dec 02
1
Days to solstice calculation
...[g])== TRUE){
Winter[g] <- NA
Summer[g] <- NA
}
}
#Days until solstice
if (solstice =='S'){Countdown <- Summer - (strptime(date, "%Y-%m-%d")$yday+2)}
if (solstice =='W'){Countdown <- Winter - (strptime(a, "%Y-%m-%d")$yday+2)}
return(Countdown)
}
Nonleap <- TillSolstice(seq(as.Date("2007/1/1"), as.Date("2007/12/31"), by = "1 day"), solstice = 'S')
Leap <- TillSolstice(seq(as.Date("2008/1/1"), as.Date("2008/12/31"), by = "1 day"), solstice = 'S')
head(Nonleap)
tail(Non...