similar to: defining contrasts in lm() - is there a simpler way?

Hi, i need to recognize itemization structures in strings which follow the format: "digit-digit-dot" like e.g. 1. 2. 19. 211. Given the string " This happened in the 21. century." (the dot behind 21 is used in German instead of 21st) I want know where the dots are but I do not want the 21.-dot to be returned as well. I am not good at regular expressions. How

Dear list, I came up with a two functions that flatten arbitrary deeply nested lists (as long as they're named; not tested for unnamed) and environments (see attachment; 'flatten_examples.txt' contains some examples). The paradigm is somewhat similar to that implemented in 'unlist()', yet extends it. I would have very much liked to build upon the superfast functionality

Hi all, How can I tell RGL to set the center for the rotation to the origin of the coordinate system (0,0,0). It seems that the default is to use the center of the display not the origin of the coordinate system. open3d() lines3d(c(0, 1), c(0,0), c(0,0)) lines3d(c(0,0), c(0, 1), c(0,0)) lines3d(c(0,0), c(0,0), c(0, 1)) TIA Mark ??????????????????????????????????????? Mark Heckmann Blog:

I noticed that the argument names after the dots argument are not partially matched. foo <- function(one, two, ...){ one + two } > foo(o=1, t=2) [1] 3 foo <- function(one, ..., two){ one + two } > foo(o=1, t=2) Fehler in one + two : 'two' fehlt Can someone explain me the reason for this behavior? THX Mark ???????????????????????????????????? Mark Heckmann Blog:

Is there a blank space escape sequence in R, i.e. something like \sp etc. to produce a blank space? TIA Mark ??????????????????????????????????????? Mark Heckmann Blog: www.markheckmann.de R-Blog: http://ryouready.wordpress.com

I have a vector and need to count how many data points fall inside each bin: dat <- rnorm(100) breaks <- -3:3 table((cut(dat, breaks))) (-3,-2] (-2,-1] (-1,0] (0,1] (1,2] (2,3] 3 13 42 30 12 0 if I reverse the breaks vector, the results remains the same: breaks <- rev(breaks) table((cut(dat, breaks))) (-3,-2] (-2,-1] (-1,0] (0,1] (1,2]

In The following code, the table handler is executed twice when the button is pressed (from the 2nd pressing on). I want it to be executed only once. Does someone know, why this happens and how I can change it? library(gWidgets) w <- gwindow() b <- gbutton("press", cont=w) tbl <- gtable(1:10, cont=w) addhandlerclicked(b, handler=function(h, ...){

I am not too familiar with Cairo and RGtk2 and have the following problem: I have a container with two GTK drawing areas converted into Cairo devices. I know that I can set the current drawing context e.g. using dev.set(). But this is tedious. How can I set the context using the objects da1 or da2? w <- gtkWindow() w$setSizeRequest(400, 400) vbox <- gtkVBox() da1 <- gtkDrawingArea()

I try to overlay a plot inside a gtkDrawingArea with a button (or any other widget). I tried to put both into a gtkFixed container. But this does not work, no printing occurs. Does someone know a solution? What I tried: w <- gtkWindow() w$setSizeRequest(400,400) fx <- gtkFixed() da <- gtkDrawingArea() fx$put(da, 100, 100) asCairoDevice(da) par(mar=c(0,0,0,0)) plot(1:10) btn.1

I want to assign a default handler to a toolbar button and change the handler later. The addhandlerclicked() method does not apply to a gAction Object, I think... defHandler <- function(h, ...) print("default") w <- gwindow() aTest <- gaction(label="Test", icon="open", handler=defHandler) tblList = list( test = aTest ) toolBar = gtoolbar(tblList,

I have a nested list l like: l <- list(A=c(1,2,3), B=c("a", "b")) l <- list(l,l, list(l,l)) I want the list to be unlisted, but not on the lowest level of each "branch". I want the lowest level of each list branch to remain as it is. So unlist or unlist(rec=F) do not work here as the level of nesting may differ on the elements. The result should look like:

Dear list, When playing around with the "[" method for S4 classes I noticed that it gets called twice in my example. setClass("testClass", representation(a="character")) setMethod("[", signature(x = "testClass", i = "ANY", j="ANY"), function (x, i, j, ..., drop){ print("void function")

I want to plot a multiline annotation including a mathematical expression using grid graphics (grid.text). This works fine for a single line, but the math expression is misplaced when I insert a line break ("\n" escape sequence): grid.text(expression(paste("Some words here\n more ", sigma))) Does someone have an idea how to fix that? TIA! Mark

Hi, how can I omit the box drawn from the starting position to the current position of the mouse when clicking and it over a GTK graphics object? I have seen that in the 'playwith' package the box changes to an arrow when using the 'pan' button. But I do not find the corresponding line in the code to implement that. library(gWidgets)

Happy New Year, all! I want to do calculations on each element of a list l, but i want the returned list element to be named differently after the calculation. Is it possible to do the renaming somehow within the lapply call? l <- list(a=NA, b=NA) lapply(l, function(x) {names(x) <- "new name"; return(x) }) This does not work, any ideas? TIA

Hello, using the <<- assignment operator I do not understand why the following does not work. l <<- list() l list() l$arg1 <<- "test" error in l$arg1 <<- "test" : Objekt 'l' not found ?"<<-" says: "The operators <<- and ->> cause a search to made through the environment for an existing definition of the

When using a gtkDrawingArea as a Cairo device I very often encounter the error: "figure margins too large" Even for the below "getting started" example from http://www.ggobi.org/rgtk2/ this is the case. > win = gtkWindow() > da = gtkDrawingArea() > win$add(da) > asCairoDevice(da) [1] TRUE > plot(1:10) Fehler in plot.new() : Grafikr?nder zu gro? > Also

I would like to split a string into words at its blanks but also to preserve all blanks. Example: c(" some words to split ") should become c(" ", "some", " ", " words", " ", "to" , " ", "split", " ") I was not able to achieve this via strsplit() . But I am not familiar with regular

I run into some problems when trying to convert units using Hershey-Fonts: R chrashes. > library(grid) > label <- "some text" > pushViewport(viewport(gp=gpar(fontfamily="HersheySerif"))) > convertHeight(stringHeight(label), unitTo="mm") *** caught segfault *** address 0xadc838f8, cause 'memory not mapped' Traceback: 1:

Is there a way to modify the dots-argument? Let's consider I have a function that passes on its ... arguments to another function. For some reason I know, that some elements in ... will cause problems. Can I modify the ... structure somehow, e.g. delete elements? foo <- function(...){ innerFoo <- function(...){ } AT THIS POINT I WANT TO MODIFY THE CONTENT OF ... BEFORE IT IS