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)?
Eryk.
The definition of dd is. dd<-matrix(0,2,2) *********** REPLY SEPARATOR *********** On 7/28/2004 at 4:12 PM Adaikalavan Ramasamy wrote:>>>On Wed, 2004-07-28 at 15:55, Wolski wrote: >>>> Hi! >>>> >>>> Here a simple example. >>>> >>>> setClass("myclass" >>>> ,representation(info="character") >>>> ,contains="matrix" >>>> ) >>>> >>>> rownames(dd)<-c("a","b") >>> >>>Er, I don't think you have defined 'dd' in the example. >>> >>>> 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)? >>>> >>>> >>>> Eryk. >>>> >>>> ______________________________________________ >>>> R-help at stat.math.ethz.ch mailing list >>>> https://www.stat.math.ethz.ch/mailman/listinfo/r-help >>>> PLEASE do read the posting guide! >>>http://www.R-project.org/posting-guide.html >>>>Dipl. bio-chem. Eryk Witold Wolski @ MPI-Moleculare Genetic Ihnestrasse 63-73 14195 Berlin 'v' tel: 0049-30-83875219 / \ mail: wolski at molgen.mpg.de ---W-W---- http://www.molgen.mpg.de/~wolski
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-help at stat.math.ethz.ch mailing list > https://www.stat.math.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html-- John M. Chambers jmc at bell-labs.com Bell Labs, Lucent Technologies office: (908)582-2681 700 Mountain Avenue, Room 2C-282 fax: (908)582-3340 Murray Hill, NJ 07974 web: http://www.cs.bell-labs.com/~jmc
Patrick Burns
2004-Jul-29 22:47 UTC
[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-help@stat.math.ethz.ch mailing list
>>https://www.stat.math.ethz.ch/mailman/listinfo/r-help
>>PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
>>
>>
>
>
>