Displaying 1 result from an estimated 1 matches for "temprow41".
Did you mean:
temprow
2005 Jun 10
2
Replacing for loop with tapply!?
...for each of 15000 weather stations:
m <- 37
n <- 2
outmat88 <- matrix(0, ncol = 4, nrow = nrow(mat88))
for(i in 1:nrow(mat88)) {
# i <- 3
row1 <- as.data.frame(df88[i, ])
temprow37 <- select.rows(row1, row1 > m)
temprow39 <- select.rows(row1, row1 > m + n)
temprow41 <- select.rows(row1, row1 > m + 2 * n)
outmat88[i, 1] <- max(row1, na.rm = T)
outmat88[i, 2] <- count.rows(temprow37)
outmat88[i, 3] <- count.rows(temprow39)
outmat88[i, 4] <- count.rows(temprow41)
}
outmat88
We have transferred the data to a more potent Linux box runni...