# SGScatter Example -- source code file sgscatter.r

# Read and print data frame.
iris = read.table("iris.txt", header=T)
cat("iris data frame:\n")
print(iris)

# Plot scatterplot matrix.
png("iris.png")
pairs(iris[,-1], 
      labels=c("Sepal Length", "Sepal Width", 
               "Petal Length", "Petal Width"),
      pch=iris[,1])

dev.off( )