t <- 0:6
p <- dbinom(t, 6, 1/4)
x <- 2*t-6
plot(x, p)