R语言 | 复数 相关函数

问题

大家好，我有一个问题，我看到一个函数如下：

L2_distance <- function(A, B){
  rowA <- apply(A*A, 1, sum)
  matrixA <- matrix(rep(rowA, each=length(rowA)), nrow=length(rowA), byrow=T)
  rowB <- apply(B*B, 1, sum)
  matrixB <- matrix(rep(rowB, each=length(rowB)), nrow=length(rowB), byrow=F)
  C <- 2 * A %*% t(B)
  dis <- Re(matrixA + matrixB - C)
}

请问倒数第二行Re的作用是什么

解答

查文档：返回复数的实部

测试 示例

> Re
function (z)  .Primitive("Re")
> ?Re
> a1=1:2 + 1i*(8:9)
> a1
[1] 1+8i 2+9i
> Re(a1)
[1] 1 2
> Re(5+1i*10)
[1] 5
>