available <- sum(askbook[,"size"])
+     k <- 10
+     a <- 1
+     leftToTrade <- 10
+     totalPrice <- 0
+     if (available-k>0)
+         while (leftToTrade > 0) {
+             tradedAtThisPriceLevel <- min(leftToTrade,askbook[a,"size"])
+             totalPrice <- totalPrice + tradedAtThisPriceLevel*askbook[a,"Price"]
+             leftToTrade <- leftToTrade - tradedAtThisPriceLevel
+             a <- a+1
+         }
+ }
Error in if (available - k > 0) while (leftToTrade > 0) { :
  missing value where TRUE/FALSE needed
>

求大神指导这是什么错误啊