# 1 and 1 simulation
# note that "times" is the number of times to the line per game

# counters initialized
games <- 25 ; times <- 9 ;  prob1 <- .72

first <- c(rbinom(times*games, size=1, prob=prob1))
second <- c(rbinom(times*games, size=1, prob=prob1))
result1 <- (first + first*second)/games
cat("total 1-1 free throw points made =", sum(result1), "\n")