Displaying 1 result from an estimated 1 matches for "fillrow".
2008 Jul 06
3
Lots of huge matrices, for-loops, speed
...lt;- summary (model)$adj.r.squared
f <- summary (model)$fstatistic
out3[3] <- 1-pf(f[1],f[2],f[3])
out3[4:items] <- coef(model)[1:(1 + ncol(x))]
out3 }
out2[l,] <- regression (l)
}
}
out2
}
fillrow <- getgrid (j)
# Append results to output files
for (m in 1:items) {
write.table (t(fillrow [,m]), file = paste (outfolder, filenames [m],
".asc", sep =""), append=T, quote=F, na = as.character (-9999),
row.names = F, col.names = F, dec=".") }
}
}...