在R中使用两次if循环时出错(参数长度为零)

Question

我想在R中写if循环2次，像下面的代码，但我得到一个错误(错误在if (if (isstrue (shapiro.test(X))$p。value>= 0.05) == TRUE) {:参数的长度为0)我如何纠正它?

if ( if(isTRUE(shapiro.test(X)$p.value>=0.05)==TRUE) {t.test(X, alternative = "two.sided")$p.value>=0.05} ) {
b <- total/1000}
else {b <- 1 - total/1000}

Answer 1

我想你是这个意思:

b = ifelse(
test = all(shapiro.test(X)$p.value>0.05, t.test(X,alternative="two.sided")$p.value),
yes = total/1000,
no = 1-total/1000
)