[R] Vectors of S4 Classes

[Phineas]

I have a function from which I wish to return two vectors of equal length of
a class

eg
> setClass("ClassOne", representation(x="numeric"))
[1] "ClassOne"
> first<-new("ClassOne", x=1)
> second<-new("ClassOne",x=2)
> first<-rbind(first,second)
> first

first
second

Is it possible to create vector or list of an S4 class?

Phineas

> version
         _
platform i386-pc-mingw32
arch     i386
os       mingw32
system   i386, mingw32
status
major    2
minor    1.0
year     2005
month    04
day      18
language R