[英]Replacing NAs in a Matrix in R
我创建了NA的容器,并试图用指定的值替换NA,该值是函数之一中的自变量。
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”驱动,列是“ num.cars”,范围为20-70,间隔为5。对于每次迭代,我想通过公式“ run”运行每一列.sim”,并用run.sim的值替换NA。 因此,例如:
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)
填充容器的关键是1)确保for循环的结构为“ 1:numcols”或“ 1:numrows”,以及2)通过的[]定义run.sim中num.cars的参数。矩阵car.intervals,以便您清楚该函数遍历每行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))
}
}
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.