search for: asy

SVN?revision?77401?changes ????????x[isM]?<-?lapply(x[isM],?function(o)?`class<-`(o,?class(o)[class(o)?!=?"AsIs"])) to ????????x[isM]?<-?lapply(x[isM],?function(o)?`class<-`(o,?class(o)[!inherits(o,"AsIs")])) in?function?'get_all_vars'?in?src/library/stats/R/models.R?in?R?devel. The?change?is?inappropriate.

...think_2x > {*wrongly*: The recommendation was to "think again" ...} > It's a "shame" that the wrong code did not trigger any checks, > so if anybody has time... I'd be grateful for such a regression > check. Once I started thinking, it was easy to modify the previous reg.check to trigger in the case of the erronous r77401. Fixed now in 77435. Martin

Hello, I am trying to use lmLists in the lme4 package and copying over very standard code from the nlme package given in 'Mixed-Effects Models in S and S-Plus'. It appears to not accept an 'I(age-11)' in the formula, though it will accept the formula with out the subtraction of 11 from age. This seems like it would be a bug, since this is standard formula syntax, unless

Dear R-devel, AsIs class seems to be well handled by `typeof` and `mode` function. Those two functions are being referred when explaining `is.vector` behaviour in manual. Yet `is.vector` does not seem to be handling AsIs class the same way. is.vector(1L) #[1] TRUE is.vector(I(1L)) #[1] FALSE Is there any reason behind this behaviour? Could we have it supported so AsIs class is ignored when

This seemed too advanced for r-help and is related to the recent discussion of character vectors in dataframes. Following Brian Ripley's most excellent advice, we are moving to a world in which character vectors in dataframes are always of class AsIs. The cool way of doing this seemed to be the following: > cat(c("x", "y", "z"), file = "test.txt",

? Fri, 12 Jul 2024 17:35:19 +0200 Hilmar Berger via R-devel <r-devel at r-project.org> ?????: > This can be finally traced to base::rank() (called from > xtfrm.default), where I found that > > "NB: rank is not itself generic but xtfrm is, and rank(xtfrm(x), ....) > will have the desired result if there is a xtfrm method. Otherwise, > rank will make use of ==, >,

Good evening, I recently have observed slow merges when combining multiple data frames derived from DataFrame and base::data.frame. I observed that the index column of intermediate tables was of class <AsIs> (automatically converted from character). The problem occurred mainly when using the sorted = T option in base::merge. This can be traced to xtfrm.AsIs being more than 100 times slower

...think_2x ? ? > {*wrongly*: The recommendation was to "think again" ...} ? ? > It's a "shame" that the wrong code did not trigger any checks, ? ? > so if anybody has time... I'd be grateful for such a regression ? ? > check. Once I started thinking, it was easy to modify the previous reg.check? to trigger in the case of the erronous r77401. Fixed now in 77435. Martin [[alternative HTML version deleted]]

Thank you Gabriel, Agree, although I think that could be relaxed in this single case and AsIs class could be ignored. Best, Jan On Sun, Mar 29, 2020 at 7:09 PM Gabriel Becker <gabembecker at gmail.com> wrote: > > Jan, > > I believe it's because it has "a non-NULL attribute other than names" as per the documentation. In this case its class of "AsIs". >

...(arg){ su=sprintf("%s\n",arg) sink("TMPTMPRarg") printf("%s\n",arg) # printf = cat(sprintf(....)) sink() source("TMPTMPRarg") return(su) } A trival invocation is given below but the next time I get data the names of assays might be Mg,MN,and Fe asyl=c("MG","MN") for(asy in asyl){ j=read.csv(sprintf("%sDUPS.csv",asy),head=T) attach(j) printf("plot(%s,DUP%s,log=\"xy\")",asy,asy) sourcearg(sprintf("plot(%s+0.01,DUP%s+0.01,log=\"xy\",main=\"Redacted %s\nOrg Log+0.01 vs Dup...

There is no documentation for class AsIs, that is ?AsIs gives you nothing. Relatedly, there is no discussion of the use of I() to create objects of class AsIs on the help page for I(). This means that it is hard to find information in the help pages about the following usage. > test <- data.frame(x = I(letters[1:3])) > test x 1 a 2 b 3 c > class(test$x) [1] "AsIs"

Hi Martin, On 10/26/20 04:52, Martin Maechler wrote: >> >> Hi there, >> Is that change in R-devel intentional? >> >> library(Matrix) >> m <- as(matrix(c(0, 1)), "sparseMatrix") >> >> isS4(m) >> # [1] TRUE >> >> x <- I(m) >> # Warning message: >> # In `class<-`(x,

hello, I have a problem to open an hdf file. i have downloaded the package 'hdf5' as it was advised on R seek. But when i try to load the file, the R console sends me an eror message: setwd("C:/Documents and Settings/Karine/Bureau/data/") #install.packages('hdf5') library("hdf5") sea_ice <- hdf5load("asi-s6250-20090704-v5i.hdf", load =

Hi there, Is that change in R-devel intentional? library(Matrix) m <- as(matrix(c(0, 1)), "sparseMatrix") isS4(m) # [1] TRUE x <- I(m) # Warning message: # In `class<-`(x, unique.default(c("AsIs", oldClass(x)))) : # Setting class(x) to multiple strings ("AsIs", "dgCMatrix", ...); result will no longer be an S4 object

Hi all, I searched through the archives, but couldn't find a fix... Basically, I've got a bunch of numeric vectors and one character vector that I want to bind into a data frame. When I include the character vector as a column in the data frame, all the numeric columns get factored in the data frame, which makes it tough to call those columns for calculations later on. I've tried

Here's an example (session info at the end). > tmpv <- c('\265g/L','Bq/L') > order(tmpv) [1] 2 1 > tmpv <- I(tmpv) > order(tmpv) Error in if (xi > xj) 1L else -1L : missing value where TRUE/FALSE needed > foov <- gsub('\265','',tmpv) > order(foov) [1] 2 1 > str(tmpv) Class 'AsIs' chr [1:2] "\265g/L"

Dear All, a Surv object I put in a data frame behaves somehow unexpected (see example). If I do a Cox regression on the original Surv object it works. If I put it in a data.frame and do the regression on the data frame it does not work. Seemingly it has to do with the class attribute, because if I change the class attribute to let "Surv" appeare first, again it works. Is this known?

Dear all, Supposed I run the following command: ############################### #install.packages("Rassoc", dependencies=TRUE) library("Rassoc") ca=c(139,249,112) co=c(136,244,120) a=rbind(ca,co) MAX3(a,"asy",1) ############################## I get: The MAX3 test using the asy method data: a statistic = 0.5993, p-value = 0.7933 How can one save the result 0.7933 into a file? say: foo <- 0.7933 write.table(foo, file ="/home/foo.txt", sep = " ", row.names=FALSE,col.n...

(I think this is probably appropriate for r-devel -- if my diagnosis is correct, that is) I have a script that I run infrequently (i.e., quarterly) that has been working for several years. I re-ran it this morning for the first time since updating R from 2.6.2 to 2.7.0, and encountered an error. I found a simple example that shows the problem: > as.POSIXct( I( '2008-01-01' ) )

Short example: > str(d <- data.frame(a = I(letters[1:5]))) `data.frame': 5 obs. of 1 variable: $ a:Class 'AsIs' chr [1:5] "a" "b" "c" "d" ... > str(d[TRUE,,drop = FALSE]) `data.frame': 5 obs. of 1 variable: $ a: chr "a" "b" "c" "d" ... The real problem about this is, that as soon