Objetivo: Somar as linhas de uma matriz de ordem N
library(Rcpp)
library(tidyr)
library(bindr)
library(dplyr, warn.conflicts = FALSE)
library(ggplot2)
library(microbenchmark)
library(kableExtra)
library(readr)
library(dplyr)
library(knitr)
library(stringr)
library(DT)
cppSum <- function(big.matrix, N) {
stopifnot(exists("big.matrix")) #pare se nao existir a big.matrix
stopifnot(exists("N")) #pare se nao existir o N
Time <- microbenchmark({
colsums <- rowSumsC(big.matrix)
}, times = N)$time
return(Time)
}