[Rd] Re: matrix subsetting (was: [R] as(obj,

From: Gabor Grothendieck <ggrothendieck_at_myway.com>
Date: Fri 30 Jul 2004 - 12:14:33 EST

Suggest you try R 1.9.1 patched. This is what I get on Windows XP with that:

> matrixObj <- array(1:4, c(2,2))
> class(matrixObj) <- "matrix"
> fooObj <- matrixObj
> class(fooObj) <- "foo"
> fooObj[1:2]
[1] 1 2
> matrixObj[1:2]
[1] 1 2
> getAnywhere("[.matrix")

no object named '[.matrix' was found
> getAnywhere("[.foo")

no object named '[.foo' was found
>
> args("[.matrix")

Error in args("[.matrix") : couldn't find function "[.matrix"
> body("[.matrix")

Error in get(x, envir, mode, inherits) : variable "[.matrix" of mode "function" was not found
> R.version.string

[1] "R version 1.9.1, 2004-07-13"

Date:   	Thu, 29 Jul 2004 21:46:27 +0100
From:   	Patrick Burns <pburns@pburns.seanet.com>
To:   	John Chambers <jmc@research.bell-labs.com>, <r-devel@stat.math.ethz.ch>
Subject:   	[Rd] Re: matrix subsetting (was: [R] as(obj,"matrix"))

On a related topic, a client came up with this example a few days ago which I was unable to explain. (But he did heed my advise of "don't do that".)

> matrixObj <- array(1:4, c(2,2))
> class(matrixObj) <- "matrix"
> fooObj <- matrixObj
> class(fooObj) <- "foo"
> fooObj[1:2]
Testing

[,1] [,2]
[1,] 1 3
[2,] 2 4

attr(,"class")
[1] "foo"
> matrixObj[1:2]
[1] 1 2
> get("[.matrix")

function(x, i, j, drop = if(missing(i)) TRUE else length(cols)==1) {
cat("Testing\n")
x
}
> get("[.foo")

function(x, i, j, drop = if(missing(i)) TRUE else length(cols)==1) {
cat("Testing\n")
x
}

Everything is the same except for the name of the class. When the class is "matrix", it ignores the subset method. But the very same code works if the class is "foo". This is 1.9.1 Windows, and the same happens with 1.7.0 (the oldest version I have on my machine).

What is happening here?

Patrick Burns

Burns Statistics
patrick@burns-stat.com
+44 (0)20 8525 0696
http://www.burns-stat.com
(home of S Poetry and "A Guide for the Unwilling S User")

John Chambers wrote:

>Wolski wrote:
>
>
>>Hi!
>>
>>Here a simple example.
>>
>>setClass("myclass"
>>,representation(info="character")
>>,contains="matrix"
>>)
>>
>>rownames(dd)<-c("a","b")
>>tt<-new("myclass",dd)
>>#the source of pain.
>>as(tt,"matrix")<-matrix(1,3,3)
>>Error: length of dimnames [1] not equal to array extent
>>
>>Is there a different way to do what I would like to do (I would like to change the @.Data and all its attributes in the object)?
>>
>>
>
>It's not particularly a problem with as(). Your class just doesn't
>behave as you expect.
>
>"matrix" is not a formal class with slots. (It isn't even an S3 class
>in R; attr(x,"class") is NULL.) So you cannot expect classes extending
>"matrix" to know what a matrix is supposed to be.
>
>Part of the problem is that matrix objects sometimes have dimnames and
>sometimes don't. And there is basic code in R that assumes or applies
>constraints on the "dim" or "dimnames".
>
>In S-Plus, "matrix" is a formal class, always having a slot for
>dimnames. R has not gone that route, at least not yet.
>
>It may be possible to define a new class, "Matrix", say, that looks like
>a matrix to old-style code but has a formal definition. But the details
>are likely to be tricky, and it's definitely a topic for r-devel, not
>r-help.
>
>John Chambers
>
>
>
>>Eryk.
>>



R-devel@stat.math.ethz.ch mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-devel Received on Fri Jul 30 12:19:43 2004

This archive was generated by hypermail 2.1.8 : Wed 03 Nov 2004 - 22:45:04 EST