if then in data frame R

perintah if then tidak dapat dilakukan dalam data frame, cukup membingungkan

 if(red_ref>0.04045){var_R<-(red_ref+0.055/1.055)^2.4} else{var_R<-red_ref/12.92}
Warning message:
In if (red_ref > 0.04045) { :
  the condition has length > 1 and only the first element will be used

dari pesan error dapat diketahui bahwa harus melakukan hal lain untuk analisa logical ini

salah satu caranya bisa dengan menggantinya dengan logika vektor

https://stackoverflow.com/questions/11865195/using-if-else-on-a-data-frame