Displaying 1 result from an estimated 1 matches for "liboptio".
Did you mean:
liboption
2004 Sep 12
0
write.table performance: an alternative?
...2 <- floor(a1)
a3 <- as.character(1:1000000)
a <- data.frame(a1, a2, a3)
Rprof()
write.table(a, "salidaNoOptimizada.dat")
Rprof(NULL)
summaryRprof()
////////////////////// Program End /////////////////
and
///////////////////// Program Start /////////////////
dyn.load("liboptio.so")
a1 <- rnorm(1000000)
a2 <- floor(a1)
a3 <- as.character(1:1000000)
a <- data.frame(a1, a2, a3)
Rprof()
borrar <- .C("escribir", as.integer(1000000), as.character("dic"),
as.integer(3), as.double(a[,1]), as.integer(a[,2]), as.character(a[,3]))
Rprof(NU...