# NOT RUN {
# The "model" may be a stub.
model <- list(likelihood="poisson", link="log")
ll.call("scale.name", model)
# "Hazard Ratio"
ll.call("mtc.arm.mle", model, c('responders'=12, 'exposure'=80))
# mean sd
#-1.8562980 0.1118034
# }
Run the code above in your browser using DataLab