# if p = 0
zero <- 1/8 * 1/8
zero
## [1] 0.015625
# if p = 1
one <- 1/8 * 3/8 + 3/8 * 1/8
one
## [1] 0.09375
# if p = 2
two<-1/8 * 1/2 + 3/8 * 3/8 + 1/2 * 1/8
two
## [1] 0.265625
# if p = 3
three<- 3/8 * 1/2 + 1/2 * 3/8
three
## [1] 0.375
# if p = 4
four <- 1/2 * 1/2
four
## [1] 0.25