<<-
A = matrix(1:9, nrow = 3) Tr(A)
## Error in Tr(A): could not find function "Tr"
identical(stats:::Tr(A), sum(diag(A)))
## [1] TRUE