On 13.05.2010 21:58, Mohsen Jafarikia wrote:
Hello All:

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

ESP Ghostscript 815.02: Unrecoverable error, exit code 1

As I said, your Ghostscript interpreter generates that error, it is not an R one. Try to see why that GhjostScript version does not work with the commands R generates to be executed by GhostScript - or just try another GhostScript (more recent) implementation:

EPL Ghostscript 8.15 is several years old now, perhaps install a recent GPL GhostScript and try again

Uwe Ligges





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]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to