ma=rbind(c(5,4,3,2,1), c(10,9,8,7,6), c(120,119,103,104,105)) final=rbind(c(1,2), c(6,7), c(103,104)) test_that("DosMinimos", { expect_equal(DosMinimos(ma), final,tolerance=1e-6) })