From: John Chambers <jmc_at_r-project.org>

Date: Tue 11 Jan 2005 - 09:10:13 EST

An object of class "c3"

Slot "x":

[1] 1

*>
*

> [1] "foo"

*>
*

*>
*

> Error in "as<-"(`*tmp*`, Classi, value = c(NA, NA, NA, NA, NA, NA)) :

*> No method or default for as() replacement of "foo" with
*

*> Class="matrix"
*

*>
*

*> This last error did not occur under 1.9.1.
*

*>
*

*> I conclude that in this context the methods package does not recognise
*

*> "matrix" as a subclass of "array". However if I use getClass(), I see that R
*

*> recognises "matrix" as a subclass of "array" (and vice-versa). So is this
*

*> new behaviour correct?
*

R-devel@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-devel Received on Tue Jan 11 08:23:36 2005

Date: Tue 11 Jan 2005 - 09:10:13 EST

Your example and your subject heading are two different things. If you meant the subject heading, that in fact works.

R> setClass("a1", representation(x="array"))
[1] "a1"

R> new("a1", x=matrix(1:12,3,4))

An object of class "a1"

Slot "x":

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

[1,] 1 4 7 10 [2,] 2 5 8 11 [3,] 3 6 9 12

That's not what your example does. In your example, the new class extends "array", rather than using it as a slot. It would have been clearer if you had said setClass("foo", contains="array"), but your code is correct for that purpose.

On first examination, I believe the problem is just what the message says it is. You gave as a new object (and NOT as a slot) an object from a subclass of a superclass of "foo". This is allowed, but has to be done by replacing the part of a "foo" object corresponding to the "array" contained in a "matrix" object. Of course, we know that's actually the whole object, but nothing has told the software this. And, indeed, it doesn't find the necessary replacement method.

Here's an example similar to what you are doing, but using actual
classes. Barring screwups on my part, it shows that the mechanism works
as asserted. Classes "c1", "c2", "c3" follow the roles of "array",
"matrix", and "foo" in your example.

R> setClass("c1", representation(x="numeric"))
[1] "c1"

R> setClass("c2", contains="c1")

[1] "c2"

R> setClass("c3", contains = "c1")

[1] "c3"

R> x2 = new("c2", x=1) R> x3 = new("c3", x2) R> x3

An object of class "c3"

Slot "x":

[1] 1

Classes "matrix" and "array" are rather peculiar in R; among other things, they act like vector data types in that is.object() is FALSE. And you cannot have an "array" with a dimension of length 2.

R> class(array(1:12, dim=c(3,4)))

[1] "matrix"

Also, because they don't have a consistent set of "slots" (they may or may not have a "dimnames), they aren't quite real classes in an S4 sense. It would be nice to fix this mess, but not obviously possible while being back compatible.

It's possible that there is a fix to get around the particular error here, without breaking the more general pattern--I'll take a look.

Otherwise, you may need to follow the approach of your subject heading, and define a new class with an array as a slot.

Giles Heywood wrote:

> I have an S4 class with a slot of class "array", and in upgrading to 2.0.1

*> (from 1.9.1) I have encountered a change in behaviour. This causes me some
**> difficulties if I want to allow 2-dimensional arrays in the slot.
**>
**> The following (in 2.0.1) illustrates the point:
**>
**>
*

>>setClass("foo",representation("array"))

> [1] "foo"

>>a <- new("foo",array(NA,2:4)) >>b <- new("foo",matrix(NA,2,3))

> Error in "as<-"(`*tmp*`, Classi, value = c(NA, NA, NA, NA, NA, NA)) :

You conclude incorrectly, as noted above.

*>
*

> [this is a re-posting to R-devel of a question earlier posted to R-help,

*> which attracted limited response]
**>
**> ______________________________________________
**> R-devel@stat.math.ethz.ch mailing list
**> https://stat.ethz.ch/mailman/listinfo/r-devel
*

>

R-devel@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-devel Received on Tue Jan 11 08:23:36 2005

*
This archive was generated by hypermail 2.1.8
: Fri 18 Mar 2005 - 09:02:33 EST
*