S-Plus graphing speed

[Thom Burnett <Thom.Burnett@cognigencorp.com>]

S-News,

We are benchmarking S-Plus performance on Unix and Windows. If you would 
be willing to execute the following code, forward results and machine 
configuration (if available), I would be happy to share any useful 
information obtained. 

We are testing both the command
> source(codefile)
and batch mode using SBATCH

Please report your basic machine specs (report on what you know, it's 
okay if you don't know all the specifics):
-Platform (PC or Unix): ____________
-OS/Version:__________
-Processor speed: ___________
-Memory: _____________
-Command (source or batch): _____________

-------------------------------------------------------------------------------------------------------------------------------------
For the PC:

plotToFile <- T
now <- proc.time()

outputDir <- "C:\\\\myDir"
x <- seq(from=0, to=5, by=.001)
y <- cos(x)

   outputFilename <- paste(outputDir, 'simpleSinPc.png', sep='')
   resolutionWidth <- 1000
   formatString <- 'PNG'

   plot(x,y)

   z <- sin(x)
   points(x,z, type='l')
 if(plotToFile) {export.graph(FileName = outputFilename,    ExportType 
= formatString)  }
print(proc.time() - now)
remove(objects(), where=1)

-------------------------------------------------------------------------------------------------------------------------------------
For Unix:

remove(objects(), where=1)
print(objects())

now <- proc.time()

plotToFile <- T


x <- seq(from=0, to=5, by=.001)
y <- cos(x)
outputDir <- "/myPath/myDir/"
outputFilename <- paste(outputDir, 'simpleSin1.png', sep='')
resolutionWidth <- 1000
formatString <- 'PNG'
if(plotToFile) java.graph(file=paste(outputFilename, sep=""), 
format=formatString, width=resolutionWidth)
   plot(x,y)

   z <- sin(x)
   points(x,z, type='l')
 if(plotToFile)dev.off()


print(proc.time() - now)