y <- c(66, 68, 70, 72, 74)
p <- c(3/20, 5/20, 4/20, 4/20, 4/20)
E = sum(y * p)
print(E)
## [1] 70.1