While-loop in r: In while ((p + colSums(Z) - rowSums(Z)) > 10) { : the condition has length > 1 and only the first element will be used

Question

I have a vector p and a matrix Z, here is a reproducible example:

p <- c(Afghanistan = 2769, Albania = 93893300, Algeria = 0, Argentina=4550430, Australia=