# R program to print the 
# upper triangle of a matrix
  
# Creating a matrix
mat <- matrix(c(1:9), 3, 3, byrow = T)
  
# Calling upper.tri() Function
# Excluding diagonal elements
upper.tri(mat, diag = F)

      [, 1]  [, 2]  [, 3]
[1, ] FALSE  TRUE  TRUE
[2, ] FALSE FALSE  TRUE
[3, ] FALSE FALSE FALSE

# R program to print the 
# upper triangle of a matrix
  
# Creating a matrix
mat <- matrix(c(1:9), 3, 3, byrow = T)
  
# Calling upper.tri() Function
# including diagonal elements
upper.tri(mat, diag = T)

      [, 1]  [, 2] [, 3]
[1, ]  TRUE  TRUE TRUE
[2, ] FALSE  TRUE TRUE
[3, ] FALSE FALSE TRUE