我是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
}