Nothing
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))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.