Заменить значения в одном векторе на основе значений больше x в отдельном векторе фрейма данных

У меня есть фрейм данных, в котором значения выше определенного уровня в одном векторе должны быть изменены в следующем векторе.

Я пробовал функцию if, которая возвращает «NA».

if (mydata$duration >15) {
mydata$code==3
}

Вот некоторый код того, как должна выглядеть конечная функция, помеченная как «перекодировать».

duration<-c(1,14,5,17,9,10,14,16,2,8,3,18)
code<-c(1,2,1,2,1,2,1,2,1,2,1,2)
mydata<-data.frame(code,duration)
recode<-c(1,2,1,3,1,2,1,3,1,2,1,3)
mydata<-data.frame(recode,duration)