Ok, thanks this solution test[lower.tri(test)] <- t(test)[lower.tri(test)] works perfectly well :) Thanks Best marcin M. -- View this message in context: http://r.789695.n4.nabble.com/Triangular-matrix-upper-to-down-tp3845107p3845352.html Sent from the R help mailing list archive at Nabble.com.