# NOT RUN {
data(Hurricanes)
# map model fit
# note exp(log_scale) to constrain scale to positive reals
m <- map(
alist(
deaths ~ dgampois( mu , exp(log_scale) ),
log(mu) <- a + b*femininity,
a ~ dnorm(0,100),
b ~ dnorm(0,1),
log_scale ~ dnorm(1,10)
),
data=Hurricanes )
# map2stan model fit
# constraint on scale is passed via contraints list
m.stan <- map2stan(
alist(
deaths ~ dgampois( mu , scale ),
log(mu) <- a + b*femininity,
a ~ dnorm(0,100),
b ~ dnorm(0,1),
scale ~ dcauchy(0,2)
),
data=Hurricanes,
constraints=list(scale="lower=0"),
start=list(scale=2) )
# }
Run the code above in your browser using DataLab