expected <- eval(parse(text="structure(c(-0.365543432545085, NA, 0.719170679378362, -0.280829320621638, -0.43834135875385, 0.731086865087296, -0.365543432545085), .Dim = c(7L, 1L), .Dimnames = list(c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\"), NULL))"));       
test(id=0, code={       
argv <- eval(parse(text="list(structure(c(0, 0.719170679378362, -0.280829320621638, 0, -0.43834135875385, 0, -0.0525040127116955, 0.783590877798991, -0.365543432545085, -0.0525040127116955, -0.31303941983339, 0, 0, NA), .Names = c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\", \"11\", \"12\", \"13\", \"14\")), c(3, 3, 4, 5, 5, 6, 6, 6, 7, 1, 1, 1, 1, 2), c(1, 2, 3, 4, 5, 6, 7), FALSE, c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\"))"));       
.Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]));       
}, o=expected);       

