# vowel-each.R
# Mafuyu Kitahara
# 2004-10-24

# Input: *.dat in the following format (comment out swap
#        F1       F2 
#a 707.6318 1392.287 
#i 435.5668 2571.218 
#u 471.1070 1605.184 
#e 589.3664 2244.662 
#o 511.5865 1212.580 
#
# Output: vowel-each.ps

files <- dir(".", pattern = "dat$",full.names=TRUE)
dummy <- matrix(c(0,1,1,0))
plot(dummy,xlim=c(3200,100),ylim=c(1200,0),type="n",xlab="F2",ylab="F1")

for (i in 1:length(files)) {
dattable <- read.table(files[i])

swap <- cbind(dattable["F2"],dattable["F1"]) ### swap columns for plot

### if F2 in col1 and F1 in col2 in the input, uncomment the next line
#swap <- dattable 

points(swap,pch=row.names(swap))
}

### print
psfile <- "vowel-each.ps"
dev.copy(device=postscript,file=psfile,width=7,height=7)
dev.off()