projection_df <- cbind(
c(-0.17353,-0.02906,0.19857,0.00037,0.00131,-0.05019,0.03371),
c(-0.10551,0.14829,-0.02063,0.02658,-0.03150,0.19698,0.00044))
gen_axes(proj = projection_df, axis_labels = paste0("x", 1:7))
Run the code above in your browser using DataLab