Directly wrapped around geomorph::gpagen.
fgsProcrustes(x)a list
Ldk object with some $slidings
Other procrustes functions:
fProcrustes(),
fgProcrustes(),
pProcrustes()
ch <- chaff %>% slice(1:5) # for the sake of speed
chaffp <- fgsProcrustes(ch)
chaffp
chaffp %>% PCA() %>% plot("taxa")
Run the code above in your browser using DataLab