[R 코딩 연습문제] 함수 사용

문제

아래와 같은 데이터프레임을 입력받아서, 

> df_wh
   w   h
1 63 163
2 67 177
3 88 185

아래 결과를 출력하는 함수를 만드시오. 

> bmi2(df_wh)
   w   h      bmi
1 63 163 23.71184
2 67 177 21.38594
3 88 185 25.71220

 

정답

w=c(63,67,88)
h=c(163,177,185)
df_wh=data.frame(w,h)

bmi1=function(myvec)
{
  return(myvec[1]/myvec[2]^2*1e4)
}

bmi2=function(mydf)
{
  bmi=apply(mydf,1,bmi1)
  result=cbind(df_wh,bmi)
  
  return(result)
  
}