Why do I keep getting Error in sign(out$vectors[, 8]) : unimplemented complex function when I run my Rcode?

Question

For reference purposes I will state the problem I am doing along with my RCode.

Problem: Spectral clustering (partitioning) of a network (Network Classification). Co