# first, some (baby) objects
b <- bot %>% coo_sample(12)
bf <- b %>% efourier(5, norm=TRUE)
# Coo object
b %>% as_df
# Coe object
bf %>% as_df
# PCA object
bf %>% PCA %>% as_df # all PCs by default
bf %>% PCA %>% as_df(2) # or 2
bf %>% PCA %>% as_df(0.99) # or enough for 99%
# LDA object
bf %>% LDA(~fake) %>% as_df
# same options apply
Run the code above in your browser using DataLab