inst/snippet/Hamming.R

In fastR: Foundations and Applications of Statistics Using R

dbinom(0,4,.05)             # P(all four bits received correctly
pbinom(1,7,.05)             # P(>= 6 of 7 bits received correctly)
p <- seq(0,1,by=0.01)
dd <- data.frame(probability=c(dbinom(0,4,p),pbinom(1,7,p)),
	error.rate = c(p,p),
	method = rep(c('plain','Hamming'), each=length(p)))
plot <- xyplot( probability ~ error.rate, data = dd,
                groups = method, type='l',
                xlab='bitwise error rate', 
                ylab='message error rate',
                auto.key=list(columns=2,lines=TRUE,points=FALSE))