慕田峪9158850
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#datadata$REL <- data$bugfor(i in 1:length(data$REL)){if(data$bug[i] > 0)data$REl[i] <- 1#参数长度为0