[R] Assigning Week Numbers

[Jeffrey J. Hallman]

Take a look at the 'ti' stuff in the tis package on CRAN. If I
understand you correctly, you want something like this:

weekNumber <- function(aDate){
    aTi <- ti(aDate, tif = "wfriday")
    may1ymd <- 10000*year(aTi) + 501
    baseWeek <- ti(may1ymd, tif = "wfriday")
    return(aTi - baseWeek + 1)
}

-- 
Jeff