library( "miscTools" ) ## matrix m <- matrix( 1:24, nrow = 6, ncol = 4 ) cm1 <- colMedians( m ) print( cm1 ) rm1 <- rowMedians( m ) print( rm1 ) all.equal( cm1, rowMedians( t( m ) ) ) all.equal( rm1, colMedians( t( m ) ) )
Generated by dwww version 1.15 on Wed Jun 26 01:03:03 CEST 2024.