我想做一个FOR循环,对于变量SP的每个元素(每次从0到1,间隔为0.05),循环应该通过每次将SP内的下一个数字作为输入来计算函数“epo”。
一旦完成,我想把这个结果存储在一个矩阵中,以跟踪每一次计算。
这是我使用的代码
library(epo)
# INPUTS
x <- diff(log(EuStockMarkets))
s <- colMeans(x)
SP = seq(from = 0, to = 1, by = 0.05)
epo_result = epo(x = x, signal = s, lambda = 10, method = "simple", w = SP)
df # --> matrix to be filled
这是我尝试过的,但我是一个初学者在循环方面,所以是不工作
for(i in 1:ncol(t(SP))){
SP[i]= seq(from = 0, to = 1, by = 0.05)
epo_result [i] = epo(x = x, signal = s, lambda = 10, method = "simple", w=SP[i] )
df[i] <- c(epo_result [i])
}
1条答案
按热度按时间vnjpjtjt1#
您可以使用
lapply()
在SP上进行重命名。