Displaying 2 results from an estimated 2 matches for "spr0".
Did you mean:
spr
2012 Oct 26
1
Openbugs- Array Index
...m)){
for(j in 1:4){
A1[i,j] <- A[i,j]*G1[i]
A2[i,j] <- A[i,j]*G2[i]
O[i,j] <- step(A[i,j]-1)# latent occupancy of each species for each site
O1[i,j] <- O[i,j]*G1[i]
O2[i,j] <- O[i,j]*G2[i]
}
}
for(j in 1:4){
AB0[j] <- sum(A[,j])
AB1[j] <- sum(A1[,j])
AB2[j] <- sum(A2[,j])
SpR0[j] <- sum(O[,j])
SpR1[j] <- sum(O1[,j])
SpR2[j] <- sum(O2[,j])
}
for(i in 1:2){
for(j in 1:4){
HabAB0[i,j] <- AB0[hab[i,j]]
HabAB1[i,j] <- AB1[hab[i,j]]
HabAB2[i,j] <- AB2[hab[i,j]]
HabSpR0[i,j] <- SpR0[hab[i,j]]
HabSpR1[i,j] <- SpR1[hab[i,j]]
HabSpR2[i,j] <- SpR2[hab[i,...
2012 Jul 13
3
Help with R2 OpenBUGs
...1:20){
A1[i,j] <- A[i,j]*G1[i]
A2[i,j] <- A[i,j]*G2[i]
O[i,j] <- step(A[i,j]-1) # latent occupancy of each species for each site
O1[i,j] <- O[i,j]*G1[i]
O2[i,j] <- O[i,j]*G2[i]
}
}
for(j in 1:20){
AB0[j] <- sum(A[,j])
AB1[j] <- sum(A1[,j])
AB2[j] <- sum(A2[,j])
SpR0[j] <- sum(O[,j])
SpR1[j] <- sum(O1[,j])
SpR2[j] <- sum(O2[,j])
}
for(i in 1:3){
for(j in 1:7){
HabAB0[i,j] <- AB0[hab[i,j]]
HabAB1[i,j] <- AB1[hab[i,j]]
HabAB2[i,j] <- AB2[hab[i,j]]
HabSpR0[i,j] <- SpR0[hab[i,j]]
HabSpR1[i,j] <- SpR1[hab[i,j]]
HabSpR2[i,j] <- Sp...