z <- complex(real = 1:4, imaginary = 1:4)
p <- as_coord2d(z)
abs(p) # Euclidean norm
# Less efficient ways to calculate same Euclidean norms
sqrt(p * p) # `*` dot product
distance2d(p, as_coord2d(0, 0, 0))
# In {base} R `abs()` calculates Euclidean norm of complex numbers
all.equal(abs(p), abs(z))
all.equal(Mod(p), Mod(z))
p3 <- as_coord3d(x = 1:4, y = 1:4, z = 1:4)
abs(p3)
Run the code above in your browser using DataLab