similar to: ANN: rproto v1 (Protocol Buffers and R) [repost]

Hello, I apologize if this is not the list for package announcements. Having said that I've released a package called rprotos which implements a simple serialization using Googles protocol buffers[1]. The package also includes some miscellaneous functions for writing/ reading variable length encoded integers, and Base64 encoding/decoding related functions. The package can be downloaded

Apologies, I am resending this because my emails seem to go in HTML form. Hello, This is a question that probably reveals my lack of understanding. In a C function (call it cfunc), i created a SEXP, called S, and then called R_PreserveObject on S. I returned the SEXP to the calling R function (call it rfunc). Note, I didn't call R_ReleaseObject on S. v <- .Call("cfunc") So,

Hello, (Sorry for the repost, i am resending in plain text) I have a function 'ewrap' (see below for definition). It takes 3 expressions and returns another expression e.g. map <- ewrap({ len <- length(r$addon) rhcollect(len,1) }) becomes: expression({ NULL result <- mapply(function(.index, k, r) { { len <- length(r$addon)

Forgot to send to the list. Begin forwarded message: > From: Saptarshi Guha <saptarshi.guha@gmail.com> > Date: September 19, 2008 1:43:50 PM GMT-04:00 > To: Gabor Grothendieck <ggrothendieck@gmail.com> > Subject: Re: [R] Lines between panels in lattice > > Certainly. > > x=cbind(runif(10),rnorm(10),c(rep(1,5),rep(2,5))) >

Hi, We're planning to use Protocol Buffers (Google's data interchange format: http://code.google.com/apis/protocolbuffers/ ) in a future version of Compiz and libcompizconfig to speed up metadata parsing, which currently makes up more than 75% of the start-up time for Compiz according to Valgrind. Preliminary work in this direction has shown promising results. We'll be adding

Hello, I have a multi-page display each consisting of two-panels above each other. I need to draw a line from the top panel to bottom panel. Using current.vpTree() i find that "plot1.panel.1.2.vp" and "plot1.panel.1.1.vp" are the top and bottom ones respectively. I am using the following code(inspired by Paul Murrell's R Graphics) to draw a line. (All the

Hello, Suppose I have an expression, E, which accesses some variables present in an environment V. I do this via eval(E,envir=V) however all assignments end up in V. I would like the results of assignments in E to end up in the .GlobalEnv ? Or at least the calling environment. Is there a quick way to this instead of iterating over all objects E and assigning into .GlobalEnv? Thank you Saptarshi

Hello, I have to write single Long to a server written in java. The server passes the input as in.readLong() // it expects to receive 8 bytes In Python, i can do it by sending struct.pack( "!q", value) However, I have tried this writeBin(length(x),con=conn,endian="big") #conn opened in binary But the response on the server side is wrong, eg. 1 is received as

Hello, I have a stripplot with 200+ labels i.e i have network connections. The y-axis are the server port numbers and am graphing the number of packets in a connection. Roughly stripplot(totpacks~portnum,data=network) Due to the large number of server ports in my dataset, the y-axis labels overlap so I would like to split it across several panels(1 panel per page) with about 25-50 per

Hello, My plots consist of 2 rows, 1 column, many pages I've managed to selectively turn of strips for the bottom panel and roll my own strip for the top par.strip.text = list(lines = c(0,3),cex=0.6) I have my own custom prepanel function too. What i'd like to do is turn off the x-axis for the top panel (since on a given page the xlim is same for both top and bottom panel, but the

Hello, How can i increase the padding between the axis and the data region(box just containing the figure) in xyplot? An example: new <- function(x){ if(x<0){ return(x^2) }else{ return(x) } } x <- seq(-1,1,length.out=100) y <- sapply(x,new) sc=list() sc$alternating=0 sc$tck=0 xyplot(y~x,type='l', aspect=0.05, scales=sc, col='black',

Hello, My plot has two curves on different scales. To create the scale on the extreme right hand side of a panel I followed the example in panel.axis (in this example, the tick marks are at the same location and labels are the same too) axis=function(side, ... ) { ylim <- current.panel.limits()$ylim if(side=="left"){

Hello, I have a shingle A and B. A has 5 levels and B has 4 levels. Also, I have 8 levels of a factor C. I wish to xyplot( x ~ y | C *A *B,data=data), I think this is how the lattice conditioning works: If i'm not mistaken, all possible combinations of C,A,B , a subset of the data is accordingly taken and x~y is plotted. However, I have empty sets for some levels and these are

Hello, I was trying this bit of code (i know it is an extreme case) g=function(r){ if(r==1) return(list(x=1)) else return(list(x=g(r-1))) } For z=g(500), the code runs but when I print z i.e >> z I get <environment: R_GlobalEnv> *** caught bus error *** address 0x1, cause 'non-existent physical address' Possible actions: 1: abort (with core dump, if enabled)

Hello, I'm not sure how to go about this. Suppose I have a function SEXP boo(SEXP x){ //do something } Also, I have an executable which embeds R in itself. I would like to provide a R function to user code to call that calls 'boo' e.g ##user supplied expression that is given to me x<-1 boo(x) One way is to create a library with function boo that performs .Call to boo, but is

Hello, I call a function via .Call passing to it a raw vector(D) and an integer(I) The vector is a series K1,KData1, V1,VData1, K2, KData2, ... where the integer K1 is the length of Data1 and similarly for Ki (wrt Datai)(similarly for V*) There 2*I such pairs( (Ki,KDatai), (Vi,VDatai)) The numbers Ki(and Vi) are written in network order. I am returning a list of I elements each element a

Hello, I have some code which generates lattice objects. The function recieves serialized forms of the lattice objects which it then unserializes and then adds to an ArrayList<REXP>. REXPRaw rser = new REXPRaw( target ); //target contains the raw serialized forms of lattice objects rconn.assign("temp",rser); REXP ret =

Hi, I need to integrate a 2D function over range where the limits depend on the other e.g integrate f(x,y)=x*y over {x,0,1} and {y,x,1}. i.e \int_0^1 \int_x^1 xy dydx I checked adapt but it doesn't seem to help here. Are they any packages for this sort of thing? I tried RSitesearch but couldn't find the answer to this. Many thanks for you help. Regards Saptarshi Saptarshi Guha

Hi, I have another question. Is there any command that waits for key input? I am running R on OS X, so getGraphicsEvents doesn't work. I have put some debug print messages in a function and would like to pause the code every time the message is printed and continue on a keypress. Thank you Saptarshi Saptarshi Guha | sapsi@pobox.com | http://www.stat.purdue.edu/~sguha

Hello, I'm using lattice and opened an X11 device with the following call X11(width=5,height=5,pointsize=1) I then ran the following code library(lattice) x<-rnorm(30,sd=2) y<-runif(30) xyplot(y~x,pch=".",col="black",cex=1) If i remove "cex=1", not all the points are plotted. From ?X11, i read,"pch='.' with cex=1 corresponds to a