我想用JAGS來推斷(隨機)純出生過程中的出生率。 在化學的語言,這種模式是相當於反應:X-> 2X與速率的α* X(也可以被看作是一個鏈式反應的模型) 這是R代碼我用於生成過程(在固定時間)以及用於對參數α進行推斷的鋸齒代碼。 library(rjags)
y <- 1; # Starting number of "individuals"
N <- 25 # number of time
我想創建一個簡單的隨機遊走。這是我寫的代碼。 n=50;
p=0.5;
Y=zeros(n,1);
X=zeros(n,1);
X(1)=0;
for i=1:length(n)
Y(i,1)=(rand(1)<=p);
end
for i=1:length(n)
X(i+1)=X(i)+(2*Y(i)-1);
end
plot(1:n,X,'.-')