我有兩組數字 A 和 B。我想進行引導分析，在其中計算每個組中值之間的百分比差異，但僅適用于組 A > B 中的值的情況。
我試過在下面撰寫代碼，但我得到的所有值都是 0。有人對如何做到這一點有任何建議嗎？
A <- c(13,5,8,1,23,4,7,2,14,27)
B <- c(5,7,0.5,10, 1,3, 0.7,2,0.8,4)
percentage_difference <- function(value, value_two) {
(value - value_two) / value
}
n <- 10000
Per_Dif <- numeric(n)
for (i in 1:n) {
if(A > B){Per_Dif[i] <- percentage_difference(sample(A, replace = T), sample(B, replace = T))}
}
uj5u.com熱心網友回復：
嘗試
do.call(c,lapply(1:n, function(boot){
a <- sample(A, replace = T)
b <- sample(B, replace = T)
percentage_difference(a,b)[a>b]
}))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/368034.html