Oi, Adriele.
Repare no código do Walmes que há duas soluções para você:
(i) Converter os valores que estão como character no momento de somá-los (dentro do loop); ou
(ii) Assim como para o exemplo ele criou uma matrix de character com base em valores numeric, você pode fazer o oposto com a sua:
new_data <- matrix( as.numeric(data[, 1:3]), ncol = 3 )
Caso necessite de precisão maior que as casas decimais default, você pode aumentá-las com o options( digits = quantas_casas_decimais_voce_precisa )
Vai de você ver se vai utilizar novamente estes valores, aí pode ser mais interessante já converter o dado para numeric.
Abs,
Karina
Abs,
Karina