Displaying 1 result from an estimated 1 matches for "mfsssc".
Did you mean:
csssc
2013 Jan 03
1
R2OpenBUGS question with differential equations
...ble to run this code OpenBUGS installed, also please note this is only an example, I really need to reproduce the ideas from above using the bayesian approach):
library(R2OpenBUGS)
D <-400
tin <-1
VDPRE <-0.5
LWEIGHT <-68
CRCL <-60
tau <-12
T <-2
ts <-c(2,8)
c <-c(15,6)
mfsssc <- function() {
for (i in 1:1) {
for (j in 1:T) {
c[j]~dnorm(mu[j],100)
mu[j]<-((D/tin)*(1/cl))*(((1-exp(-(cl/v)*tin))*exp(-(cl/v)*(ts[j])))/(1-exp(-(cl/v)*tau)))
}
cla~dnorm(0, 6.25)
va~dnor...