可能这个问题太简单了,但我找不到实用的答案。我们如何提取R中任意方阵的相反对角线元素?在下面的示例中,将是:7, 2, 8
.
r <- matrix(c(1, 5, 8, 1:3, 7:9), 3)
一种方法可能是
r[(n<-nrow(r))^2-(1:n)*(n-1)]
# [1] 7 2 8
## microbenchmark (matrix(1:1e6,1000))
# Unit: microseconds
# expr min lq mean median uq max neval
# r[(n<-nr... 26.897 39.0075 65.36835 47.309 85.9345 316.97 100
# diag(r[,... 18070.388 18905.3475 20237.09599 19956.615 20423.4695 27798.88 100
# rev(r[ro... 14220.609 21206.7220 21238.59515 22036.275 22599.4490 33252.58 100
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)