setwd("E://xuexi//bishe//datasets")
options(stringsAsFactors=F)
data <- read.table("ant-1.7.csv",header=FALSE,sep=",")
#####################################################################
# CE: model evaluation criteria for cost-effectiveness ( 5%, 10%, 15%, 20%, ..., 100%)
#####################################################################
#我想新建一个列REL，对于列bug中>0的则REL为1，这么写报错 参数长度为0
#data
data$REL <- data$bug
for(i in 1:length(data$REL)){
        if(data$bug[i] > 0)
                data$REl[i] <- 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
data