Альтернативное решение - использовать арифметику даты из lubridateпакета:

lubridate::ymd( "2014-01-01" ) + lubridate::weeks( df$Week - 1 )

Это -1необходимо, потому что 2014-01-01уже неделя 1. Другими словами, мы хотим:

• df$Week == 1сопоставить 2014-01-01(что есть ymd("2014-01-01") + weeks(1-1))
• df$Week == 2сопоставить 2014-01-08(что есть ymd("2014-01-01") + weeks(2-1))
• и так далее.

It will be like using 2nd year = (week-52), 3rd year  = (week -104)...so on

for(i in 1:456548)
{
  if (train[i,2] > 0 & train[i,2] <53)
  {
    train["weekdate"] <- as.Date(paste(2016, train$week, 1, sep="-"), "%Y-%U-%u")
  }
  if (train[i,2] > 52 & train[i,2] <105)
  {
    train["weekdate"] <- as.Date(paste(2017, (train$week-52), 1, sep="-"), "%Y-%U-%u")
  }
  if (train[i,2] > 104 & train[i,2] <150)
  {
    train["weekdate"] <- as.Date(paste(2018, (train$week-104), 1, sep="-"), "%Y-%U-%u")
  }

}