Displaying 1 result from an estimated 1 matches for "wholeranged".
2013 Feb 20
0
Bayesian mixing model
...ldat[Dat == 0 & !is.na(Dat)] <- 1/y[Dat == 0 &
!is.na(Dat)]
dB.p <- dgamma(Dat[, positive], kdat[, positive],
ldat[, positive], log = TRUE)
}
else {
dA.p <- 0
dB.p <- 0
}
if (any(wholeranged)) {
dA.r <- dnorm(RAT[ind.r], Rat[ind.r], sdrat[ind.r],
log = TRUE)
dB.r <- dnorm(y[, wholeranged], Dat[, wholeranged],
sddat[, wholeranged], log = TRUE)
}
else {
dA.r <- 0
dB.r <- 0...