powered by
nchoosek(n, k)
k
n
choose
S <- sapply(0:6, function(k) nchoosek(6, k)) # 1 6 15 20 15 6 1 # Relations n <- 10 sum((-1)^c(0:n) * sapply(0:n, function(k) nchoosek(n, k))) # 0
Run the code above in your browser using DataLab