# NOT RUN {
#========================================================================================
# Revised 2019 oct. This is same as sum(), I did not know this
#========================================================================================
a <-c(TRUE,FALSE,FALSE,TRUE,TRUE)
TRUE.Counter.in.vector(a)
# Of course, it is:
#> Number.of.TRUE
# 3
sum(a) == TRUE.Counter.in.vector(a)
# I did not know this equality,... no longer this function is needed
# }
Run the code above in your browser using DataLab