powered by
countgtone used in apply to count the number > 1 in a vector
countgtone(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,countgtone) # }
Run the code above in your browser using DataLab