Last chance! 50% off unlimited learning
Sale ends in
x <- matrix( rnorm(1000 * 2000), ncol = 2000 )
system.time( s1 <- rowMins(x) )
system.time( s1 <- apply(x, 1, min) )
system.time( s1 <- rowMaxs(x) )
system.time( s1 <- apply(x, 1, max) )
Run the code above in your browser using DataLab