# vowelchart-ave.R
# Mafuyu Kitahara
# 6/18/2004

#### using data.frame
average.table <- read.table("average")

#### x-axis for F2, y-axis for F1, use max.pl to determine lim.
plot(average.table,xlim=c(3200,700),ylim=c(1200,150),pch=row.names(average.table))

### print
psfile <- "vowelF1F2-ave.ps"

dev.copy(device=postscript,file=psfile,width=7,height=7)
dev.off()