while循环内的矩阵条件

Question

考虑以下玩具示例：

set.seed(10)
(n <- sample(5,size=1))
(d <- matrix(sample(1:100, size = n), ncol=1))
(g <- matrix(sample(1:10, size = n), ncol=1))
i <-1

while(d>g){
  cat( "iteration" , i,"\n")
  g <- g+1
  i <- i + 1
}
g

Warning messages:
1: In while (d > g) { :
   the condition has length > 1 and only the first element will be used

这里d 和g 都是列向量。 R 只检查第一个元素。只要g 的第一个元素大于或等于d，循环就会终止。但我的意图是执行循环，直到g 的每个元素都大于或等于d。如果我事先知道对象n，我会将while 循环内的条件写为(d[1]>g[1] &d[2]>g[2] &d[3]>g[3])。但我事先不知道n。我该怎么做？

Answer 1

也许你需要any:

set.seed(10)
(n <- sample(5,size=1))
# [1] 3
(d <- matrix(sample(1:100, size = n), ncol=1))
#      [,1]
# [1,]   31
# [2,]   43
# [3,]   68
(g <- matrix(sample(1:10, size = n), ncol=1))
#      [,1]
# [1,]    1
# [2,]    3
# [3,]    9
i <- 1

while (any(d>g)) { g <- g+1; i <- i+1; }
i
# [1] 60
g
#      [,1]
# [1,]   60
# [2,]   62
# [3,]   68

不过，我认为没有必要反复尝试这样做。

set.seed(10)
n <- sample(5,size=1)
d <- matrix(sample(1:100, size = n), ncol=1)
g <- matrix(sample(1:10, size = n), ncol=1)
(i <- max(d - g) + 1)
# [1] 60
g <- g + i - 1
g
#      [,1]
# [1,]   60
# [2,]   62
# [3,]   68