Tenho a seguinte base ( uma parte, são várias linhas):

bd<-"id;evento1;nomes;cons_jan_15    ;valor_jan_15;cons_fev_15;valor_fev_15;cons_mar_15;valor_mar_15    ;cons_abr_15;valor_abr_15;cons_mai_15;valor_mai_15
49;A;Santo Antônio do Descoberto;9033.36;4848.67;13131.13;4320.57;8121.07;4410.8;8562.85;6241.59;8261.5;5586.92
49;A;Santo Antônio do Descoberto;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA
49;A;Santo Antônio do Descoberto;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA
64;D;Goiânia;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA
64;D;Goiânia;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA
64;D;Goiânia;4091.54;3076.74;5482.15;2243.94;3380.04;2033.13;3003.66;2250.64;3601.44;2550.23
23;E;Anicuns;6833.28;3772.8;8706.81;2961.72;5524.23;3285.14;6157.68;4381.01;5997.78;4178.95
23;E;Anicuns;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA
23;E;Anicuns;NA;NA    ;NA;NA;NA;NA;NA;NA;NA;NA
23;E;Anicuns;NA;NA    ;NA;NA;NA;NA;NA;NA;NA;NA"
dads <- read.table(header = TRUE, text=bd, sep=";")
dads

Quero somar as linhas, de modo que:

id	evento1	nomes	cons_jan_15	valor_jan_15	cons_fev_15	valor_fev_15	cons_mar_15	valor_mar_15	cons_abr_15	valor_abr_15	cons_mai_15	valor_mai_15
49	A	Santo Antônio do Descoberto	9033,36	4848,67	13131,13	4320,57	8121,07	4410,8	8562,85	6241,59	8261,5	5586,92
49	A	Santo Antônio do Descoberto	0	0	0	0	0	0	0	0	0	0
49	A	Santo Antônio do Descoberto	0	0	0	0	0	0	0	0	0	0
49	A	Santo Antônio do Descoberto	9033,36	4848,67	13131,13	4320,57	8121,07	4410,8	8562,85	6241,59	8261,5	5586,92
64	D	Goiânia	0	0	0	0	0	0	0	0	0	0
64	D	Goiânia	0	0	0	0	0	0	0	0	0	0
64	D	Goiânia	4091,54	3076,74	5482,15	2243,94	3380,04	2033,13	3003,66	2250,64	3601,44	2550,23
64	D	Goiânia	4091,54	3076,74	5482,15	2243,94	3380,04	2033,13	3003,66	2250,64	3601,44	2550,23
23	E	Anicuns	6833,28	3772,8	8706,81	2961,72	5524,23	3285,14	6157,68	4381,01	5997,78	4178,95
23	E	Anicuns	0	0	0	0	0	0	0	0	0	0
23	E	Anicuns	0	0	0	0	0	0	0	0	0	0
23	E	Anicuns	0	0	0	0	0	0	0	0	0	0
23	E	Anicuns	6833,28	3772,8	8706,81	2961,72	5524,23	3285,14	6157,68	4381,01	5997,78	4178,95

Obrigado pela ajuda,