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

 收藏

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

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 

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

回复