search for: relisting

Dear list, I think I just stumbled across a bug in either 'relist()' and/or 'as.relistable()'. It seems that 'pairlists' can only be un- and relisted as long as they're not nested: Good: a <- as.relistable(as.pairlist(list(a=1, b=2))) a <- unlist(a) relist(a)# Works Bad: a <- as.relistable(as.pairlist(list(a=1, b=2, c=list(c.1=1, c.2=2)))) a <- unlist(a)

Hi all, I wrote a function called relist, which is an inverse to the existing unlist function: http://www.econ.upenn.edu/~clausen/computing/relist.R Some functions need many parameters, which are most easily represented in complex structures. Unfortunately, many mathematical functions in R, including optim, nlm, and grad can only operate on functions whose domain is a vector. R has a

...appears to be stripping the attributes and therefore the example doesn't seem to run, giving the error at the bottom. > rb.banana <- function(params) { + #Params is initially a vector + cat("Params initially has the attributes:\n") + print(names(attributes(params))) + #Relisting it turns it into a list... + params <- relist(params) + cat("---------\n") + #..which can then be called in the standard list manner + return( (1-params$x)^2 + 100*(params$y - params$x^2)^2) + } > > ipar <- as.relistable(list(x=5,y=0)) > initial.params...

There are a few typos in the documentation for relist(). I've also made a few other changes to the file which I believe are improvements. I've attached a patch against the version under the 'trunk' branch on the svn server checked out today. It was produced by diff -u /usr/local/src/R/R-svn-trunk/src/library/utils/man/relist.Rd ~/relist-new.Rd I'd also suggest identical()

Hi, relist() is broken when the skeleton is a list with empty list elements: > x <- list(1:3, integer(0), 11:14) > relist(unlist(x), x) [[1]] [1] 1 2 3 [[2]] [1] 11 3 [[3]] [1] 11 12 13 14 Hard to believe that such a bug has been around for 6 years (i.e. since the introduction of relist()) without ever being noticed. Cheers, H. > sessionInfo() R

I think the optim() example in the Details section of relist()'s help page is not totally correct. In particular, in the current form it is not taken into account that vcov should be a symmetric matrix and only the parameters in the lower (or upper) triangular part should be optimized. A possible fix is: ipar <- list(mean = c(0, 1), vcov = c(1, 1, 0)) initial.param <-

I have tried to upgrade our samba server from 3.6.18 to 3.6.22 but found that our DOS clients could no longer connect (using DOS 6.22 and Microsoft LAN Manager 2.1). With 3.6.18 we use smb.conf setting 'min protocol = LANMAN2' and it works great, with 3.6.22 although clients can connect ok, they cannot obtain a directory listing. Instead the first file (sometimes misnamed) just

Hello, I have a function with a long list of parameters (of different types, numeric and string) myFunc <-function(p1, p2, p3, p4, p5...etc) { do.something(p1,p2,....) } I want to loop over this to provide a different set of parameters to the list every time. for (ii in 1:N) { myFunc(p1(ii), p2(ii),....etc) } I would like to simplify the notation and use some kind of structure, maybe

Hello all, For some work I am doing on RNA, I want to use R to do string parsing that (I think) is like a simplistic HTML parsing. For example, let's say we have the following two variables: Seq <- "GCCTCGATAGCTCAGTTGGGAGAGCGTACGACTGAAGATCGTAAGGtCACCAGTTCGATCCTGGTTCGGGGCA" Str <-

...4005471_70 ...[skipped lots of line].... -rw-r--r-- 1 nova nova 75161927680 Mar 25 13:13 ff8ad6c675c84df6f70f9bd0ac04fb4189b3c899 -rw-r--r-- 1 libvirt-qemu kvm 75161927680 Mar 25 13:46 ff8ad6c675c84df6f70f9bd0ac04fb4189b3c899_70 localadmin at ldgpsua00000038:~$ Before parent directory relisting log file for the mount point was full of: -------------------------- [2013-05-02 12:20:01.376593] I [dht-common.c:596:dht_revalidate_cbk] 3-glustervmstore-dht: mismatching layouts for / [2013-05-02 12:20:51.975861] I [dht-layout.c:593:dht_layout_normalize] 3-glustervmstore-dht: found anomalies in...

A version using regular expressions, regexpr() and substr() functions is attached. Finally everything is packed into splitSeq() function (chunk 14 in the attached file) Seq<- "GCCTCGATAGCTCAGTTGGGAGAGCGTACGACTGAAGATCGTAAGGtCACCAGTTCGATCCTGGTTCGGGGCA" Str<-

I know that it has been discussed in the past, but I wanted to ask to revisit the idea of exporting is.formula <- function(x) inherits(x, "formula") from 'stats', parallel to is.data.frame() in 'base', given how widely formulae are used these days in conjunction with data frames, even outside of model fitting functions (e.g., for split-apply). One could argue

Hello All, I have multiple "list of lists" in the form of Mylist1[[N]][[K]]$Name_i, with N=1..6, K=1..3, and i=1..7. Each Name_i is a matrix. I have 30 of these objects Mylist1, Mylist2, ... I would like to merge these lists by each Name_i using rbind, but I couldn't figure out how to do it. What I want at the end is a single "list of lists", again in the form of

Jack Moffitt <jack@xiph.org> writes: > What are you trying to do that you get that error? I sent an improperly formatted URL to your server. I've corrected this since. =) > id=69 is the normal success code. You'd get -1 if it failed I think. > What's your ip address? I'll go check the logs. The ip address of my streaming server is 216.133.255.2 > Other

Jack Moffitt <jack@xiph.org> writes: > The source is in icecast cvs in the 'icedir' module. But what's > actually running is slightly modified. Heh. Is it possible to see a copy of what is actually running? I'm probing the directory server with a quick script but I'm getting 400 URL must be absolute which I should figure out soon. >>

I am experiencing some problems at working with lists at high level. In the following "coef" contains the original DWT coefficients organized in a list. Thorugh applying the following two commands: coef.abs <- lapply(unlist(coef,recursive=FALSE,use.names =TRUE),abs) coef.abs.sorted <- sort(unlist(coef.abs),decreasing=TRUE) I get vector "coef.abs.sorted" containing

Hello, I have a nested named list structure, like the following: x <- list( list( list(df1,df2) list(df3, list(df4,df5)) list(df6,df7))) with df1...d7 as data frames. Every data frame is named. Is there a way to get a specific named element in x? so, for example, x[[c("df5")]] gives me the data frame 5? Thank you in advance! Best, Friedericksen

Dear R-Helpers, I have a list l1 like: l1[[1]] a b c l1[[2]] d l1[[3]] e f I want an output res like: res[[1]] 1 1 1 res[[2]] 2 res[[3]] 3 3 Essentially, I want to replicate each index equal to the number of elements present in that index. Below is what I do to accomplish this: l1 <- list(c("a", "b", "c"), "d", c("e", "f"))

(Apologies in advance for the length of this message - hopefully someone more familiar with AD will be able to point me in the right direction or at least help me identify what's going wrong here).. I'm in the process of putting together a new print server using Samba and CUPS, and I'm having a bit of trouble getting Samba to properly join the AD domain. Printing works perfectly, and

Hello, I submit a patch for review that implements code coverage tracing in the R interpreter. It records the lines that are actually executed and their associated frequency for which srcref information is available. I perfectly understands that this patch will not make its way inside R as it is, that they are many concerns of stability, compatibility, maintenance and so on. I would like to have