How can I calculate the means of rows while excluding the zero values from rows in data frame

Question

I am trying to calculate the mean of each row in my data frame. There are zeros in each row and I want to exclude these from calculation. I do not want to remove the entire row but only the zeros and calculate the mean of remaing values in each row. If row has all zero values than result should be Zero.

Answer 1

How about

nzmean <- function(x) {
    if (all(x==0)) 0 else mean(x[x!=0])
}
apply(mydata,1,nzmean)

?

It occurs to me that it might be marginally faster to do

nzmean <- function(x) {
    zvals <- x==0
    if (all(zvals)) 0 else mean(x[!zvals])
}

i.e. try to avoid doing the comparison of x with zero twice.