Slide 26
Slide 26 text
Entropy to accuracy
OTUFBE UIBU UIFTF FWFOUT IBQQFO XJUI QSPCBCJMJUJFT R = ., R =
DI BEEJUJPOBM VODFSUBJOUZ IBWF XF JOUSPEVDFE
BT B DPOTFRVFODF PG
, R} UP BQQSPYJNBUF Q = {Q, Q} ćF GPSNBM BOTXFS UP UIJT RVFT
VQPO )
BOE IBT B TJNJMBSMZ TJNQMF GPSNVMB
%,-(Q, R) =
J
QJ MPH(QJ) − MPH(RJ) .
HVBHF
UIF EJWFSHFODF JT UIF BWFSBHF EJČFSFODF JO MPH QSPCBCJMJUZ CF
FU Q
BOE NPEFM R
ćJT EJWFSHFODF JT KVTU UIF EJČFSFODF CFUXFFO
ćF FOUSPQZ PG UIF UBSHFU EJTUSJCVUJPO Q BOE UIF FOUSPQZ BSJTJOH
UP QSFEJDU Q 8IFO Q = R
XF LOPX UIF BDUVBM QSPCBCJMJUJFT PG UIF
U DBTF
,-(Q, R) = %,-(Q, Q) =
J
QJ MPH(QJ) − MPH(QJ) = .
EJUJPOBM VODFSUBJOUZ JOEVDFE XIFO XF VTF B QSPCBCJMJUZ EJTUSJCVUJPO
TFMG ćBUT TPNFIPX B DPNGPSUJOH UIPVHIU #VU NPSF JNQPSUBOUMZ
PSF EJČFSFOU GSPN Q
UIF EJWFSHFODF %,-
BMTP HSPXT
FSHFODF DBO EP GPS VT OPX JT IFMQ VT DPOUSBTU EJČFSFOU BQQSPYJNB
*/'03."5*0/ 5)&0
0.0 0.2 0.4 0.6 0.8 1.0
0.0 0.5 1.0 1.5 2.0 2.5
q[1]
Divergence of q from p
q = p
'
J
Q
U
Q
Q
J
U
p <- c(0.3,0.7)
DKL <- function(p,q)
sum(p*(log(p)-log(q)))
q1seq <- seq(from=0.01,to=0.99,by=0.01)
DKLseq <- sapply(q1seq,
function(q1) DKL(p,c(q1,1-q1)) )
plot( q1seq , DKLseq )