R语言中如何统计每行中大于特定值的列的数量并赋值

otu	a1	a2	a3	a4	a5
otu1	12	34	0	10	2
otu2	34	45	34	67	0
otu3	25	0	6	0	5
otu4	0	78	0	0	90
otu5	0	3	12	8	0
请问在R语言中如何统计每一行OTU数量大于0的列的数值，并将其添加在a5列之后？