search for: relistable

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) rel...

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

Dear all, The following code is inspired by the help file for the relist() function (see?relist), which explicitly details how you can use a relistable object in conjunction with optim to pass and reconstruct complex parameter structures/groupings. The idea is that the optim() function can only work with vectors, but in many cases you would like to use a complex structure inside the objective function- relist is one way to do that. The problem is...

...hat may be overly pedantic. Dan -- www.stats.ox.ac.uk/~davison -------------- next part -------------- --- /usr/local/src/R/R-svn-trunk/src/library/utils/man/relist.Rd 2008-08-16 13:41:50.000000000 +0100 +++ /home/dan/relist-new.Rd 2008-08-16 17:15:54.000000000 +0100 @@ -13,7 +13,7 @@ \alias{is.relistable} \alias{unlist.relistable} % -\title{Allow Re-Listing an unlisted() Object} +\title{Allow Re-Listing an unlisted Object} \description{ \code{relist()} is an S3 generic function with a few methods in order to allow easy inversion of \code{\link{unlist}(obj)} when that is used @@ -33,8 +33,9...

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

...tally 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 <- as.relistable(ipar) invvech <- function (x) { d <- 0.5 * (sqrt(8 * length(x) + 1) - 1) out <- matrix(0, d, d) out[lower.tri(out, TRUE)] <- x ind <- upper.tri(out) out[ind] <- t(out)[ind] out } ll <- function (param.vector) { param <- relist(param.vecto...

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 <-

Hello, Have spotted strange behaviour of GlusterFS fuse mount. I am unable to list files in a directory until parent directory is listed. However if I do list file with full path it is listed on some client nodes. Example: localadmin at ldgpsua00000038:~$ ls -al /var/lib/nova/instances/_base/ ls: cannot access /var/lib/nova/instances/_base/: No such file or directory localadmin at

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<-

...son" [13] "personList" "roman" 3. For which Z does is.Z() just call inherits(., "Z")? [1] "data.frame" "factor" "numeric_version" "ordered" [5] "package_version" "raster" "relistable" "table" -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: as.is.R URL: <https://stat.ethz.ch/pipermail/r-devel/attachments/20230407/d14c0775/attachment.ksh>

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

...owDoc, +export("?", .DollarNames, CRAN.packages, Rcov_start, Rcov_stop, Rprof, Rprofmem, RShowDoc, RSiteSearch, URLdecode, URLencode, View, adist, alarm, apropos, aregexec, argsAnywhere, assignInMyNamespace, assignInNamespace, as.roman, as.person, as.personList, as.relistable, aspell, diff -ruN R-devel/src/library/utils/R/Rcov.R R-devel-cov/src/library/utils/R/Rcov.R --- R-devel/src/library/utils/R/Rcov.R 1970-01-01 01:00:00.000000000 +0100 +++ R-devel-cov/src/library/utils/R/Rcov.R 2014-03-03 16:08:45.739453368 +0100 @@ -0,0 +1,27 @@ +# File src/library/utils/R/Rcov.R...