statistics - Question with R. Element wise multiplication, addition, and division with 2 data.frames with varying amounts of missing data in a given row -

I have different data with columns of the same length. For frames where I put together more than one 2 rows element and then deposit this amount, for example, there are two vectors below. I want to carry this operation.

  & gt; A.1 [186,] q01_a q01_b q01_c q01_d q01_e q01_f q01_g q01_h q01_i q01_j q01_k q01_l q01_m 3 3 3 2 2 2 3 1 ne2 2  

and

  & gt; U.1 [186,] q04_avl_a q04_avl_b q04_avl_c q04_avl_d q04_avl_g q04_avl_f q04_avl_g q04_avl_h q04_avl_i q04_avl_j q04_avl_k q04_avl_l q04_avl_m 4 2 3 4 3 4 4 4 3 3 3 3`  

The issue is that the different The number of NAs in rows varies. What I would like to do, leave the multiplication with any missing values ​​(example above my 10% and 11th place), and then after the division of the number of additional elements which have been multiplied (11 from the above example) after. The most lines have been completed and it will be multiplied by 13.

Thank you!

  x < -c (3,3,3,3,2,2,2,3,1, NA, NA, 2,2) Y & LT; - C (4,2,3,4, 3,4,4,4,3,4,3,3,3) amount (x * y, no. Rm = t) / zodiac (! INNA (X * Y   Edit   
 In the case of factors, first convert them to numeric  
  x & lt; - as.factor (c (3,3,3,3,2,2,2,3,1, NA, NA, 2, 2)) y & lt; - as.factor (c (4,2,3,4,3, 4,4,4,3,4,3,3,3)) xy & lt; - as.numeric (as.character (x)) * as.numeric (as.character (y)) amount (xy, na rm = t) / zodiac (! Is.na (xy)) [1] 8