yesno_ballots_small.txt

Question

以下代码属于我正在处理的项目的一部分，问题是它只会针对小型数据集运行，但是当数据集很大时不会返回结果（由于复杂性和工作原因）。如何改进我的代码以使其更有效？

if((systemToUse == "Preference Points" && riding == "all")){
riding <- 1
seatsOfLiberal <- 0
   seatsOfCpc <- 0
  seatsOfNdp <- 0
  seatsOfGreen <- 0 
  ballots <- as.list(GetPointsBallotsFromFile(kPointsFilename)[[as.integer(riding)]])
  while((riding + 1) <= length(as.list(GetPointsBallotsFromFile(kPointsFilename)))) {
    for(i in 1:length(ballots)){
      ballots[[i]] <- as.integer(unlist((strsplit(ballots[[i]], "\\ "))))
    }
    winningParty <- (PreferencePoints(ballots))[[1]]
    if(winningParty == "LIBERAL"){
      seatsOfLiberal <- seatsOfLiberal + 1
    }
    if(winningParty == "CPC"){
      seatsOfCpc <- seatsOfCpc + 1
    }
    if(winningParty == "NDP"){
      seatsOfNdp <- seatsOfNdp + 1
    }
    if(winningParty == "GREEN"){
      seatsOfGreen <- seatsOfGreen + 1
    }
    riding <- riding + 1
    ballots <- as.list(GetPointsBallotsFromFile(kPointsFilename)[[as.integer(riding)]])
  }
  seatsIncorrectOrder <- c(seatsOfLiberal, seatsOfCpc, seatsOfNdp, seatsOfGreen)
  seats <- NumOfBallotsCorrectOrder(seatsIncorrectOrder)
  PrintCountryResults(seats)
  }

yesno_ballots_small.txt

是没有选票骑马1 是是否否不是没有是否是否不不不不是是否否是是是否否否是是是是否不是没有不不不不不，不，是的不不不不不不不不不，不，是的不不不不是否否是是否否是是是是否是是否是是是是否是是是否

骑马2 是是否是否否是是是是否不，不，是的是是是否是是否是是是是否是是是是不不不不不是没有是是是否是否否是是否否是是否否是是是否是是否否是否否是否否是不，不，是的是是否否是是否否

骑马3 不不不不不是没有是是是是是否是不不不不否否是是是是否是是是否是是否否是是是否否否是不不不不不是没有不是没有否否是不是没有不，不是是否否是不是没有是是否是否否是是是是否 NO NO NO NO

骑4 是是否是是是否否是是是否是是否否是否否是是是否否不是是是不不不不是是是否是是是否是是是否是是是否不是没有是是否否是是是否是是是否是是是否是是是否是是是否是是是否是是是否是否否是是是否否是是是否是是是否

骑马5 是是是否不不不不是是是否是是是否是是是否不，不是不不不不是是否否不是没有否是是否是是是否是是是否是是否否否否是是是否否是是是否是是是是不不不不否否是不是没有是是是否不，不是是是是否

骑马6 否否是是是否否否否是不不不不不，不是是否否是是是否否不不不不不不不不否否是是是是否是是是否否否是是是否否是是否否不是没有是是否否是是是否不不不不否否是否否是是是是否是是是否是是是否不是没有否是是否是是是否 NO NO NO NO

骑马7 否否是是是是否是是是否是是是否是是是否不是没有不是没有是是是否不不不不是是是否是是是否是是否是不不不不是是否否是是否否是是是否是是否否不，不，是的是是是否不，不是是是是否是是是否是是是否不，不，是的 NO NO NO NO

骑马8 否否是是是是否不不不不否否是不是没有是是是是不是是是不，不是不是没有不不不不是是否否不不不不否否是是是否否不不不不是是是否是是是否不，不是是是否是是是是否是是是否否否是不不不不不，不是是否否否＃四个在一条线上，大一个是simillar，只是有更多的选择

如何改进此循环以便在数据集很大时显示结果？

yesno_ballots_small.txt

0 个答案: