similar to: single, double or no quotes in expression

Dear all, I have a 3x2 plot and in addition to the title of the individual plots I would like to have an overall title for each row. I managed to get an overall title for the whole plot matrix with mtext: par(mfrow=(c(3,2)), mar=c(6.4,4.5,4.2, 1.8), oma=c(0,0,3,0)) for (i in 1:6) barplot(sample(1:10,5), main=paste("Plot #",i)) mtext("Overall Title Row 1", outer=TRUE) but I

Hello, I have a vector with positive integer numbers, e.g. > numbers <- c(1,2,1,2,3,4,5) and want to split the vector whenever an element in the vector is smaller or equal to its predecessor. Hence I want to obtain two vectors: c(1,2) and c(1,2,3,4,5). I tried with which(), but it is not so elegant: > numbers[1:(which(numbers<=numbers[1])[2]-1)] >

Hello all, I don't know if it is possible, but I would like to use do.call in C code in my package. The function do.call is defined as > do.call function (what, args, quote = FALSE, envir = parent.frame()) { if (!is.list(args)) stop("second argument must be a list") if (quote) { enquote <- function(x) as.call(list(as.name("quote"),

I am looking for a function to flatten a list to a list of only 1 level deep. Very similar to unlist, however I don't want to turn it into a vector because then everything will be casted to character vectors: x <- list(name="Jeroen", age=27, married=FALSE, home=list(country="Netherlands", city="Utrecht")) unlist(x) This function sort of does it: flatlist

Hello everybody, I've got a bit of a problem with parLapply that's left me scratching my head today. I've tried this in R 2.11 and the 23 bit Revolution R Enterprise and gotten the same result, OS in question is Windows XP, the package involved is the snow package. I've got a list of 20 rain/no rain (1/0) situations for these two stations i and j, all the items in this list look

Hello All, I can run the "lower level" functions OK, but many of the higher level (eg. parSApply) functions are generating errors. When running the example (from the snow help docs) for parApply on MacOSX 10.5.5, I get the following error: cl <- makeSOCKcluster(c("localhost","localhost")) sum(parApply(cl, matrix(1:100,10), 1, sum)) Error in

Hi I try parallelising some code using the snow package and the following lines: cl <- makeSOCKcluster(8) pfunc <- function (x) (if(x <= (-th)) 1 else 0) ###correlation coefficient clusterExport(cl,c("pfunc","th")) cor.c.f <- parApply(cl,tms,c(1,2),FUN=pfunc) The parApply results in the error message: > cor.c.f <- parApply(cl,tms,c(1,2),FUN=pfunc) Error

In principle, I'd like to be able to do something like this: sge.parLapply(seq(10), function(x) parLapply(seq(x), function(x) x^2)) In practice, however, I have to resort to acrobatics like this: sge.options(sge.remove.files=FALSE) sge.options(sge.qsub.options='-cwd -V') sge.parLapply(seq(10), function(x) { sge.options(sge.save.global=TRUE)

Hi, I met a problem when I binding JAVA. 1. download xapian-bindings-0.9.10.tar.gz to my local. 2. unzip binding file. 3. input ./configure --with-java in cygwin. 4 give me error: checking for java... /cygdrive/c/Program Files/Java/jdk1.5.0_11/bin/java checking for javac... /cygdrive/c/Program Files/Java/jdk1.5.0_11/bin/javac checking for jar... /cygdrive/c/Program Files/Java/jdk1.5.0_11/bin/jar

Hello. Please forgive me if this problem has already been posted (and solved) by someone else ... I can't find it anywhere though it seems so very basic. Here it is: I have a list comprised of several matrices, each of which has two columns. > list [[1]] [,1] [,2] [1,] 1 3 [2,] 2 4 [[2]] [,1] [,2] [1,] 5 7 [2,] 6 8 [[3]] [,1] [,2]

Windows server 2012 sets partition names with spaces. ><fs> part-get-name /dev/sda 3 libguestfs: trace: part_get_name "/dev/sda" 3 guestfsd: main_loop: new request, len 0x38 parted -s -m /dev/null Error: The device /dev/null is so small that it cannot possibly store a file system or partition table. Perhaps you selected the wrong device? Warning: Error fsyncing/closing

Hi Greg, I don't know if this is related to your problem, but I get the same error (on both ubuntu and fedora linux, R 2.9) and just found a very curious behaviour - snowfall apply functions don't like the variable name "c". E.g.: c<-1 sfLapply(1:10, exp) issues the same error you had posted, while subsequent rm("c") sfLapply(1:10, exp) runs fine. Rainer

Hi, I have a small app that needs to keep track of quotes, and organisations. An organisation can either be the unit who finally receives the goods (the end_user) or and intermediary (customer) (and in some cases both) An Organisation will (hopefully :) ) have many quotes; and a quote can belong to an organisation, either as a customer or as an end_user or both. So the quotes table

How does one put quotes within quotes, if it's possible? I've tried replacing one set of the quotes by single quotes. If it's not possible, is there any way to do the following? > cmd <- "read.dta" > opt <- "convert.factors=FALSE" > data.file <- " file="/full/path/name.dta" " > eval(call(cmd,data.file,opt)) Prior to

Hi all, I would like to run the following from within R: awk '{$3=$4="";gsub(" ","");print}' myfile > outfile However, this obviously won't work: system("awk '{$3=$4="";gsub(" ","");print}' myfile > outfile") and this won't either: system("awk '{$3=$4='';gsub('

I have a text field where people enter tags and click a button to submit. Some of the users are entering multiple tags accidentally (i.e. ''really'' and ''cool'' instead of ''really cool'') so I''d like to alter my code so it automagically adds quotes on either side of whatever they submit. I haven''t the foggiest idea where to

Hi, how do i use passed in arguments and convert those to something sql can understand? do the aliases have to be double qouted? single qouted? i think i tried all but no avail...thanks! def get_count(doctype, towne) @profiles = Profile.count_by_sql("SELECT COUNT(*) from Profiles where Profiles.doctype_id = 1 and town_id = towne") end -- Posted via

I am trying to use the mailer to send email. I want to create a sender and a recipient address that is in this form (note the quotes around the sender name): "sender name" sender@domain.com To do this, in my sender model, I have tried something like this: def combined_address return "\"" + self.name + "\"" + " <" + self.email +

Hi, I need to have my controller return xml from db content. Is there a method I can call to clean up the text for xml rendering? I tried CGI:escapeHTML, but forgot it would ignore quotes. some of the db content is going in xml attributes so the quotes need escaping. thanks. -------------- next part -------------- An HTML attachment was scrubbed... URL:

Hello! I''m new on this list (and actually pretty new to redcloth also). This e-mail is about the wery fine feature of converting quotes. I''m norwegian, and we have our own qoutes: "?" and "?". I therefore hacked this feature, so it is now in lib/redcloth.rb, around line 404, so I now have: [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/,