Displaying 1 result from an estimated 1 matches for "thiscoefsum".
2012 Apr 23
0
linear model benchmarking
...re we do the NaN checks
x[1,1,1] <- NA
y[2,2] <- NA
options(digits=2)
time.factor.first <- first.checksum <- NA
for (ctr in 1:length(ols)) {
invisible({gc(); gc(); gc()})
coefsum <- 0.0
v <- system.time(for (mc in 1:MC) coefsum <- coefsum +
ols[[ctr]](y[,mc], x[,,mc]))
thiscoefsum <- sum(abs(coefsum))
thistime <- sum(as.numeric(v)[1:2])/MC
if (is.na(time.factor.first)) time.factor.first <- thistime
if (is.na(first.checksum)) first.checksum <- thiscoefsum
cat(sprintf("%13.13s", names(ols[ctr])), " Checksum = ", thiscoefsum, "("...