Calcule o número da semana (0-53) no ano

Eu tenho um conjunto de dados com locais e datas. Gostaria de calcular a semana do ano como número (00–53), mas usando a quinta-feira como o primeiro dia da semana. Os dados são assim:

  location <- c(a,b,a,b,a,b)
  date <- c("04-01-2013","26-01-2013","03-02-2013","09-02-2013","20-02-2013","03-03-2013")
  mydf <- data.frame(location, date)
  mydf

Eu sei que há função strftime para calcular a semana do ano, mas só é possível usar segunda ou domingo como o primeiro dia da semana. Qualquer ajuda seria muito apreciada.