powered by
geomorph::gpagen
fgsProcrustes(x)
$slidings
fProcrustes
fgProcrustes
pProcrustes
chaffp <- fgsProcrustes(chaff) chaffp chaffp %>% PCA() %>% plot("taxa")
Run the code above in your browser using DataLab