Displaying 1 result from an estimated 1 matches for "tp1691601p1691601".
2010 Mar 26
2
Is there a faster way to do this?
...nm <- 1000
b <- matrix (rnorm (5000, 0, 1), nrow = 500, ncol = nm)
a <- matrix (0, nm, nm)
for (i in 1 : nm) {
for (j in 1 : nm) {
if ( j == i) {
next }
a[i, j] <- t (b [, i]) %*% b[, j]
}
}
thanks
--
View this message in context: http://n4.nabble.com/Is-there-a-faster-way-to-do-this-tp1691601p1691601.html
Sent from the R help mailing list archive at Nabble.com.