search for: restoreconsol

Hi, I wanted a Q&D way to open a new graphics window but keep the focus in the console window (under Windows and the Rgui), so I wrote a line into my Rprofile.site file as follows: invisible(makeActiveBinding('newdev', function(...) dev.new(restoreConsole=T), .GlobalEnv)) (That is all on one line, incase the mailer re-parses it). This gives me a command "newdev" which does not require me to enter a pair of parentheses to execute it. This worked just fine so far as the command goes. Here's the problem: this definition is stored a...

...;test.png") Error in png("test.png") : invalid value of 'fillOddEven' The png() function is defined like this: > png function (filename = "Rplot%03d.png", width = 480, height = 480, units = "px", pointsize = 12, bg = "white", res = NA, restoreConsole = TRUE) { if (!checkIntFormat(filename)) stop("invalid 'filename'") filename <- path.expand(filename) units <- match.arg(units, c("in", "px", "cm", "mm")) if (units != "px" && is.na(res))...

...n look something like savePlot<-function (filename = "Rplot", type = c("wmf", "emf", "png", "jpg", "jpeg", "bmp", "tif", "tiff", "ps", "eps", "pdf"), device = dev.cur(), restoreConsole = TRUE, extension) #Added extension { type <- match.arg(type) if(missing(extension)) extension <- type ##added devlist <- dev.list() devcur <- match(device, devlist, NA) if (is.na(devcur)) stop("no such device") devname...

...d.table("e:/tsdata.txt",header=T,sep=",") article_number <- ts(m, start = 2004,end=2008, frequency = 1 ,names=colnames(m)) jpeg(filename="e:/tsmap.gif",width = 480, height = 480, units = "px", pointsize = 12, quality = 75, bg = "white", res = NA, restoreConsole = TRUE) plot(article_number, plot.type="single", lty=c(1,1,1,1,1),col=c(1,2,3,4,5),las=1) max<-range(m) x<-c(2004,2004,2004,2004,2004) y<-c(max[2]*0.96,max[2]*0.9199999999999999,max[2]*0.88,max[2]*0.84,max[2]*0.7999999999999999) points(x,y,col=c(1,2,3,4,5),pch=15) text(x,y,colna...

...have made sure the margins are equivalent for single and multiple plot figures... example code below (font size is consistent between 1x1 and 2x1 figure but decreases for 3x2 figure): tiff("1x1.tif", width=3,height=2.5,units="in",res=600,pointsize=8,compression="lzw",restoreConsole=T) par(mfrow=c(1,1),mar=c(4,4,.5,.5)+0.1) plot(x=rnorm(10),y=rnorm(10)) dev.off() tiff("2x1.tif", height=2.5*2,width=3,units="in",res=600,pointsize=8,compression="lzw",restoreConsole=T) par(mfrow=c(2,1),mar=c(2,4,2.5,0.5)+0.1) plot(x=rnorm(10),y=rnorm(10),xaxt="...

Appologies if this has been addressed before, but I can't seem to find it in the help archives. I'm looking to do something like the following but it looks like save.plot is deprecated. save.plot(plot(glm1$residuals,gain,main = "Hist of residuals and gain"),file="Desktop/hist1.png") Thanks in advance, Sean Session Info: R version 2.9.1 (2009-06-26)

...rect directory, but it consists of a blank (white) jpeg with the specified dimensions--the image itself is not being saved. My code is jpeg(filename="myfile.jpg", height = 2.5, width = 8, units = "in", res = 72, pointsize = 12, quality = 100, bg = "white", restoreConsole = TRUE) I have tried different heights and widths, thinking that I had a margins problem, but no luck. I have also verified that ghostscript is installed, and that the environmental variable "R_GSCMD" is set to the correct path to gswin32c.exe. Oh, and the image device itself displays...

Buenas tardes: Hasta ahora he utilizado savePlot() en ejecuciones de R en Windows, donde lo que hago es grabar la ventana de gráficos mediante dev.cur() en formato pdf. Concretamente éste es el código: > savePlot(filename = ruta_pdf, type = "pdf", device = dev.cur(), restoreConsole = TRUE) Este comando está dentro de un bucle de "n" ejecuciones, por lo que guardo un pdf por cada variable que trabajo: variable1.pdf, variable2.pdf, variable3.pdf... Sin embargo, estoy empezando a meterme en automatización de procesos en R, para lo cual lanzo un script desde Windows a...

Een ingesloten tekst met niet-gespecificeerde tekenset is gescrubt ... Naam: niet beschikbaar URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20080918/ed87aa31/attachment.pl>

I downloaded the iid.test, but I can't run it. I get the following message: Error: could not find function "iid.test" Where am I supposed to save this package in order that it works? Thanks, EZ [[alternative HTML version deleted]]

Hi, A Windows user asked me a question and I believe this is a bug of R 3.0.0 under Windows: > plot(1:10) > savePlot('test.wmf') Error in .External(C_savePlot, device, filename, type, restoreConsole) : Incorrect number of arguments (4), expecting 3 for 'savePlot' > sessionInfo() R version 3.0.0 (2013-04-03) Platform: x86_64-w64-mingw32/x64 (64-bit) locale: [1] LC_COLLATE=English_United States.1252 [2] LC_CTYPE=English_United States.1252 [3] LC_MONETARY=English_United States.125...

...main = BoxplotsHeading,     xlab = "Groups", ylab = "Normalised Intensity", plot = TRUE)     BoxplotsFilename <- paste(BoxplotsFeature, "_Boxplot", sep = "")     savePlot(filename = "BoxplotsFilename", type = "jpeg", device = dev.cur(), restoreConsole = TRUE)     RepeatPlot <- readline(prompt = "Would you like to create another boxplot for any Feature? (y/n):") } If the user inputs "y" for BoxplotsCheck then a boxplot is saved and creatyed based on a user choice. I want to include the option to do another boxplot if...

