R code for my skull morphometry project