R help - Jul 2010 - Having problem to define a subclass, please help me

Here I am having problem to define a subclass, specially if I define that
subclass after defining initialize() method for its superclass. Here is my code:
> setClass("a", representation=list(x="numeric",
y="numeric"), prototype=list(x=rnorm(10), y=rnorm(10)))
[1] "a"
> setMethod("initialize", "a", function(.Object, x, y,
...) {
+                                 if (length(x) != length(y)) x = y = rep(5, 4)
+                                 .Object at x = x
+                                 .Object at y = y
+                                 .Object })
[1] "initialize"
> setClass("b", representation=list(x1="character"),
contains="a")
Error in .local(.Object, ...) : element 1 is empty;
   the part of the args list of 'length' being evaluated was:
   (x)
> 
Can anyone please point me where I am doing wrong?

Thanks,

Still no reply on my query. Is it not understandable? Can I reformulate
better my question?

Thanks,
-- 
View this message in context:
http://r.789695.n4.nabble.com/Having-problem-to-define-a-subclass-please-help-me-tp2308170p2308888.html
Sent from the R help mailing list archive at Nabble.com.