Code: Select all
!N = 1000
wfcreate(page=gm) u 1 !N
rndseed(type=mt) 12357
coef b = 1
coef r = 2
genr y = @rgamma(b(1),r(1)) 'random of Gamma dist
logl L_g
L_g.append @logl L
L_g.append L = @log( @dgamma(y,b(1),r(1)) )
L_g.append @derivstep(1) @all 1.49e-8 1e-10
L_g.append @param b(1) 0.05 r(1) 2
freeze(tb0) L_g.ml(showopts)
freeze(tb1) L_g.checkderivs
