# That's how wings dataset was created
# made a local copy from http://life.bio.sunysb.edu/morph/data/RohlfSlice1990Mosq.nts
# then :
# coo_list <- ntscol2Coo('~/Desktop/mosquitowings.nts)
# fac <- data.frame(fac=factor(substr(names(coo_list), 1, 2)))
# wings <- Ldk(coo_list, fac=fac)
Run the code above in your browser using DataLab