Displaying 1 result from an estimated 1 matches for "1q2004".
Did you mean:
162004
2006 Feb 17
3
(Newbie) Functions on vectors
...(i in 1:length(quarter)) {
currQuarter <- quarter[i];
currYear <- year[i];
if ((currQuarter < 1) | (currQuarter > 4)) stop ("Invalid quarter!");
if ((currYear < 1986) | (currYear > 2004)) stop ("Invalid year!");
# If the criterion date is 1Q2004, then the reports were for periods
# ending in Feb, March and April 2004 and the decision date is July 1, 2004.
if (currQuarter == 1) {
ret <- c(ret,paste("06/30/",currYear,sep=""));
} else if (currQuarter == 2) {
ret <- c(ret,paste("09/30/&quo...