求大神相助

#我想新建一个列REL，对于列bug中>0的则REL为1，这么写报错 参数长度为0
data$REL <- data$bug
for(i in 1:length(data$REL)){
if(data$REL[i] > 0)
data$REl <- 1#参数长度为0
}
#我想将数据中的每一列都除以相应行数的loc该怎么写，这么写报错 替换数据里有0行，但
数据有746
data$wmc <- data$wmc/data$loc
data$dit <- data$dit/data$loc
data$noc <- data$noc/data$loc
data$cbo <- data$cbo/data$loc
data$rfc <- data$rfc/data$loc
data$lcom <- data$lcom/data$loc
data$ca <- data$ca/data$loc
data$ce <- data$ce/data$loc
data$npm <- data$npm/data$loc
data$lcom3 <- data$lcom3/data$loc
data$dam <- data$dam/data$loc
data$moa <- data$moa/data$loc
data$mfa <- data$mfa/data$loc
data$cam <- data$cam/data$loc
data$ic <- data$ic/data$loc
data$cbm <- data$cbm/data$loc
data$amc <- data$amc/data$loc
data$max_cc <- data$max_cc/data$loc
data$avg_cc <- data$avg_cc/data$loc
#满地打滚求大神