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

female
height	weight
156	53.7
157	54.2
158	54.7
159	55.2
160	55.7
161	56.2
162	56.8
163	57.3
164	57.9
165	58.6
166	59.2
167	59.9
168	60.5
169	61.3
170	62

  

male
height	weight
156	55.9
157	56.6
158	57.2
159	57.9
160	58.6
161	59.3
162	60.3
163	60.7
164	61.4
165	62.1
166	62.8
167	63.6
168	64.3
169	65
170	65.8

자료가 

data
gender	height
2	156
1	166
2	162
2	167
1	168
2	165
1	159
2	159
2	164
1	158
2	159
1	160
2	164
1	159
1	156
1	159
2	162
1	158
2	168
1	161
1	164
1	161
1	164
1	162
2	163
1	156
2	163
2	167
1	170
1	156

이 자료에서 (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 는 안되는군요..ㅠㅠ

다른 방법은 없을까요??