powered by
gramschmidt(mat)
temp <- gramschmidt(pcapen[[3]]$wmean[[1]])
Run the code above in your browser using DataLab