Displaying 1 result from an estimated 1 matches for "indscreen".
2004 Dec 27
1
splot.screen: multiple plots
...ist<-8
coefind <- 1
quartz(display = "", width =15, height = 10, pointsize = 9,
family = "Helvetica", antialias = TRUE,
autorefresh = TRUE)
par(pty="s")
split.screen(c(numdist,numFreq))
for (inddist in 1:numdist)
{
for (indFreq in 1:numFreq)
{
indscreen<- indFreq+(inddist-1)*numFreq
screen(indscreen)
# mar<-c(1,1,1,0)
plot(X,Y,
log="x",col="red",xlim=c(1,100),ylim=c(0,1),lab=5, xlab="",
ylab="")
axis(1,tick=FALSE)
axis(2,tick=FALSE)
if( inddist==1)
{
title(main=sprintf('...