powered by
flip_PCaxes(x, axs)
bp <- bot %>% efourier(6) %>% PCA bp %>% plot bp %>% flip_PCaxes(1) %>% plot()
Run the code above in your browser using DataLab