编写函数以返回单个对应值

Question

这是编写一个函数的问题，如果我输入另一列的值，该函数将返回一个列的单个对应值。
这是我的数据：

MADRS   3 4 5 6 7 8 9 10 
HAM     3 3 6 8 6 3 3 9

例如，如果我输入MADRS = 10，则我的输出应为9。 这是我的尝试，

madrs = as.integer (data [,1]) 
ham = data [, 2] 

conv <- function(madrs) { 
  for (i in 1:nrow(data)) {
answer <-  ham[i]  
names(answer) <- "HAM"
return(answer)
   }
}

conv(10)

HAM  
  3 

无论我输入什么madrs值，我的输出始终为3，而不是9。如何修复我的代码？任何意见是极大的赞赏。非常感谢！