powered by
countones used in the base function 'apply', or 'tapply' to count the number of ones in a vector
countones(invect)
vector of values
A single value of zero or the number of ones
# NOT RUN { x <- matrix(trunc(runif(20)*10),nrow=4,ncol=5) print(x) apply(x,1,countones) # by rows # }
Run the code above in your browser using DataLab