예를 들어 남녀 표준 몸무게 표가 이렇게 있다고 할때

자료가

이 자료에서 (male = 1 , female = 2 ) 표준몸무게를 찾아서 새로운 열을 하나 더 만드려고 하는데요

st.wei <- function(x,y){
  res <-  ifelse(x==1,male[which(male$height==y),2],female[which(female$height==y),2] ) 
  return(res)
}

고민하다가 이렇게 function 지정해서 하려고 했는데..apply 는 안되는군요..ㅠㅠ

다른 방법은 없을까요??

한외과

질문데이터 전처리 과정에서 어려운 것이 있어 질문 드립니다.