[R] ESP Ghostscrip ...

[Uwe Ligges]

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 at 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.