Files
@ 1cdd4dffb04a
Branch filter:
Location: DA/raaql-paper-experiments/operators.R - annotation
1cdd4dffb04a
546 B
text/S-plus
removed big files
2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 2aece7dd2719 6da277f993c5 6da277f993c5 | source("harness.R")
dd <- function() {as.integer(runif(10^s, 1, 100))}
for (s in 4:sm) {
a <- list(dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd())
x <- dd()
dim(x) <- c(length(x),1)
attr(a, "row.names") <- 1:length(a[[1]])
class(a) <- "data.frame"
for (r in 1:5) {
timing <- system.time({
m <- matrix(data=as.numeric(NA), ncol=1, nrow=ncol(a))
for(i in 1:ncol(a)){
m[i,]<-t(colSums(a[,i]*x)/sum(a[,i]))
}
print(m)
})[[3]]
log.result("operators", sys, conf, s, r, timing)
clearResultRecycler()
}
}
|