如何將xts對象的每個值設置爲以前所有值的最小值？

Question

此我想要做什麼，但我不認爲這是應該做的正確方法...

for (n in 1:length(z)) { 
    if (z[n,] > min(z[1:n,])) { 
     z[n,] = min(z[1:n,]) 
    } 
} 

Answer 1

您是否在尋找cummin？

set.seed(1) 
z <- sample(1:10) 
z 
# [1] 3 4 5 7 2 8 9 6 10 1 

cummin(z) 
# [1] 3 3 3 3 2 2 2 2 2 1