我已经创建了NAs的容器,并且正在尝试用一个指定值替换NAs,该值是其中一个函数中的一个参数。
num.cars.beg<-20
num.cars.end<-70
num.cars.incr<-5
num.cols<-(abs(num.cars.end-num.cars.beg)/num.cars.incr)+1
num.its<-10
car.var.mat<-matrix(NA,num.its,num.cols) #creates empty container to hold
results
car.intervals<-c(seq(num.cars.beg,num.cars.end, num.cars.incr))
colnames(car.var.mat)<-paste(car.intervals,"Cars",sep = " ")
rownames(car.var.mat)<-paste("Iter.",c(seq(1,num.its,1)),sep = "")这创建了一个矩阵,其中行由"num.its“驱动,列是从20到70的"num.cars”,间隔为5。对于每次迭代,我想通过我的公式" run.sim“运行每一列,并用run.sim的值替换NAs。举个例子:
num.cars = 20 num.cars = 25
num.its = 1 run.sim1 output run.sim2 output
num.its = 2 run.sim3 output run.sim4 output哪里,
run.sim(num.cars = each value in car.intervals, num.its = 2)发布于 2018-10-22 00:55:26
填充容器的关键是: 1)确保for循环的结构为"1:numcols“或"1:numrows”;2)通过矩阵car.intervals的[]定义num.cars的run.sim中的参数,以便澄清函数循环遍历每行i,它在每列j中的相应位置。
num.its <- 1
num.itr <- 10
for (i in 1:num.itr){
for (j in 1:num.cols){
car.var.mat[i,j]<-mean(run.sim(
num.cars = car.intervals[j],
num.its = num.its))
}
}https://stackoverflow.com/questions/52911364
复制相似问题