如何确保列表中的每个元素都大于.05？

Question

我将dunn.test的输出放在数据帧中，例如，在age.results1,1中，有一个列表

[1] 0.43032565 0.49113535 0.46824512 0.02847439 0.02312762 0.12649953

如果我想打印"yes“，如果它们都大于.05，我该怎么做？我最初的想法是计算小于.05的数字，如果它大于0，那么我将编写另一个函数来打印"no“。但是，如果我尝试

sum(age.results[1,1]<.05)
Error: (list) object cannot be coerced to type 'double'

我如何修复这段代码，如果这个特定列表中的所有内容都大于.05，则输出"yes“；如果只有一个值小于.05，则输出"no”？

Answer 1

试试这个：sum(sapply(results[1,1], function(x) x<.05))>0

如果它们都大于.05，则返回FALSE，否则返回TRUE。您可以在结果周围添加一个ifelse包装器来返回您自己的字符串。

Answer 2

怎么样?

all(results[1,1] > .05)

Answer 3

vec <- c(0.43032565, 0.49113535, 0.46824512, 0.02847439, 0.02312762, 0.12649953)

mean(vec > 0.05) == 1
[1] FALSE

同样适用于vec是列表而不是向量的情况，正如您的问题所暗示的那样

mean(as.list(vec) > 0.05) == 1
[1] FALSE

所以为了完整地回答你的问题，

print(ifelse(mean(vec > 0.05) == 1, 'yes', 'no'))
[1] "no"