在while condtion中获得逻辑错误。我如何纠正它？

Question

# import libraries and data
library(tidyverse)

df <- read.table(text = "V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
a1 b1 d1 d2 d3 d4 d5 NA NA E2
a1 b2 d2 d4 d1 E2 NA E1 NA NA
a1 b3 d5 d3 d1 d4 NA NA E1 E2
a2 c1 E1 E2 NA E3 NA D2 D1 D4
a2 c2 d2 d4 d1 E2 NA E1 NA NA
a2 c3 d5 d3 d1 d4 NA NA E1 E2", sep=" ", header = T, stringsAsFactors = F)

代码应计算6个变量的奖励值。每个奖励应该是0为10，每个偶数高于10累积+1，每个奇数低于10为-1。这只是我的代码的第一部分。相同的方法适用于6个变量。 while条件中存在逻辑错误，因此代码不会产生输出。我该怎么做才能解决它？

Answer 1

替换

bonusCounter = +1; 

与

bonusCounter += 1;