Hello All:

Could anybody tell me please what is the meaning of this error message:

ESP Ghostscript 815.02: Unrecoverable error, exit code 1
Error in plot.xy(xy, type, ...) : ignoring SIGPIPE signal
Calls: plot -> plot.default -> plot.xy
Execution halted

My code has to go to 18 loops for three times and in each loop it has to
read a file which is 100-300 Megs. It always crashes at loop 14 while
everything seems OK in the input data files and data file 14th is not the
biggest input file.

Here is the code:

for(Br in 1:3)
  {
  if(Br == 1) B <- "U"
  if(Br == 2) B <- "A"
  if(Br == 3) B <- "O"

  ofn <- sprintf("%s.png", B)

  bitmap(ofn, type = "png256", width = 21, height = 30, pointsize = 30, bg =
"white", res = 300)  <<<<when I decrease res to 50(res=50), everything is OK
with no error message
  par(cex.main = 1.2, cex.lab = 1.8, cex.axis = 1.4)
  par(mfrow = c(6,3))

  for(C in 1:18)
    {
    if( ( C + 2 ) %% 3 == 0 ) par(yaxt="s") else par(yaxt="n")
    if( ( C + 2 ) %% 3 == 0 ) par(mar=c(2, 2.5, 0.5, 0.5),lwd=5) else
par(mar=c(2, 0.5, 0.5, 0.5),lwd=5)

    ifn  <-  sprintf("Final%02d.txt", C)
    data <-  read.table(ifn)
    names(data) <- c("b","L")
    Graph<-plot(data$b, data$L, type="p", lwd=1.5, lty=1, pch =19,cex=0.5,
xlab = NULL, ylab = NULL, xlim=c(0,max(data$bp)), ylim=c(0,1))

    #calculating the average!
    MAX <- nrow(data)
    print(MAX)

    X <- matrix(, MAX, 1)
    Y <- matrix(, MAX, 1)

    k <- 1
    j <- 0

    for(i in 1:(MAX - 1) )
        {
        i <- j + 1
        if( i >= MAX) break

        for(j in i+1:MAX)
                {
                if( j  >= MAX) break
                if( (data$b[j] - data$b[i]) > 0.1)
                        {
                        X[k] <- mean(data$b[i:j])
                        Y[k] <- mean(data$L[i:j])
                        k <- k + 1
                        break
                        }
                }
        }
    om <- sprintf('SSC%d',C)
    legend("topright", om, bty = "n", cex=2)

    par(new = TRUE)
    Graph <- plot(X, Y,type="l", col="white", xlim=c(0,max(data$b)),
ylim=c(0,1))

    data <- NULL
    }
 dev.off()
}




Thanks,
Mohsen

	[[alternative HTML version deleted]]

