当答案为TRUE且为FALSE时，仅将结果设为FALSE

Question

unique(k[[2]]-k[[1]]== c(1,1))
[1] FALSE  TRUE

当答案为TRUE且为FALSE时，如果我想将结果设为FALSE（仅为FALSE），我该怎么办？

Answer 1

试试这个：

length(unique(k[[2]]-k[[1]]==c(1,1)))==1

当返回多个答案时（即，在TRUE FALSE或FALSE TRUE的情况下），此代码表示打印FALSE。

Answer 2

听起来像你想要all功能？

> k <- list(c(1L, 1L), c(3L, 3L))
> all(k[[2]]-k[[1]]== c(1,1))
[1] FALSE
> 
> k <- list(c(1L, 1L), c(2L, 3L))
> all(k[[2]]-k[[1]]== c(1,1))
[1] FALSE
> 
> k <- list(c(1L, 1L), c(2L, 2L))
> all(k[[2]]-k[[1]]== c(1,1))
[1] TRUE

请注意@www解决方案

> k <- list(c(1L, 1L), c(3L, 3L))
> length(unique((k[[2]]-k[[1]]== c(1,1)))) == 1
[1] TRUE

您希望FALSE和FALSE评估为TRUE吗？