Loop within a loop with column names in R

Question

I have the following data:

id A B C
1  1 1 0
2  1 1 1  
3  0 1 1 

I will like to create a function that computes the following three informat