powered by
orthnormal(X)
data <- gen.data(n=100) x.orth <- orthnormal(data$X)
Run the code above in your browser using DataLab