Displaying 1 result from an estimated 1 matches for "inddist".
Did you mean:
in_list
2004 Dec 27
1
splot.screen: multiple plots
...7440)
Y<-c(0.26 0.56 0.80 0.92 0.88)
numFreq<-7
numdist<-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=...