MacQueen, Don
2016-Sep-30 16:56 UTC
[R] Elegant way to get specific dates within prespecified period
I would probably try a different strategy. First, construct a sequence of January 1 dates that is a little bit too long. For example, start with the January in the same year as "open" and finish with the January in the same year as "close". You can construct the vector using seq(), like this:> seq(as.Date('2007-1-1'), as.Date('2011-1-1'), by='year')[1] "2007-01-01" "2008-01-01" "2009-01-01" "2010-01-01" "2011-01-01" Then test all those dates for whether they fit your rules, and remove those that don't. I think this will be easier than constructing fancy ifelse statements. It should certainly be easier to understand the code, i.e., when you come back and look at it a few years from now. Or if a colleague wants to look at it and understand it. -Don -- Don MacQueen Lawrence Livermore National Laboratory 7000 East Ave., L-627 Livermore, CA 94550 925-423-1062 On 9/30/16, 9:38 AM, "R-help on behalf of Frank S." <r-help-bounces at r-project.org on behalf of f_j_rod at hotmail.com> wrote:>Dear R users, > >I have two dates, ["open", "close"], which can be any dates such "close" >is strictly later than "open". >I wanted to write an R code that displays the following: To construct a >vector "v" with all 1st January > >days located between "open" and "close" dates: v = (dp_1, dp_2, ..., >dp_n). Moreover: > >a) Regard to the first date "dp_1": > a1) If "open" is on a 1st January day, "dp_1" is on 1st January of >the year after "open". > a2) In case difftime between "open" and the following 1st January is >lower than 30 days, > "dp_1" will be on 1st January of the year after the year of that >1st January. > >b) Regard to the last date "dp_n": > b1) If "close" is on a 1st January day, dp_n is on 1st January of the >year before "close" > b2) In case difftime between "close" and the previous 1st January is >lower than 30 days, > "dp_n" will be on 1st January of the year before the year of that >1st January. > >Example 1: [open = 2007-01-01, close = 2011-04-05] >v = (2008-01-01, 2009-01-01, 2010-01-01, 2011-01-01) # Since open is >already on a 1st January > > # Since difftime(2011-04-05, 2011-01-01) >= 30 >days >Example 2: [open = 2006-12-15, close = 2011-01-19] >v = (2008-01-01, 2009-01-01, 2010-01-01) # Since >difftime(2007-01-01, 2006-12-15) < 30 days > > # Since difftime(2011-01-19, 2011-01-01) < 30 days > > >My code is (for example 2): > >open <- as.Date('2006-12-15') >close <- as.Date('2011-01-19') > >dp_1 <- as.Date(ifelse( > as.Date(paste(as.character(as.numeric(format(open, "%Y")) + 1), 1, 1, >sep = "-")) - open >= 30, > as.Date(paste(as.character(as.numeric(format(open, "%Y")) + 1), 1, 1, >sep = "-")), > as.Date(paste(as.character(as.numeric(format(open, "%Y")) + 2), 1, 1, >sep = "-"))), > origin = "1970-01-01") > >dp_n <- as.Date(ifelse( > close - as.Date(paste(as.character(as.numeric(format(close, >"%Y"))), 1, 1, sep = "-")) >= 30, > as.Date(paste(as.character(as.numeric(format(close, "%Y"))), 1, 1, >sep = "-")), > as.Date(paste(as.character(as.numeric(format(close, "%Y")) - 1), 1, 1, >sep = "-"))), > origin = "1970-01-01") > >v <- seq(dp_1, dp_n, by = "year") > > >However, above code is not too large, so I'm almost sure that there might >be a better way of doing it. >Is there a better way to get the vector "v"? > >Thanks for any help! > >Frank S. > > [[alternative HTML version deleted]] > >______________________________________________ >R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see >https://stat.ethz.ch/mailman/listinfo/r-help >PLEASE do read the posting guide >http://www.R-project.org/posting-guide.html >and provide commented, minimal, self-contained, reproducible code.
Frank S.
2016-Oct-03 16:29 UTC
[R] Elegant way to get specific dates within prespecified period
Don, many thanks for your tip. I will apply it in the future when programming my code. Best, Fran K. ________________________________ De: MacQueen, Don <macqueen1 at llnl.gov> Enviat el: divendres, 30 de setembre de 2016 18:56:45 Per a: Frank S.; r-help at r-project.org Tema: Re: [R] Elegant way to get specific dates within prespecified period I would probably try a different strategy. First, construct a sequence of January 1 dates that is a little bit too long. For example, start with the January in the same year as "open" and finish with the January in the same year as "close". You can construct the vector using seq(), like this:> seq(as.Date('2007-1-1'), as.Date('2011-1-1'), by='year')[1] "2007-01-01" "2008-01-01" "2009-01-01" "2010-01-01" "2011-01-01" Then test all those dates for whether they fit your rules, and remove those that don't. I think this will be easier than constructing fancy ifelse statements. It should certainly be easier to understand the code, i.e., when you come back and look at it a few years from now. Or if a colleague wants to look at it and understand it. -Don -- Don MacQueen Lawrence Livermore National Laboratory 7000 East Ave., L-627 Livermore, CA 94550 925-423-1062 On 9/30/16, 9:38 AM, "R-help on behalf of Frank S." <r-help-bounces at r-project.org on behalf of f_j_rod at hotmail.com> wrote:>Dear R users, > >I have two dates, ["open", "close"], which can be any dates such "close" >is strictly later than "open". >I wanted to write an R code that displays the following: To construct a >vector "v" with all 1st January > >days located between "open" and "close" dates: v = (dp_1, dp_2, ..., >dp_n). Moreover: > >a) Regard to the first date "dp_1": > a1) If "open" is on a 1st January day, "dp_1" is on 1st January of >the year after "open". > a2) In case difftime between "open" and the following 1st January is >lower than 30 days, > "dp_1" will be on 1st January of the year after the year of that >1st January. > >b) Regard to the last date "dp_n": > b1) If "close" is on a 1st January day, dp_n is on 1st January of the >year before "close" > b2) In case difftime between "close" and the previous 1st January is >lower than 30 days, > "dp_n" will be on 1st January of the year before the year of that >1st January. > >Example 1: [open = 2007-01-01, close = 2011-04-05] >v = (2008-01-01, 2009-01-01, 2010-01-01, 2011-01-01) # Since open is >already on a 1st January > > # Since difftime(2011-04-05, 2011-01-01) >= 30 >days >Example 2: [open = 2006-12-15, close = 2011-01-19] >v = (2008-01-01, 2009-01-01, 2010-01-01) # Since >difftime(2007-01-01, 2006-12-15) < 30 days > > # Since difftime(2011-01-19, 2011-01-01) < 30 days > > >My code is (for example 2): > >open <- as.Date('2006-12-15') >close <- as.Date('2011-01-19') > >dp_1 <- as.Date(ifelse( > as.Date(paste(as.character(as.numeric(format(open, "%Y")) + 1), 1, 1, >sep = "-")) - open >= 30, > as.Date(paste(as.character(as.numeric(format(open, "%Y")) + 1), 1, 1, >sep = "-")), > as.Date(paste(as.character(as.numeric(format(open, "%Y")) + 2), 1, 1, >sep = "-"))), > origin = "1970-01-01") > >dp_n <- as.Date(ifelse( > close - as.Date(paste(as.character(as.numeric(format(close, >"%Y"))), 1, 1, sep = "-")) >= 30, > as.Date(paste(as.character(as.numeric(format(close, "%Y"))), 1, 1, >sep = "-")), > as.Date(paste(as.character(as.numeric(format(close, "%Y")) - 1), 1, 1, >sep = "-"))), > origin = "1970-01-01") > >v <- seq(dp_1, dp_n, by = "year") > > >However, above code is not too large, so I'm almost sure that there might >be a better way of doing it. >Is there a better way to get the vector "v"? >[[elided Hotmail spam]]> >Frank S. > > [[alternative HTML version deleted]] > >______________________________________________ >R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see >https://stat.ethz.ch/mailman/listinfo/r-help >PLEASE do read the posting guide >http://www.R-project.org/posting-guide.html >and provide commented, minimal, self-contained, reproducible code.[[alternative HTML version deleted]]