Displaying 1 result from an estimated 1 matches for "commtest".
2008 Nov 06
3
.C(..., DUP=FALSE) memory costs depending on input size?
...nce from 512 to 2^23 with 2^17 stepsize
a <- seq(512, 2^23, 2^17)
# storage for wall time
h <- length(a); j <- length(a)
for (i in 1:length(a)) {
x <- as.double(1:a[i])
y <- as.double(x)
# system.time()[3] is (actual) wall time
h[i] <- system.time(.C("commTest", x, y, DUP=FALSE))[3]
j[i] <- system.time(.C("commTest", x, y, DUP=TRUE))[3]
x <- 0
y <- 0
}
# plot:
plot(a, h, type="l", col="red", xlab="Vector Size -->", ylab="Time in
Seconds -->"); lines(a, j, col=&q...