叫我猫耳君 叫我猫耳君
关注数: 3 粉丝数: 29 发帖数: 351 关注贴吧数: 15
R语言求助! "missing value where TRUE/FALSE needed" 运行时会报错,提示: Error in if (line[2] == code[j] && line[31] != 0) { : missing value where TRUE/FALSE needed 程序如下: con <- file("C://Users//Departures//Downloads//2017ru//ru20170103.csv", "r") state = 0 line = readLines(con,n=1) while( length(line) > 0 ) { line=(readLines(con,n=1)) line = unlist(strsplit(line,split = ",")) if(line[2] == code[j] && line[31] != 0) { if(line[31]<=range_buy && line[33] <= range_buy) { cat(c(line[31],1,0,0,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) state = state+1 } if(line[31]<=range_buy && line[33] >= range_buy && state <= 5) { cat(c(line[31],1,0,0,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) state = state+1 } if(line[31]<=range_buy && line[33] >= range_buy && state > 5) { out = round(state/3) cat(c(0,0,line[33],out,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) state = state-out } if(line[31]>=range_buy && line[33] >= range_buy && state > 5) { out = round(state/3) cat(c(0,0,line[33],out,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) state = state-out } if(line[31]>=range_buy && line[33] >= range_buy && state <= 5 && state > 0) { cat(c(0,0,line[33],1,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) state = state-1 } if(line[31]>=range_buy && line[33] >= range_buy && state == 0) { cat(c(0,0,0,0,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) } if(line[31]>=range_buy && line[33] <= range_buy) { cat(c(0,0,0,0,line[15],"\n"),file = paste("C://Users//Departures//Downloads//2017ru//result_",code[j],".csv"),append = T) } } } close(con) } 刚学习R语言,编的很乱。。。大佬们见谅 是不是因为读到空值行的时候没有结束循环啊,还是其他的原因?该怎么改正啊
1 下一页