search for: tc_c

Displaying 1 result from an estimated 1 matches for "tc_c".

Did you mean: ac_c
2011 Jul 19
1
Measuring and comparing .C and .Call overhead
...sec\n") cat(".Call - Time measured in C++: ", round(tCall_c,2), "sec\n") cat(".Call - Implied overhead: ", round(tCall_R,2) - round(tCall_c,2), "sec -> per call: ", 1000000*(round(tCall_R,2) - round(tCall_c,2))/N, "usec\n") # measuring .C tC_c <- 0.0 t1 <- proc.time()[3] for (i in 1:N) { tC_c <- tC_c + .C("matvecMultiply2", as.double(A), as.double(x), double(c(m)), as.integer(c(m)), as.integer(c(n)), t = double(1))$t } tC_R <- proc.time()[3] - t1 cat(".C - Time measured in R: ", round(tC_R,2), "sec\n...