Create Procustes_Example.R