存储for循环的结果,每次迭代的返回数都会增加

时间:2019-10-04 21:08:44

标签: r loops for-loop

我是R的新手。我只用一个月左右的时间进行编码。

我想做的是使用for循环在每个时间步生成并分配x / y坐标给正在增长/扩散的种群。

我遇到的问题是存储从for循环返回的x和y输出。关键问题是,每次迭代的收益率都会增加,我希望它们存储在每个时间步长。例如,在T0处有一个收益,而在T20处有496个。

我尝试创建晶格,数组,数据框等。我在网上找到的所有内容都无济于事。

set.seed(29807)
Adults <- allYears[3,]                     # Adult tree population yrs 1:20
Time <- 21
dist <- abs(rnorm(Distance, mean = 51.5, sd = 63))  # dispersal distribution
# Distance refers to the data table with 29807 distances.

# CREATE A FOR LOOP WHERE YOU DRAW X NUMBER OF DISTANCES EQUIVALENT TO THE NUM OF ADULTS AT THAT TIME STEP

for (i in 1:Time) {                                            
  N <- sample(dist, size = round(Adults[i]), replace = FALSE)  
  theta <- runif(N,0,2*pi)            # distance is assigned direction 
  x <- cos(theta)*N                   # assign variate a polar coordinate x
  y <- sin(theta)*N                   # assign variate a polar coordinate y
}

0 个答案:

没有答案