Question

我的代码如下。代码会多次生成g个值，比如g1，g2等。我想要做的是从循环中提取这些g值并将其用于循环之外。知道怎么做吗？

I<-1        
S<-10       
h<-1        
lmd<-1      
v<-2            
n<-100  

A=as.integer((S-I)/h)       

U=A+1           

Sha=(A*h)+I     

sindeg=seq(from = I, to =Sha, length.out =U)    

D=((lmd)^v)*(((sindeg)^(-v))-((sindeg+h)^(-v)))     

tn=(as.integer(n*D))                        

for(i in 1:A){
print(paste(tn[i]))


atn=tn[i]
k=sindeg[i]+h
m=sindeg[i]
print(paste("alt",m))
print(paste("üst",k))

g=runif(atn, m, k)

print(paste(g))

}

Answer 1

如果我理解你的观点，你可以将当前的g值放到外部（与循环相比）列表，例如这里extg：

I<-1        
S<-10       
h<-1        
lmd<-1      
v<-2            
n<-100  

A=as.integer((S-I)/h)       

U=A+1           

Sha=(A*h)+I     

sindeg=seq(from = I, to =Sha, length.out =U)    

D=((lmd)^v)*(((sindeg)^(-v))-((sindeg+h)^(-v)))     

tn=(as.integer(n*D))                        

extg = list()

for(i in 1:A)
{
    print(paste(tn[i]))


    atn=tn[i]
    k=sindeg[i]+h
    m=sindeg[i]
    print(paste("alt",m))
    print(paste("üst",k))

`   g=runif(atn, m, k)

    extg[[i]] = g

    print(paste(g))
}

`

Answer 2

您可以使用迭代函数，例如来自purrr的函数，而不是raw for循环。这里使用map2来迭代tn和sindeg

library(purrr)
gs <- map2( tn, sindeg, function(atn, m) {
  runif(atn, m, m + h )
})

如何从for循环中提取值

2 个答案: