search for: habspr1

Displaying 2 results from an estimated 2 matches for "habspr1".

Did you mean: habspr0
2012 Oct 26
1
Openbugs- Array Index
...um(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,j]] } HAB0[i] <- mean(HabAB0[i,]) HAB1[i] <- mean(HabAB1[i,]) HAB2[i] <- mean(HabAB2[i,]) HSpR0[i] <- mean(HabSpR0[i,]) HSpR1[i] <- mean(HabSpR1[i,]) HSpR2[i] <- mean(HabSpR2[i,]) } R <- sum(w[1:(S+m)])# estima...
2012 Jul 13
3
Help with R2 OpenBUGs
...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] <- SpR2[hab[i,j]] } HAB0[i] <- mean(HabAB0[i,]) HAB1[i] <- mean(HabAB1[i,]) HAB2[i] <- mean(HabAB2[i,]) HSpR0[i] <- mean(HabSpR0[i,]) HSpR1[i] <- mean(HabSpR1[i,]) HSpR2[i] <- mean(HabSpR2[i,]) } R <- sum(w[1:(S+m)]) # estimat...