# NOT RUN {
n=50
s=.3
#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) #the model
vcov(o) #the full covariance matrix
vcov(o, se=TRUE) #st.errs only
# }
Run the code above in your browser using DataLab