{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

15. [R] Illustration for Theorem 8.5.2A Rice

# 15. [R] Illustration for Theorem 8.5.2A Rice - abline v=...

This preview shows page 1. Sign up to view the full content.

# illustration for theorem 8.5.2A Rice # ell(theta) -> E_0 ( log(f(X; theta) ) theta.0 = 2 Lam = function(theta, theta.0 = 2){ log(theta) - theta/theta.0 } n = 10 log.lik.n = function(theta , x.dat){ log(theta) - theta*mean(x.dat) } theta.pts = seq(.1 , 5 , .01) x = rexp(n , rate = theta.0) theta.hat = 1/mean(x) plot( theta.pts , log.lik.n(theta.pts , x ), type = "l", ylim = c(-2 , 1))
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: abline( v= theta.hat , lty=1) lines( theta.pts , Lam(theta.pts , theta.0) , lty = 2) abline(v = theta.0 , lty = 2) ±#!² ³²+"² ³ ´µ¶ ·´¶ ´· \$00, ¸¶¶33 3¹/0±0/¹13+¹º±¶"±º1(05¶' 1(, !.#!.¶»0±0¼½¾½¶¿+) , 10% *#¶5» Á½Á¾Á´\$Á 5%¹¹...
View Full Document

{[ snackBarMessage ]}

Ask a homework question - tutors are online