powered by
fit_angles
fit_angles(R, ifun = "cos", ntrials = 10, verbose = FALSE)
nlminb
X <- matrix(rnorm(90),ncol=3) R <- cor(X) angles <- fit_angles(R) print(angles)
Run the code above in your browser using DataLab