> set.seed(42)

> N <- 5

> vec <- complex(5, rnorm(5), rnorm(5))

> t(getRe(vec))
           [,1]        [,2]      [,3]       [,4]       [,5]
[1,] -0.9390771 -0.04167943 0.8294135 -0.4393582 -0.3140354

> Re(vec)
[1] -0.93907708 -0.04167943  0.82941349 -0.43935820 -0.31403543

Warning message:
In getRe(vec) : imaginary parts discarded in coercion