# NOT RUN {
data(plethodon)
# let's make some outliers
newland <- plethodon$land
newland[c(1,8),,2] <- newland[c(8,1),,2]
newland[c(3,11),,26] <- newland[c(11,3),,2]
Y<- gpagen(newland) # GPA
out <- plotOutliers(Y$coords) # function returns dimnames and address of all specimens ordered
plotOutliers(Y$coords, inspect.outliers = TRUE) # function also produces plots of
# identified outlier specimens compared to the mean shape
# example with groups
plotOutliers(Y$coords, groups = plethodon$species, inspect.outliers = TRUE)
# }
Run the code above in your browser using DataLab