# MTT Luennot 01.11.2006, syksy 2006
library(MASS)
n<-12
x<-sample(c(0,1),12,replace = T)
y<-2^(-n)
fractions(sum(x*y))
[1] 7/4096
7/4096
[1] 0.001708984