data(indoVowels)
hull.area <- with(indo, convexHullArea(f1, f2, group=subj))
poly.area <- with(indo, vowelMeansPolygonArea(f1, f2, vowel,
poly.order=c("i", "e", "a", "o", "u"), group=subj))
Run the code above in your browser using DataLab