...lication. The editor would like the text labels on the plots in a larger font. I'm doing something like this: <snip> jpeg( filename = "D:/Martin/Work/CleanPath/RAF1%03d.jpg", width = 1000, height = 600, pointsize = 12, quality = 100, bg = "white", res = 96, restoreConsole = TRUE ) boxplot( dafExpo[,c(1,2,3,4,5,6,7,8,9,10,11,12)], main = "Total NOx Exposure per trip" ) numAxeMax = max(dafExpo$grn07, dafExpo$grn09, dafExpo$grn14, dafExpo$grn16) plot( dafExpo$grn07,dafExpo$grn09, xlim=c(0,numAxeMax), ylim=c(0,numAxeMax), pch=1, xlab="Green at...

Hi I have recently been analyzing birthweight data from a clinic. The data has obvious defects in that there is digit preference on certain weights making them overrepresented. This shows as spikes in the histogram on certain well rounded weights like 2, 2.5, 3, etc. I would like to show this to government officials but can't figure out how I should present the finding in an easy to

...grid.roundRect(height=boxheight, width=boxwidth, r=unit(3, "mm"), gp = box.gpar) grid.text(label, just = "centre", gp = text.gpar) popViewport() if(type == "win"){ tmp <- savePlot(filename = figurename, type = "pdf", device = dev.cur(), restoreConsole = TRUE) } tmp <- dev.off() } require(RGraphics) setwd("C:\\") for(i in 1:10000){ draw.rectangle("blablabla", type="win") } Anyone has suggestions on how to solve this? Jan Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm [[alterna...

...ible solutions. Bellow is the map code using points, I’m trying to substitute the points() functions with one bubble() function. for (i in 1:length(colnames(Spp10ml))) { png(paste(colnames(Spp10ml),'.png',sep='')[i],width=5.2,height=3.6,pointsize =5,units='in',bg=NA,restoreConsole=T,res=1200) par(mar=c(5,0,0,0)) map('worldHires','brazil',ylim=c(-5.15,-4.55),xlim=c(-37,-36.1),type='n') rect(-37.1,-5.25,-36,-4.9,density=NULL,angle=45,col='#dbf4ff',border=F) plot(Batimetria,ylab='',xlab='',border=F,col=Cor$Cor,add=T) plot(Mu...

...-letters[round(runif(1,.5,24.5))] } x<-paste(x,y, sep = "") } z[h]<-x } z } #this is a simple function to generate jpegs dp<-function(path){ jpeg(filename = path, width = 480, height = 480, pointsize = 12, quality = 85, bg = "white", res = NA, restoreConsole = TRUE) x<-rnorm(1000) hist(x) dev.off()} #this mimicks the generic function drawpic<-function(method,methodArgs,rep=5){ dir.create(paste("C:\\BB\\")) time<-format(Sys.time(), "%Y-%m-%d-%H%M") dir.create(paste("C:\\BB\\",time,sep="")) supdir<...

...eCompatibleBitmap to see that no limits are mentioned). Even on Windows you have the option of using other png() devices: png(filename = "Rplot03d.png", width = 480, height = 480, units = "px", pointsize = 12, bg = "white", res = NA, family = "", restoreConsole = TRUE, type = c("windows", "cairo", "cairo-png"), antialias) Try the other 2 types: the cairo devices do not use your graphics hardware nor MicroSoft's GDI. (The other 2 devices are Xlib on a Unix-alike and Quartz on macOS.) On 10/02/2017 16:54, Martin...

hie when i use plot.survfit to plot more than one graph why I only see the last graph how do i see the other graphs.for example n=20 n1=n/2 n2=n/4 a11=4;a12=4 ;a21=4 ;a22=4 t1<-array(1,c(n1)) t2<-array(2,c(n1)) treatgrp=matrix(c(t1,t2))

...no limits are mentioned). > > > Even on Windows you have the option of using other png() devices: > > png(filename = "Rplot03d.png", > width = 480, height = 480, units = "px", pointsize = 12, > bg = "white", res = NA, family = "", restoreConsole = TRUE, > type = c("windows", "cairo", "cairo-png"), antialias) > > Try the other 2 types: the cairo devices do not use your graphics > hardware nor MicroSoft's GDI. (The other 2 devices are Xlib on a > Unix-alike and Quartz on macOS.) > >...