R 仅当>；0.001

考虑这两个t检验的p值

set.seed(1)
x <- c(rnorm(50,1), rnorm(50, 2))
y <- (c(rep("a", 50), rep("b", 50)))

t.test(x ~ y)$p.value

[1] 1.776808e-07

set.seed(2)
x <- c(rnorm(50), rnorm(50))
y <- (c(rep("a", 50), rep("b", 50)))

t.test(x ~ y)$p.value

[1] 0.3922354

set.seed（1）
x只需使用if语句：

p_val <- t.test(x,y)$p.value;
if(p_val>=0.001) {
  print(p_val)
} else {
  print("<0.001")
}

p_val=0.001）{
打印（p_val）
}否则{
print（“Martin Dinov:这还不能满足我的需要。如果可以的话，我仍然需要打印P值，所以只需添加else大小写。请参阅更新的答案。感谢您应该想到一个ifelse类型的语句。认为这在latex文档中可能更紧凑：
p0.001，P，”@卢西亚诺，除非P是一个大于1的长度向量，否则
if（P>0.001）P else没有错