# NOT RUN {
n=50
s=.4
set.seed(1515) #just to get reproducible results..
#covariates
x<-seq(.1,10,l=n)
z<-rnorm(n)
#response
mu<- 10+.5*x- z #linear regression function
y<-rlnorm(n, log(mu)-s^2/2, s) #data..
o<- lognlm(y~x+z, lik=TRUE) #ML estimation
confint(o, "x", type="g")
confint(o, "z", type="w") #same than confint.default(o)
# }
Run the code above in your browser using DataLab